我编了一段小程序，请大侠们给改错，谢谢

zhaoguoqi1986 · 发表于 2011-5-5 17:29

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

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

x

xstep=-91.3
POINT1=66
point2=4
nstep=4
T=0
tstep=0.5

*DIM,D,,POINT1
*DO,M,1,POINT1,1
T=T+TSTEP
D(M) = 400000*T/33
*ENDDO

*DO,M,1,POINT2,1
T=T+TSTEP
D(M) = -20*T+700
*ENDDO
T=0
L=2558
Lstep=120
vx=-457.7
/SOLU
ANTYPE,4
TRNOPT,FULL
LUMPM,0
OUTRES,NSOL,ALL,
AUTOTS,-1

*DO,M,1,POINT1,1

/AUTO,1
/REP,FAST
FLST,2,2,5,ORDE,2
FITEM,2,111
FITEM,2,768

SFA,P51X,1,PRES,D(M)

NSEL,S,LOC,Y,945
NSEL,R,LOC,X,L,L+Lstep
D,P51X, ,vx, , , ,VELX, , , , ,
ALLSEL,ALL
T=T+tstep
TIME,T
NSUBST,nstep, , ,1
KBC,0
TSRES,ERASE
SOLVE

NSEL,S,LOC,Y,945
NSEL,R,LOC,X,L,L+Lstep
DDELE,P51X,VELX
ALLSEL,ALL
L=L+Lstep
*ENDDO


FINISH

tenglang · 发表于 2011-5-5 23:09

什么语言，lisp?

zhaoguoqi1986 · 发表于 2011-5-6 08:47

回复 2 # tenglang 的帖子

ansys程序

Rainyboy · 发表于 2011-5-6 14:52

没有注释，没有说明，怎么改？

tenglang · 发表于 2011-5-6 19:37

呵呵, APDL流? 都忘光了

zhaoguoqi1986 · 发表于 2011-11-1 08:59

回复 4 # Rainyboy 的帖子

能留下qq吗？请教一下

账号		自动登录	找回密码
密码			我要加入

[机械工程] 我编了一段小程序，请大侠们给改错，谢谢

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