你歌 发表于 2010-5-20 16:02

怎么把这个循环改为一个载荷步

*DIM,DIS1,TABLE,1024,6,188, , ,   
*DIM,DIS2,TABLE,1024,6,188, , ,
*TREAD,DIS1,'real','txt','data\', ,
*TREAD,DIS2,'imag','txt','data\', ,
/PREP 7
tb,biso,1,1,2
tbdata,,4e8,0,,,,
FINISH
/SOLU
ANTYPE,4
TRNOPT,FULL
NLGEOM,ON
SSTIF,ON
OUTERS,ALL,ALL
AUTOTS,1
KBC,0
dt=0.00048828
*DO,I,1,256
TIME,dt*I
NSUBST,1,0,0
*DO,J,1,188
D,J,UX,DIS1(I,1,J),DIS2(I,1,J)
D,J,UY,DIS1(I,2,J),DIS2(I,2,J)
D,J,UZ,DIS1(I,3,J),DIS2(I,3,J)
D,J,ROTX,DIS1(I,4,J),DIS2(I,4,J)
D,J,ROTY,DIS1(I,5,J),DIS2(I,5,J)
D,J,ROTZ,DIS1(I,6,J),DIS2(I,6,J)
*ENDDO
SOLVE
*ENDDO
FINISH

如果把solve改为lswrite,2,好像只会读最后一步。
应该如何做才把全部步数统一起来?
总共256步。
页: [1]
查看完整版本: 怎么把这个循环改为一个载荷步