螺栓建模6相关.docx

螺栓建模6相关.docx

《螺栓建模6相关.docx》由会员分享，可在线阅读，更多相关《螺栓建模6相关.docx（17页珍藏版）》请在冰豆网上搜索。

螺栓建模6相关

/title,double-screwboltsandflangebymqg

/prep7

et,1,solid95

mptemp,1,0

mpdata,ex,1,,2.06e5

mpdata,prxy,1,,0.3

cyl4,0,0,2607.5,90,2812.5,92,160

cyl4,0,0,2607.5,90,2812.5,92,-160

wpave,0,2712.5,160

cyl4,0,0,22.5,90,,270,-400

vsel,s,,,1,2,,0

cm,falan,volu

allsel,all,all

vsbv,falan,3,sepo,delete,delete

numcmp,all

cyl4,0,0,22.5,90,39,270,8

vsymm,z,3,,,0,1,0

wpave,0,2712.5,168

wprota,90,

rprism,0,26,6,,,32.5

cyl4,0,0,18.5645,,,,100

vsbv,5,6,sepo,delete,delete

numcmp,all

wprota,,90

vsbw,5,sepo

numcmp,all

vdele,6,,,1

vsymm,z,5,,,0,1,0

wprota,,-90

wpave,0,2712.5,205

cyl4,0,0,18.5645,0,,180,-410

numcmp,all

type,1

mat,1

real,1

esys,0

vsel,s,,,7,,,1

allsel,below,volu

lsel,s,line,,97,98

lsel,a,line,,101,102

cm,huafensige7,line

allsel,all,all

lsel,s,line,,103,105

cm,huafenshierge7,line

allsel,all,all

lsel,s,line,,99,100

cm,huafenshige7,line

allsel,all,all

lesize,huafensige7,,,4

lesize,huafenshierge7,,,12,-6

lesize,huafenshige7,,,10

vsweep,7,46,45,0

allsel,all,all

vsel,s,,,5,6,,1

allsel,below,volu

lsel,s,line,,61,64

lsel,a,line,,67,72

lsel,a,line,,75,78

lsel,a,line,,80

lsel,a,line,,82,89

lsel,a,line,,91,93

lsel,a,line,,95,96

cm,huafensange56,line

allsel,all,all

lsel,s,line,,65,66

lsel,a,line,,90

lsel,a,line,,94

cm,huafensige56,line

allsel,all,all

lsel,s,line,,73,74

lsel,a,line,,79

lsel,a,line,,81

cm,huafenshige56,line

allsel,all,all

lesize,huafensange56,,,3

lesize,huafensige56,,,4

lesize,huafenshige56,,,10

lsel,s,line,,61

lsel,a,line,,65

lsel,a,line,,68

cm,lianjiexian51,line

allsel,all,all

lsel,s,line,,62

lsel,a,line,,66

lsel,a,line,,69

cm,lianjiexian52,line

allsel,all,all

lsel,s,line,,89,91

cm,lianjiexian61,line

allsel,all,all

lsel,s,line,,92

lsel,a,line,,94

lsel,a,line,,96

cm,lianjiexian62,line

allsel,all,all

lccat,lianjiexian51

lccat,lianjiexian52

lccat,lianjiexian61

lccat,lianjiexian62

vsweep,5,35,36

vsweep,6,40,44

allsel,all,all

vsel,s,,,3,4,,1

allsel,below,volu

lsel,s,line,,45,48

lsel,a,line,,57,60

cm,huafenerge34,line

allsel,all,all

lsel,s,line,,37

lsel,a,line,,39

lsel,a,line,,42

lsel,a,line,,44

lsel,a,line,,49

lsel,a,line,,51

lsel,a,line,,54

lsel,a,line,,56

cm,huafensange34,line

allsel,all,all

lsel,s,line,,38

lsel,a,line,,40,41

lsel,a,line,,43

lsel,a,line,,50

lsel,a,line,,52,53

lsel,a,line,,55

cm,huafenshige34,line

allsel,all,all

lesize,huafenerge34,,,2

lesize,huafensange34,,,3

lesize,huafenshige34,,,10

vsweep,3,18,17

vsweep,4,24,23

allsel,all,all

vsel,s,,,1,2,,1

allsel,below,volu

lsel,s,line,,1,8

lsel,a,line,,11

lsel,a,line,,14

lsel,a,line,,19,26

lsel,a,line,,29

lsel,a,line,,32

cm,huafensange12,line

allsel,all,all

lsel,s,line,,15,16

lsel,a,line,,33,34

cm,huafensige12,line

allsel,all,all

lsel,s,line,,9,10

lsel,a,line,,12,13

lsel,a,line,,27,28

lsel,a,line,,30,31

cm,huafenliuge12,line

allsel,all,all

lsel,s,line,,17,18

lsel,a,line,,35,36

cm,huafenshige12,line

allsel,all,all

lesize,huafensange12,,,3

lesize,huafensige12,,,4

lesize,huafenliuge12,,,6,0.25

lesize,huafenshige12,,,10

lsel,s,line,,1

lsel,a,line,,5

lsel,a,line,,15

cm,lianjiexian11,line

allsel,all,all

lsel,s,line,,2

lsel,a,line,,6

lsel,a,line,,16

cm,lianjiexian12,line

allsel,all,all

lsel,s,line,,19

lsel,a,line,,23

lsel,a,line,,33

cm,lianjiexian21,line

allsel,all,all

lsel,s,line,,20

lsel,a,line,,24

lsel,a,line,,34

cm,lianjiexian22,line

allsel,all,all

lccat,lianjiexian11

lccat,lianjiexian12

lccat,lianjiexian21

lccat,lianjiexian22

vsweep,1,8,7

vsweep,2,15,16

/com,contactpaircreation-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个关键选项，这里是设置接触类型为“绑定接触（始终）”。

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。

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,contactpaircreation-start!

进入创建接触对。

mp,mu,1,0.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。

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!

选中依附于面体37上的所有节点的单元。

esurf!

在已选择单元的自有面上生成重叠的174单元。

cmdele,_target!

删除目标面元件。

cmdele,_contact!

删除接触面元件。

allsel,all,all!

选择所有元素。

eplot!

显示所有选择的单元网格。

/com,contactpaircreation-start!

进入创建接触对。

mp,mu,1,0.14!

定义接触摩擦系数。

每个接触对都要分别创建。

mat,1!

为将要生成的单元指定材料属性。

r,5!

设置实常数，编号为5。

real,5!

为将要生成的单元指定实常数，因为同一个接触对的两种单元共用一个实常数。

et,6,170!

建立目标单元。

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!

选中依附于面体18上的所有节点的单元。

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!

显示所有选择的单元网格。

/com,contactpaircreation-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,!

设置实常数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的元件，即接触面。

type,9!

为将要生成的目标单元指定单元类型为174单元。

nsla,s,1!

选中面体44上的所有节点。

esln,s,0!

选中依附于面体44上的所有节点的单元。

esurf!

在已选择单元的自有面上生成重叠的174单元。

cmdele,_target!

删除目标面元件。

cmdele,_contact!

删除接触面元件。

allsel,all,all!

选择所有元素。

eplot!

显示所有选择的单元网格。

/com,contactpaircreation-start!

进入创建接触对。

mp,mu,1,0.3!

定义接触摩擦系数。

每个接触对都要分别创建。

mat,1!

为将要生成的单元指定材料属性。

r,7!

设置实常数，编号为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,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,_target!

删除目标面元件。

cmdele,_contact!

删除接触面元件。

allsel,all,all!

选择所有元素。

eplot!

显示所有选择的单元网格。

/com,contactpaircreation-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个关键选项

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!

选择一组面的子集，即选择面体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,contactpaircreation-start!

进入创建接触对。

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!

选择一组面的子集，即选择面体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上的所有节点。

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,4

asel,a,area,,11,12

asel,a,area,,21,22

asel,a,area,,27,28

asel,a,area,,33,34

asel,a,area,,38,39

asel,a,area,,48,49

da,all,symm!

在以上面体上施加对称约束。

fini

/solu

sload,1,pl01,tiny,force,356215,1,2!

因为是一半模型，在预紧截面1上施加预紧力为（712430/2）n。

solve!

求解