/prep7
et,1,plane42
et,2,solid45
mp,ex,1,2.5e10
mp,nuxy,1,0.16
mp,dens,1,2700
mp,ex,2,10e6
mp,nuxy,2,0.45
mp,dens,2,2000
tb,dp,2
tbdata,1,10000,30,30
!建立各个关键点
k,1
k,2,0.3
k,3,1.5
k,4,1.5,0.4
k,5,1.1,0.4
k,6,1.1,0.8
k,7,0.7,0.8
k,8,0.7,1.2
k,9,0.3,1.2
k,10,0.3,2
k,11,0,2
k,12,4,2
k,13,4,0
k,14,4,-2
k,15,0,-2
k,16,0.3,3
k,17,0,3
k,18,0.3,-2
!建立面元素
a,1,2,3,4,5,6,7,8,9,10,11
l,2,9
/pnum,area,1
/pnum,line,1
asbl,1,22
a,3,4,5,6,7,8,9,10,12,13
a,1,2,3,13,14,18,15
l,2,18
asbl,3,23
a,10,11,17,16
aglue,1,2,4,5,6,7
aplot
!划分网络
lsel,s,,,2,9,1
lesize,all,0.2
lsel,s,,,22
lesize,all,0.2
amesh,6
lsel,s,,,1
lesize,all,0.15
lsel,s,,,10
lesize,all,0.15
lsel,s,,,11
lesize,all,0.2
amesh,5
lsel,s,,,12,14,1
lesize,all,0.2
amesh,2
lsel,s,,,15
lesize,all,0.2
lsel,s,,,16
lesize,all,0.2
lsel,s,,,23
lesize,all,0.2
amesh,7
lsel,s,,,18
lesize,all,0.2
lsel,s,,,17
lesize,all,0.15
amesh,1
lsel,s,,,20
lesize,all,0.15
lsel,s,,,19
lesize,all,0.2
lsel,s,,,21
lesize,all,0.2
amesh,4
finish |