循环加载求解实例

小黑杨萍

/PREP7
et,1,beam188
mp,ex,1,2.06e11
mp,nuxy,1,0.3
mp,dens,1,7800
k,1,0,0,0
k,2,1,0,0
lstr,1,2
lesize,1,,,10
type,1
mat,1
secnum,1
SECTYPE,   1, BEAM, RECT, , 0   
SECOFFSET, CENT
secdata,0.05,0.06
lmesh,all
d,1,,,,,,all
*do,i,1,4
F,2,FY,-100  
LSWRITE,%i%,
DOFSEL,S, ,
FCUM,ADD,1,
DOFSEL,ALL
*enddo
/solu
*do,j,1,4
LSREAD,j,   
/STATUS,SOLU
SOLVE   
*enddo
FINISH
/ESHAPE,1.0

ahua326

有什么意思吗？

cream

值得学习！