e4.25.txt

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

!EX4.25 简支转固结的过程
finish
/clear
/prep7
b0=0.2
h0=0.3
lp=4.0
et,1,beam3
mp,ex,1,2e11
mp,prxy,1,0.3
r,1,b0*h0,b0*h0*h0*h0/12,h0
k,1
k,2,lp/2
k,3,lp
l,1,2
l,2,3
lesize,all,,,5
lmesh,all
/solu
!简支时跨中作用一集中荷载p0
p0=8000
d,1,ux,,,,,uy
d,7,uy
f,2,fy,-p0
solve
!将简支变为固结
d,1,rotz,rotz(1)
d,7,rotz,rotz(7)
d,7,ux,ux(7)
sfbeam,all,1,pres,1200
solve
/post1
etable,mi,smisc,6
etable,mj,smisc,12
plls,mi,mj,-1