fini
/clear
/prep7
!点(单位:米)
k,1,0
k,2,1.65,-3.6
k,3,5.12,-3.6
k,4,6.5,-3.6
k,5,8,-3.6
k,6,12,-2.26
k,7,12,
k,8,6.5
k,9,3.9,-1.49
k,10,3.04
!线
l,1,2
l,2,3
l,3,4
l,4,5
l,5,6
l,6,7
l,7,8
l,8,9
l,9,10
l,10,1
l,3,9
l,5,8
lesi,1,,,14
lesi,2,,,8
lesi,10,,,8
lesi,9,,,6
lesi,11,,,8
lesi,8,,,10
lesi,3,,,5
lesi,4,,,5
lesi,12,,,6
lesi,6,,,6
lesi,7,,,10
lesi,5,,,10
!面
al,1,2,11,9,10
al,11,3,4,12,8
al,12,5,6,7
!面划分网格
et,1,63 !按照shell63板壳单元面划分网格
mp,dens,1,2.6 !密度
mp,ex,1,2.7e9 !弹模
mp,nuxy,1,0.404
!r,1,0.4
ASEL,all
amesh,all
k,100,0,0,2
l,1,100
lesi,13,,,14
!拉伸为体
et,2,solid65 !指定65号实体单元划分全桥
mp,ex,2,2.7e9
mp,dens,2,2.6
mp,nuxy,2,0.404
!r,1,0.4
vdra,all,,,,,,13 !重要命令:由一组面拉伸成体
allsel
plot
!施加约束
NSEL,S,LOC,X,12
d,all,all
ALLSEL,ALL
EPLOT
NSEL,S,LOC,X,6.5
NSEL,r,LOC,y,-3.6
d,all,,,,,,uy
ALLSEL,ALL
EPLOT
!删除壳单元等
ACLEAR,1
ACLEAR,2
ACLEAR,3
!施加荷载
f,522,fx,2760
f,522,fy,1200
f,548,fx,2760
f,548,fy,1200
f,574,fx,2760
f,574,fy,1200
f,512,fx,2760
f,512,fy,1200
f,538,fx,2760
f,538,fy,1200
f,564,fx,2760
f,564,fy,1200
f,590,fx,2760
f,590,fy,1200
f,502,fx,2760
f,502,fy,1200
f,528,fx,2760
f,528,fy,1200
f,554,fx,2760
f,554,fy,1200
f,580,fx,2760
f,580,fy,1200
f,606,fx,2760
f,606,fy,1200
f,518,fx,2760
f,518,fy,1200
f,544,fx,2760
f,544,fy,1200
f,570,fx,2760
f,570,fy,1200
f,596,fx,2760
f,596,fy,1200
f,534,fx,2760
f,534,fy,1200
f,560,fx,2760
f,560,fy,1200
f,586,fx,2760
f,586,fy,1200 |