"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."

程序如下：
6 }: W$ D4 R. RMODEL 1
CONST Tmax (VAL:500)
Im (VAL:30.e3)  
* c4 }) j- ?; B) B' C+ mT1 (VAL:2.e-6)  
, G  O. h  c# ^! L% @$ X6 hT2 (VAL:50.e-6)  
m (VAL:5)
c (VAL:3.e8)  
v (VAL:1.1e8)
Io (VAL:1)   
1 E. y* z% x4 Q- X. a  kz (VAL:6)  
; S7 M% C/ D6 e2 m- d1 i- l! ]% G. eINPUT UAP,UBP,UAN,UBN  
5 l1 ^# D, P% O. zDATA Y,XA,XB  
$ S* x( A! c% J, Q! V' qOUTPUT UrAP,UrBP,UrAN,UrBN  
5 \% c, d  S9 ^6 E8 eVAR UindA[0..1000],UindB[0..1000],dI[0..1000],
Tr,Ti,I,e,dt,UrAP,UrBP,UrAN,UrBN,
  H3 @% U4 L  y  ?. Sta,tb,b,n,L,x,Ko,Ui,Tj
; ?% f" u3 M9 h. P( |+ l' }- w5 JFUNCTION 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))
) c0 \$ ?" @/ S* I: ~FUNCTION U0(x,tr):=60*Io*z*b*(c*tr-x)/(y*y+sqr(b*(c*tr-x)))
HISTORY
UrAP (dflt:0), UrBP (dflt:0)
' c0 M" T) N7 B' b5 s( `UrAN (dflt:0), UrBN (dflt:0)
UAP (dflt:0), UBP (dflt:0)
7 _* ~2 \  V% L. v" n. f0 O/ XUAN (dflt:0), UBN (dflt:0)
5 u5 }  T4 q6 g* B: `" Z" jINIT
dt:= timestep
b:=v/c
L:=XA-XB
FOR Tj:=1 TO 2 DO
if Tj=1 then
0 r, Z- ?- X/ A8 C, n) G, Z/ u4 ux:=XA
else
9 [+ ]- L0 K& p$ `x:=-XB
0 Y$ V! J6 Z& Q. {. ?end if
ta:=sqrt(x*x+y*y)/c
tb:=sqrt(sqr(x-L)+y*y)/c
FOR Ti:=0 TO Tmax DO
Tr:=Ti*dt
5 i  |9 b  f1 _" Z7 c% Gif Tr>ta
then
& s3 p4 i' ^+ L) H3 u" Pif Tr>tb+L/c
then
Ui:=U0(x,Tr)*(f(x,Tr)-f(x-L,Tr-L/c))
else
Ui:=U0(x,Tr)*(f(x,Tr)+1)
- a- k7 `9 t! iend if
0 ^0 E5 g0 P4 uelse
Ui:=0
end if
if Tj=1 then
UindA[Ti]:=Ui else
6 ^1 i- \% w, r' |7 d. U* UUindB[Ti]:=Ui
endif
3 E( m, G1 I& g+ C4 AEND FOR
END FOR
6 M, _1 c  G: p+ D1 VFOR Ti:=0 TO Tmax DO  
$ J# {" b1 j+ x, g2 VTr:=Ti*dt
IF (Ti=0) THEN dI[0]:=0
ELSE
e:=exp(-(T1/T2)*exp(ln(m*T2/T1)/m))
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
END FOR
Ti:=Tmax
* y7 N* T! \. u* ?$ I2 b$ jWHILE Ti>1 DO
+ Y2 j$ ]7 E/ M4 \) aFOR Tr:=1 TO Ti-1 DO
UindA[Ti]:=UindA[Ti]+UindA[Tr]*dI[Ti-Tr]*dt
UindB[Ti]:=UindB[Ti]+
* @9 i0 q4 U2 {. n3 d- \; q% VUindB[Tr]*dI[Ti-Tr]*dt
2 [  f" \8 L: _* X7 i3 b  b6 m3 VENDFOR
Ti:=Ti-1
END WHILE

Tr:=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)
0 m: {0 R2 a% @8 ]- ]$ i3 z0 ?# lUrBP:=UindB[t/dt]+2*delay(UAP,Tr-dt,1)-delay(UrAP,Tr,1)
UrBN:=UindB[t/dt]+2*delay(UAN,Tr-dt,1)-delay(UrAN,Tr,1)
* \0 `  f* X, m# |" L3 h) TEND EXEC
7 g; E, w7 y7 @1 KEND MODEL

' G# D8 L+ m4 A9 Q

不学无术

找不出错了，有高手吗

点电灯

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