e9.08.txt

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

!ex9.8 斜索的谐响应分析
finish
/clear
/prep7
a=0.006272
em=1.95e11
et,1,link1
mp,ex,1,em
mp,prxy,1,0.3
mp,dens,1,53/a
r,1,a
csys,1
k,1
k,2,110,38
l,1,2
lesize,all,,,55
lmesh,all
nrotat,all
d,1,all
d,2,uy,,,56
f,2,fx,4e6
/solu
antype,0
pstres,on
acel,,9.8
solve
finish
/solu
antype,harmic
hropt,full
pstres,on
acel,0,0,0
fdele,2,fx
ddel,3,uy,56
f,4,fy,1000
alphad,0.1
kbc,1
harfrq,0,7
nsubst,100
outres,all,all
solve
finish
/post26
nsol,2,29,u,y
nsol,3,29,u,x
plvar,2,3
/post1
set,list
set,1,18
pldisp,1