[求助]zemax中zpl程序问题 [复制链接]

各位高手，请教一下，新手学zemax编程，照着敲了一段程序，在zemax中ZPL程序为什么运行不了，还请各位高手指点指点，谢谢！ 5-HJ&Q
 
`uA&w}(G  

图片:111111.jpg

sjgR \`AU  
_kN%6~+U  

图片:222222.jpg

:, [!8QP  
+3>/,w(x  

图片:333333.jpg

z|*6fFE   
3 ?F@jEQk  

图片:444444.jpg

+c`C9RXk  
IGT_ 5te  

图片:555555.jpg

p,\bez  
Q+(:n)G_6E  

图片:666666.jpg

F
M"BTA:C  
lO> 7`2x=F  
ZPL程序代码如下：  /kU@S
 
Y&f[2+?2NK  
! ex30401 [;?{BB  
! This program shows how to create a doublet from scratch Z4o
v  
Q 02??W  
! set system parameters *.%)rm  
SYSP 30, 0     # set lens unit as mm G!Oq>7  
OW}j4-~wL  
SYSP 10, 0     # set system aperture as Entrance Pupil Diameter h)
PB  
SYSP 11, 50     # set system aperture value as 50mm M
ZW Y  
8/?uU]#Q  
SYSP 201, 3     # set total wavelength number as 3 n UCk0:{  
SYSP 202, 1, 0.48613270     # set the 1st wavelength as 0.48613270 micron 9c}]:3#XO  
SYSP 202, 2, 0.58756180     # set the 2nd wavelength as 0.58756180 micron b[o"Uq@8?  
SYSP 202, 3, 0.65627250     # set the 3rd wavelength as 0.65627250 micron /{MH'  
SYSP 203, 1, 1     # set the 1st wavelength weight as 1 JS?l?~  
SYSP 203, 2, 1     # set the 2nd wavelength weight as 1 36WzFq#  
SYSP 203, 3, 1     # set the 3rd wavelength weight as 1 h;Ud
wmT  
x ETVtq  
SYSP 200, 2     # set the 2nd wavelength as the primary wavelength Bj($_2M%+  
LY!3u0PnlT  
SYSP 100, 0     # set the field type as angle 'Oy5G7^R  
SYSP 101, 3     # set the total field number as 3 3KFrVhB=  
SYSP 102, 1, 0     # set  field 1 as x=0 degree `[` *@O(y  
SYSP 103, 1, 0     # set  field 1 as y=0 degree .Xz"NyW  
SYSP 104, 1, 1     # set  field 1 as weight=1 ?Wz(f{Hm  
SYSP 102, 2, 0     # set  field 2 as x=0 degree H&=4y) /.  
SYSP 103, 2, 3.5     # set  field 2 as y=3.5 degree `pAp[]SfQd  
SYSP 104, 2, 1     # set  field 2 as weight=1 gc:p@<  
SYSP 102, 3, 0     # set  field 3 as x=0 degree +6)kX4  
SYSP 103, 3, 5     # set  field 3 as y=5 degree nBIv{  
SYSP 104, 3, 1     # set  field 3 as weight=1 x*"pDI0k)  
\v P2B  
! set surface 1 as stop $17 v,  
STOPSURF 1  !QW 0  
l)PFzIz=V  
! insert 3 surfcaces after stop h:Mn$VR,  
INSERT 2 ($ B]9*  
INSERT 2 `MYKXBM  
INSERT 2 ~v(M6dz~vk  
vQTQS[
R=z  
! set surface parameters VDu .L8  
SURP 1, THIC, 275  # set surface 1 thickness as 275 ?]:EmP  
awSS..g}L  
SURP 2, TYPE, "STANDARD"  # set surface 2 type as "STANDARD",can be omitted \%?8jQ'tX  
SURP 2, COMM, "front f1"  # set surface 2 comment t
k/K0u  
SURP 2, CURV, 1/600  # set surface 2 curvature as 1/600 !_z<W~t"  
SURP 2, THIC, 18  # set surface 2 thickness as 18 @1SKgbt>  
SURP 2, GLAS, "BK7"  # set surface 2 glass type as BK7 i&'^9"Z)O  
p<0kmA<B/  
SURP 3, COMM, "back f1/front f2"  # set surface 3 comment < J<;?%
]  
SURP 3, CURV, -1/115  # set surface 3 curvature as -1/115 uZ`d&CEh  
SURP 3, THIC, 18  # set surface 3 thickness as 18 "K$Wh1<7  
SURP 3, GLAS, "F2"  # set surface 3 glass type as F2 ZJI1NCBZ  
qqt.nrQ^  
SURP 4, COMM, "back f2"  # set surface 4 comment >&Ui*  
SURP 4, CURV, -1/243  # set surface 4 curvature as -1/243 MHr0CYyb.  
SURP 4, THIC, 395  # set surface 4 thickness as 395 60~>f)vu  
}!yD^:[5  
UPDATE

应该是版本的问题，有些宏函数老版本不支持

跑了一遍，代码运行正常。  uRB)g  

多试几次应该可以

Thanks