DO语句出错

liuyy0331

<P>运行过程中出现了“No *Do trips&nbsp;need,enter *Enddo”,请高手们指点一下，谢谢</P>
<P>下面是代码:</P>
<P>*DO,I,1,MAX_X,1 <BR>*DO,J,1,MAX_Y,1 <BR>*DO,now_n,1,num_n,1<BR>qiou=(-1)**now_n<BR>*IF,qiou,LT,0.5,THEN<BR>XCENTER=V*(K-1-0.004/time_ba)*TINC<BR>*ELSE<BR>XCENTER=V*(K-1+0.004/time_ba)*TINC+wide<BR>*ENDIF&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>YCENTER=0<BR>Xcoord=XCENTER-(I-1)*LSIZE<BR>Ycoord=YCENTER-(J-1)*LSIZE<BR>DISTANCE=SQRT(xcoord**2+ycoord**2)<BR>*IF,DISTANCE,LE,2*R,THEN<BR>FLUX2(I,J,k)=Qmax*EXP(-KK*DISTANCE**2/(R**2))<BR>*ELSE<BR>FLUX2(I,J,k)=0<BR>*ENDIF<BR>*ENDDO <BR>*ENDDO <BR>*ENDDO </P>

[ 本帖最后由 liuyy0331 于 2008-5-15 17:09 编辑 ]

zzhhsshh

没看清楚