e8.12.txt

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

!EX8.12 —铰—固拱非线性分析
finish
/clear
/prep7  
r0=100 
ei=1e6
csys,1  
k,1,r0,197.5 
k,2,r0,90  
k,3,r0,-17.5
l,1,2   
l,2,3
csys,0
et,1,beam3
mp,ex,1,1.0
mp,prxy,1,0
r,1,1e5,ei,0.5
lesize,all,,,30
lmesh,all
/solu
antype,0
dk,1,ux,,,,uy
dk,3,all
nlgeom,1
arclem,1
arctrm,u,160.0,2,uy
nsubst,1000
outres,nsol,all
fk,2,fy,-1000
solve
/post26
nsol,2,2,u,y
nsol,3,2,u,x
prod,4,2,,,,,,-1/r0
prod,5,1,,,,,,1000*r0*r0/ei
prod,6,3,,,,,,-1/r0
xvar,4
plvar,5
xvar,6
plvar,5