马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
*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步。 |