"KILL=453.

不学无术

报错：
The current group of characters is interpreted as a name beginning with character other than a letter.  The first character of a name must be a letter."

程序如下：
MODEL 1
CONST Tmax (VAL:500)
Im (VAL:30.e3)  
6 X/ O. m+ w# s. @- P2 V6 g7 pT1 (VAL:2.e-6)  
) V/ ?3 M) o4 {2 J" uT2 (VAL:50.e-6)  
- N  Q# ]) |) ?6 v  g" @0 n' t) um (VAL:5)
c (VAL:3.e8)  
7 v$ l* D# s7 I8 O9 J+ e% uv (VAL:1.1e8)
Io (VAL:1)   
z (VAL:6)  
9 j6 M6 E. _, RINPUT UAP,UBP,UAN,UBN  
8 _1 K: `7 U5 p- {# i( |DATA Y,XA,XB  
OUTPUT UrAP,UrBP,UrAN,UrBN  
$ l+ k" O  }' a( F8 M7 c9 V& QVAR UindA[0..1000],UindB[0..1000],dI[0..1000],
0 J( h' S. j* e0 jTr,Ti,I,e,dt,UrAP,UrBP,UrAN,UrBN,
8 z+ u, l* |1 [( ]" sta,tb,b,n,L,x,Ko,Ui,Tj
FUNCTION SQR(x):=x*x
FUNCTION F(x,tr):=(x+b*b*(c*tr-x))/sqrt(sqr(v*tr)+(1-b*b)*(x*x+y*y))
% V9 x9 e  K" ~' d4 `FUNCTION U0(x,tr):=60*Io*z*b*(c*tr-x)/(y*y+sqr(b*(c*tr-x)))
HISTORY
$ e1 A6 L# X: mUrAP (dflt:0), UrBP (dflt:0)
; ^3 l: l6 d; |7 ^9 J- L1 J  _UrAN (dflt:0), UrBN (dflt:0)
UAP (dflt:0), UBP (dflt:0)
8 i4 |) Z- d; O* R+ [% A# UUAN (dflt:0), UBN (dflt:0)
INIT
dt:= timestep
b:=v/c
) ~0 g& D5 L7 q7 s; b2 }  Y5 U5 SL:=XA-XB
" n6 ^1 o+ w5 h# OFOR Tj:=1 TO 2 DO
if Tj=1 then
" k6 s7 M3 n7 b' w+ _1 ox:=XA
else
x:=-XB
end if
ta:=sqrt(x*x+y*y)/c
tb:=sqrt(sqr(x-L)+y*y)/c
5 e% {+ z. i- |. y- DFOR Ti:=0 TO Tmax DO
2 [/ b  N' ]9 lTr:=Ti*dt
9 c6 ?# B% B8 `! u- h2 H+ W% K$ V) _% _if Tr>ta
, a2 h# R& L. p1 D0 x/ Rthen
if Tr>tb+L/c
then
4 D# O$ m2 l) tUi:=U0(x,Tr)*(f(x,Tr)-f(x-L,Tr-L/c))
  l+ o- F4 J, h6 L" R2 B; A+ S9 U) @else
2 ], k! O% x( s/ `Ui:=U0(x,Tr)*(f(x,Tr)+1)
6 C, x8 s3 D* E% C; tend if
2 O7 ]* ]0 k: {else
Ui:=0
end if
5 V9 ?$ v$ _; _$ H; Fif Tj=1 then
UindA[Ti]:=Ui else
; T7 A3 P4 w& \9 K' v9 U1 t. [+ aUindB[Ti]:=Ui
! S* O' L" A4 q9 D. ?endif
END FOR
END FOR
4 G, J( @  N: J# X% SFOR Ti:=0 TO Tmax DO  
Tr:=Ti*dt
# v; d: {4 ^# B: DIF (Ti=0) THEN dI[0]:=0
ELSE
e:=exp(-(T1/T2)*exp(ln(m*T2/T1)/m))
! G! }# i" F( v. P. F$ \6 J2 i2 \I:=Im/e*exp(m*ln(Tr/T1))/(exp(m*ln(Tr/T1))+1)*exp(-Tr/T2)
dI[Ti]:=I*((m/Tr)/(exp(m*ln(Tr/T1))+1)-1/T2)
END IF
1 D* |4 d5 B( c' t" z4 eEND FOR
4 \3 H5 D# c5 H! G' kTi:=Tmax
WHILE Ti>1 DO
FOR Tr:=1 TO Ti-1 DO
UindA[Ti]:=UindA[Ti]+UindA[Tr]*dI[Ti-Tr]*dt
9 g) r0 [0 I6 rUindB[Ti]:=UindB[Ti]+
) _1 }+ v4 v* x. v/ x0 @6 CUindB[Tr]*dI[Ti-Tr]*dt
ENDFOR
3 W! I! U5 S3 k6 P" a8 JTi:=Ti-1
: W- G) o3 }" M4 K& ^  ^END WHILE

2 u- m( w: h1 D6 X  O- W2 B2 d! Y5 JTr:=L/c
END INIT
EXEC
UrAP:=UindA[t/dt]+2*delay(UBP,Tr-dt,1)-delay(UrBP,Tr,1)
UrAN:=UindA[t/dt]+2*delay(UBN,Tr-dt,1)-delay(UrBN,Tr,1)
UrBP:=UindB[t/dt]+2*delay(UAP,Tr-dt,1)-delay(UrAP,Tr,1)
  K7 l8 |5 g' ]: JUrBN:=UindB[t/dt]+2*delay(UAN,Tr-dt,1)-delay(UrAN,Tr,1)
END EXEC
END MODEL
( }9 x% C! @4 ~) a5 @' N0 ^
9 a) w/ f6 P. ?- C1 x
! l5 b( e1 t( F: b9 @

不学无术

找不出错了，有高手吗

点电灯

楼主，很抱歉，我是新手，看不出来问题，但是我又一个问题想请教一下楼主，楼主的MODEL编程是通过什么资料学习的？