e8.13.txt

来自「王新敏的ANSYS工程结构数值分析命令流 王新敏的ANSYS工程结构数值分析命」· 文本 代码 · 共 39 行

!-------------------------------
!EX8.13 完善拱的几何非线性分析
!变形永远是正对称
finish
/clear
/prep7
r0=100
e=1e7
a=0.32
i0=1
h0=40
l0=160
et,1,beam3
mp,ex,1,e
r,1,a,i0,0.5
k,1,-l0/2
k,2,0,h0
k,3,l0/2
larc,1,2,3,r0
larc,2,3,1,r0
lesize,all,,,100
lmesh,all
/solu
antype,0
nlgeom,1
arclen,1
outres,all,all
nsubst,100
dk,1,ux,,,,uy
dk,3,ux,,,,uy
fk,2,fy,-30000
solve
finish
/post26
nsol,2,2,u,y
prod,3,2,,,,,,-1
prod,4,1,,,,,,30
xvar,3
plvar,4