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

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

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吗？请教一下
页: [1]
查看完整版本: 我编了一段小程序，请大侠们给改错，谢谢