e4.15.txt

来自「185个ANSYS工程结构数值分析非常实用的命令流」· 文本 代码 · 共 40 行

!ex4.15 端点自由度释放
finish
/clear
/prep7
et,1,beam189
mp,ex,1,2.1e11
mp,prxy,1,0.3
sectype,1,beam,csolid
secdata,0.2
k,1
k,2,10
k,3,15,5
k,4,10,5
l,1,2
l,2,3
latt,1,,1,,4,,1
lesize,all,,,10
lmesh,all
finish
/solu
lsel,s,loc,y,0
esll
sfbeam,all,1,pres,40000
dk,1,all
dk,3,all
allsel
nlist
elist
endrelease,,30,ball
nlist
elist
cplist
solve
finish
/post1
etable,m1,smisc,2
etable,m2,smisc,15
plls,m1,m2