螺栓建模6相关.docx

1、螺栓建模6相关/title,double-screw bolts and flange by mqg/prep7et,1,solid95mptemp,1,0mpdata,ex,1,2.06e5mpdata,prxy,1,0.3cyl4,0,0,2607.5,90,2812.5,92,160cyl4,0,0,2607.5,90,2812.5,92,-160wpave,0,2712.5,160cyl4,0,0,22.5,90,270,-400vsel,s,1,2,0cm,falan,voluallsel,all,allvsbv,falan,3,sepo,delete,deletenumcmp,al

2、lcyl4,0,0,22.5,90,39,270,8vsymm,z,3,0,1,0wpave,0,2712.5,168wprota,90,rprism,0,26,6,32.5cyl4,0,0,18.5645,100vsbv,5,6,sepo,delete,deletenumcmp,allwprota,90vsbw,5,seponumcmp,allvdele,6,1vsymm,z,5,0,1,0wprota,-90wpave,0,2712.5,205cyl4,0,0,18.5645,0,180,-410numcmp,alltype,1mat,1real,1esys,0vsel,s,7,1alls

3、el,below,volulsel,s,line,97,98lsel,a,line,101,102cm,huafensige7,lineallsel,all,alllsel,s,line,103,105cm,huafenshierge7,lineallsel,all,alllsel,s,line,99,100cm,huafenshige7,lineallsel,all,alllesize,huafensige7,4lesize,huafenshierge7,12,-6lesize,huafenshige7,10vsweep,7,46,45,0allsel,all,allvsel,s,5,6,1

4、allsel,below,volulsel,s,line,61,64lsel,a,line,67,72lsel,a,line,75,78lsel,a,line,80lsel,a,line,82,89lsel,a,line,91,93lsel,a,line,95,96cm,huafensange56,lineallsel,all,alllsel,s,line,65,66lsel,a,line,90lsel,a,line,94cm,huafensige56,lineallsel,all,alllsel,s,line,73,74lsel,a,line,79lsel,a,line,81cm,huafe

5、nshige56,lineallsel,all,alllesize,huafensange56,3lesize,huafensige56,4lesize,huafenshige56,10lsel,s,line,61lsel,a,line,65lsel,a,line,68cm,lianjiexian51,lineallsel,all,alllsel,s,line,62lsel,a,line,66lsel,a,line,69cm,lianjiexian52,lineallsel,all,alllsel,s,line,89,91cm,lianjiexian61,lineallsel,all,alll

6、sel,s,line,92lsel,a,line,94lsel,a,line,96cm,lianjiexian62,lineallsel,all,alllccat,lianjiexian51lccat,lianjiexian52lccat,lianjiexian61lccat,lianjiexian62vsweep,5,35,36vsweep,6,40,44allsel,all,allvsel,s,3,4,1allsel,below,volulsel,s,line,45,48lsel,a,line,57,60cm,huafenerge34,lineallsel,all,alllsel,s,li

7、ne,37lsel,a,line,39lsel,a,line,42lsel,a,line,44lsel,a,line,49lsel,a,line,51lsel,a,line,54lsel,a,line,56cm,huafensange34,lineallsel,all,alllsel,s,line,38lsel,a,line,40,41lsel,a,line,43lsel,a,line,50lsel,a,line,52,53lsel,a,line,55cm,huafenshige34,lineallsel,all,alllesize,huafenerge34,2lesize,huafensan

8、ge34,3lesize,huafenshige34,10vsweep,3,18,17vsweep,4,24,23allsel,all,allvsel,s,1,2,1allsel,below,volulsel,s,line,1,8lsel,a,line,11lsel,a,line,14lsel,a,line,19,26lsel,a,line,29lsel,a,line,32cm,huafensange12,lineallsel,all,alllsel,s,line,15,16lsel,a,line,33,34cm,huafensige12,lineallsel,all,alllsel,s,li

9、ne,9,10lsel,a,line,12,13lsel,a,line,27,28lsel,a,line,30,31cm,huafenliuge12,lineallsel,all,alllsel,s,line,17,18lsel,a,line,35,36cm,huafenshige12,lineallsel,all,alllesize,huafensange12,3lesize,huafensige12,4lesize,huafenliuge12,6,0.25lesize,huafenshige12,10lsel,s,line,1lsel,a,line,5lsel,a,line,15cm,li

10、anjiexian11,lineallsel,all,alllsel,s,line,2lsel,a,line,6lsel,a,line,16cm,lianjiexian12,lineallsel,all,alllsel,s,line,19lsel,a,line,23lsel,a,line,33cm,lianjiexian21,lineallsel,all,alllsel,s,line,20lsel,a,line,24lsel,a,line,34cm,lianjiexian22,lineallsel,all,alllccat,lianjiexian11lccat,lianjiexian12lcc

11、at,lianjiexian21lccat,lianjiexian22vsweep,1,8,7vsweep,2,15,16/com,contact pair creation - start !进入创建接触对。mp,mu,1,0.5!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,3 !设置实常数，编号为3。real,3 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,2,170!建立目标单元。et,3,174!建立接触单元。keyopt,3,10,2!设置174单元的第10个关键选项keyopt,3,12,5!设置174

12、单元的第12个关键选项，这里是设置接触类型为“绑定接触（始终）”。r,3,1.0,0.1,0,!设置实常数3中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,47 !选择一组面的子集，即选择面体47。cm,_target,area !把上面选的面体47创建成一个名为_target的元件，即目标面。type,2!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体47上的所有节点。esln,s,0!选中依附于面体47上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,32 !选择一组面的子集，即选择面体32。

13、cm,_contact,area!把上面选的面体32创建成一个名为_contact的元件，即接触面。type,3 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体32上的所有节点。esln,s,0!选中依附于面体32上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_target!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot!显示所有选择的单元网格。/com,contact pair creation - start !进入创建接触对。mp,mu,1,0.

14、5!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,4 !设置实常数，编号为4。real,4 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,4,170!建立目标单元。et,5,174!建立接触单元。keyopt,5,10,2!设置174单元的第10个关键选项keyopt,5,12,5!设置174单元的第12个关键选项，这里是设置接触类型为“绑定接触（始终）”。r,4,1.0,0.1,0,!设置实常数4中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,47 !选择一组面的子集，即选择面体47。

15、cm,_target,area !把上面选的面体47创建成一个名为_target的元件，即目标面。type,4!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体47上的所有节点。esln,s,0!选中依附于面体47上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,37 !选择一组面的子集，即选择面体37。cm,_contact,area!把上面选的面体37创建成一个名为_contact的元件，即接触面。type,5 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体37上的所有节点。esln,s,0!选中依

16、附于面体37上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_target!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot!显示所有选择的单元网格。/com,contact pair creation - start !进入创建接触对。mp,mu,1,0.14!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,5 !设置实常数，编号为5。real,5 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,6,170!建

17、立目标单元。et,7,174!建立接触单元。keyopt,7,10,2!设置174单元的第10个关键选项keyopt,7,12,0!设置174单元的第12个关键选项，这里是设置接触类型为“标准接触”。r,5,1.0,0.1,0,!设置实常数5中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,18 !选择一组面的子集，即选择面体18。cm,_target,area !把上面选的面体18创建成一个名为_target的元件，即目标面。type,6!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体18上的所有节点。esln,s,0!选中依附于面体1

18、8上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,36 !选择一组面的子集，即选择面体36。cm,_contact,area!把上面选的面体36创建成一个名为_contact的元件，即接触面。type,7 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体36上的所有节点。esln,s,0!选中依附于面体36上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_target!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot

19、!显示所有选择的单元网格。/com,contact pair creation - start !进入创建接触对。mp,mu,1,0.14!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,6 !设置实常数，编号为6。real,6 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,8,170!建立目标单元。et,9,174!建立接触单元。keyopt,9,10,2!设置174单元的第10个关键选项keyopt,9,12,0!设置174单元的第12个关键选项，这里是设置接触类型为“标准接触”。r,6,1.0,0.1,0,!设置实

20、常数6中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,24 !选择一组面的子集，即选择面体24。cm,_target,area !把上面选的面体24创建成一个名为_target的元件，即目标面。type,8!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体24上的所有节点。esln,s,0!选中依附于面体24上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,44 !选择一组面的子集，即选择面体44。cm,_contact,area!把上面选的面体44创建成一个名为_contact的元件，即接触面。t

21、ype,9 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体44上的所有节点。esln,s,0!选中依附于面体44上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_target!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot!显示所有选择的单元网格。/com,contact pair creation - start !进入创建接触对。mp,mu,1,0.3!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,7 !设

22、置实常数，编号为7。real,7 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,10,170!建立目标单元。et,11,174!建立接触单元。keyopt,11,10,2!设置174单元的第10个关键选项keyopt,11,12,0!设置174单元的第12个关键选项，这里是设置接触类型为“标准接触”。r,7,1.0,0.1,0,!设置实常数7中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,8 !选择一组面的子集，即选择面体8。cm,_target,area !把上面选的面体8创建成一个名为_target的元件，即目标面。type,

23、10!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体8上的所有节点。esln,s,0!选中依附于面体8上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,17 !选择一组面的子集，即选择面体17。cm,_contact,area!把上面选的面体17创建成一个名为_contact的元件，即接触面。type,11 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体17上的所有节点。esln,s,0!选中依附于面体17上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_ta

24、rget!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot!显示所有选择的单元网格。/com,contact pair creation - start !进入创建接触对。mp,mu,1,0.3!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,8 !设置实常数，编号为8。real,8 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,12,170!建立目标单元。et,13,174!建立接触单元。keyopt,13,10,2!设置174单元的第10个关键选项

25、keyopt,13,12,0!设置174单元的第12个关键选项，这里是设置接触类型为“标准接触”。r,8,1.0,0.1,0,!设置实常数8中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,15 !选择一组面的子集，即选择面体15。cm,_target,area !把上面选的面体15创建成一个名为_target的元件，即目标面。type,12!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体15上的所有节点。esln,s,0!选中依附于面体15上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,23 !

26、选择一组面的子集，即选择面体23。cm,_contact,area!把上面选的面体23创建成一个名为_contact的元件，即接触面。type,13 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体23上的所有节点。esln,s,0!选中依附于面体23上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_target!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot!显示所有选择的单元网格。/com,contact pair creation - start !

27、进入创建接触对。mp,mu,1,0.35!定义接触摩擦系数。每个接触对都要分别创建。mat,1 !为将要生成的单元指定材料属性。r,9 !设置实常数，编号为9。real,9 !为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。et,14,170!建立目标单元。et,15,174!建立接触单元。keyopt,15,10,2!设置174单元的第10个关键选项keyopt,15,12,0!设置174单元的第12个关键选项，这里是设置接触类型为“标准接触”。r,9,1.0,0.1,0,!设置实常数9中的数据，第一个1.0表示正则处罚刚度，第二个0.1表示渗透公差。asel,s,16

28、 !选择一组面的子集，即选择面体16。cm,_target,area !把上面选的面体16创建成一个名为_target的元件，即目标面。type,14!为将要生成的目标单元指定单元类型为170单元。nsla,s,1!选中面体16上的所有节点。esln,s,0!选中依附于面体16上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的170单元。asel,s,7 !选择一组面的子集，即选择面体7。cm,_contact,area!把上面选的面体7创建成一个名为_contact的元件，即接触面。type,15 !为将要生成的目标单元指定单元类型为174单元。nsla,s,1!选中面体7上的

29、所有节点。esln,s,0!选中依附于面体7上的所有节点的单元。esurf!在已选择单元的自有面上生成重叠的174单元。cmdele,_target!删除目标面元件。cmdele,_contact!删除接触面元件。allsel,all,all!选择所有元素。eplot!显示所有选择的单元网格。psmesh,1,yujinli,volu,7,0,z,656,!在体7（螺柱）垂直于全球直角坐标z轴坐标并从节点656处创建预紧截面1。da,16,all!在面体16（即两法兰接触面）上施加全部约束。asel,s,area,3,4asel,a,area,11,12asel,a,area,21,22asel,a,area,27,28asel,a,area,33,34asel,a,area,38,39asel,a,area,48,49da,all,symm!在以上面体上施加对称约束。fini/solusload,1,pl01,tiny,force,356215,1,2 !因为是一半模型，在预紧截面1上施加预紧力为（712430/2）n。solve !求解