finish
/clear
/prep7
et,1,beam188
et,2,link180
et,3,Cable280
!梁截面
sectype,1,beam,ctube
secdata,203/2-6,203/2
!撑杆截面
sectype,2,link
secdata,234
!拉索截面
sectype,3,link
secdata,346
!================
mp,ex,1,2.06e5
mp,dens,1,7850e-12
mp,prxy,1,0.3
mp,ex,2,1.8e5
mp,dens,2,7850e-12
mp,prxy,2,0.3
!==================
k,1
k,2,20000
k,3,10000,-1100
Larc,1,2,3,21000
L,1,3
L,3,2
wprota,,,90
wpoffs,,,5000
lsbw,all
wpoffs,,,5000
lsbw,all
wpoffs,,,5000
lsbw,all
L,4,5$L,3,6$L,8,7
!梁划分
lsel,s,,,6,10,4
lsel,a,,,2,5,3
secnum,1
latt,1,,1
lesize,all,,,10
lmesh,all
!撑杆划分
lsel,s,,,1,3,2
lsel,a,,,11
secnum,2
latt,1,,2
lesize,all,,,1
lmesh,all
!拉索划分
allsel,all
lsel,u,mat,,1
secnum,3
latt,2,,3
lesize,all,,,1
lmesh,all
!=============
!施加初应力
esel,s,ename,,280
inistate,set,csys,elem
inistate,set,dtyp,stre
inistate,define,,,,,100
allsel,all
!=============
dk,1,ux,0,,,uy,uz
dk,2,uy,0,,,uz,ux
allsel,all
d,all,uz,0
/solu
allsel,all
nsubst,1000
nlgeom,on
time,1
cnvtol,m,-1
autots,on
acel,,9800
solve
/post1
set,last
/eshape,1
plnsol,u,y
计算结果如下:
暂无评论内容