声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1090|回复: 0

[前后处理] 怎么把这个循环改为一个载荷步

[复制链接]
发表于 2010-5-20 16:02 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

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步。
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-5-10 20:40 , Processed in 0.055899 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表