buckle2.txt

来自「ansys.com上的ansys命令流,主要为热,流体,接触分析方面的内容」· 文本 代码 · 共 109 行

finish
/clear
/filname,exercise4


/prep7
/title,large deflections of a buckled bar(the elastic)

et,1,beam3,,,,,,1
r,1,0.25,52083e-7,0.5

mp,ex,1,3e7
mp,prxy,1,0.3



n,1
n,11,,100
fill
e,1,2
egen,10,1,1
finish

/solu
antype,static
nlgeom,on
neqit,150
outpr,basic,last
d,1,all
fcr=-38.55
PI=3.1415926
f,11,fy,fcr*1.015
f,11,fx,0.5
solve

fDELE,11,fx
f,11,fy,fcr*1.063
solve

f,11,fy,fcr*1.152
solve

f,11,fy,fcr*1.293
solve

f,11,fy,fcr*1.518
solve

f,11,fy,fcr*1.884
solve


/post1
/user
/focus,,50,50
/dscale,,1
/dist,,55

set,1,0
pldisp,1

/noerase
set,2,0
pldisp,1

set,3,0
pldisp,1
*get,ux3,node,11,u,x
*get,uy3,node,11,u,y
*get,rot3A,node,11,ROT,Z

set,4,0
pldisp,1
*get,ux4,node,11,u,x
*get,uy4,node,11,u,y
*get,rot4A,node,11,ROT,Z

set,5,0
pldisp,1
*get,ux5,node,11,u,x
*get,uy5,node,11,u,y
*get,rot5A,node,11,ROT,Z

set,6,0
pldisp,1
*get,ux6,node,11,u,x
*get,uy6,node,11,u,y
*get,rot6A,node,11,ROT,Z

*set,rot6,(180*rot6A/PI)
*set,rot5,(180*rot5A/PI)
*set,rot4,(180*rot4A/PI)
*set,rot3,(180*rot3A/PI)
*STATUS,PARM
FINISH