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

各位高手，请教一下，新手学zemax编程，照着敲了一段程序，在zemax中ZPL程序为什么运行不了，还请各位高手指点指点，谢谢！ a}/A]mu  
aO$I|!tl  

图片:111111.jpg

rl](0"Y0 t  
E4N{;'  

图片:222222.jpg

5}"9)LT@@w  
% (x9~"  

图片:333333.jpg

<GO 5}>}p8  
me&'BQ  

图片:444444.jpg

@j=Q$k.GF  
FkY <I]F  

图片:555555.jpg

4b:q84  
3/0E9'  

图片:666666.jpg

bGe@yXId5  
xv>]e <":  
ZPL程序代码如下： N)^` 15w  
'yR)z\)  
! ex30401 Ud'/ 9:P  
! This program shows how to create a doublet from scratch )lrmP(C*.a  
 &'<e9  
! set system parameters LF\HmKM,  
SYSP 30, 0     # set lens unit as mm 6$A>%Jtwe  
x /E<@?*:  
SYSP 10, 0     # set system aperture as Entrance Pupil Diameter .*Ylj2nM  
SYSP 11, 50     # set system aperture value as 50mm 8zzY;3^h;  
{>n\B~*,"C  
SYSP 201, 3     # set total wavelength number as 3 IcP\#zhEv  
SYSP 202, 1, 0.48613270     # set the 1st wavelength as 0.48613270 micron aV`_@F-8  
SYSP 202, 2, 0.58756180     # set the 2nd wavelength as 0.58756180 micron bn6WvC3?  
SYSP 202, 3, 0.65627250     # set the 3rd wavelength as 0.65627250 micron EN;s 8sC!  
SYSP 203, 1, 1     # set the 1st wavelength weight as 1 V3<H8pL  
SYSP 203, 2, 1     # set the 2nd wavelength weight as 1 JBt2R=  
SYSP 203, 3, 1     # set the 3rd wavelength weight as 1 {Etvu  
g}n-H4LI  
SYSP 200, 2     # set the 2nd wavelength as the primary wavelength T?HW=v_a  
xSy`VuSl  
SYSP 100, 0     # set the field type as angle :B 9>  
SYSP 101, 3     # set the total field number as 3 Tqj:C8K{  
SYSP 102, 1, 0     # set  field 1 as x=0 degree 4Be'w`Q {  
SYSP 103, 1, 0     # set  field 1 as y=0 degree u4vyj#V  
SYSP 104, 1, 1     # set  field 1 as weight=1 szC<ht?z  
SYSP 102, 2, 0     # set  field 2 as x=0 degree $*hqF1Q  
SYSP 103, 2, 3.5     # set  field 2 as y=3.5 degree Z|$M 9E  
SYSP 104, 2, 1     # set  field 2 as weight=1 _T\cJcWf  
SYSP 102, 3, 0     # set  field 3 as x=0 degree H<Ik.]m  
SYSP 103, 3, 5     # set  field 3 as y=5 degree ;{89*e*)  
SYSP 104, 3, 1     # set  field 3 as weight=1 h'
ik19  
VMIX=gTZ  
! set surface 1 as stop yXT8:2M  
STOPSURF 1 F(KsB5OY?  
9wbj}tN\z  
! insert 3 surfcaces after stop .W s\%S  
INSERT 2 D1R$s*{  
INSERT 2 1Y'NG<d_  
INSERT 2 wl7 (|\-  
|wINb~trz  
! set surface parameters D0^h;wJ=4+  
SURP 1, THIC, 275  # set surface 1 thickness as 275 #ADm^UT^  
{2F@OfuCF  
SURP 2, TYPE, "STANDARD"  # set surface 2 type as "STANDARD",can be omitted a(uZ}yS$  
SURP 2, COMM, "front f1"  # set surface 2 comment #+#^cqjZ  
SURP 2, CURV, 1/600  # set surface 2 curvature as 1/600 ZXl_cq2r  
SURP 2, THIC, 18  # set surface 2 thickness as 18 =~_
  
SURP 2, GLAS, "BK7"  # set surface 2 glass type as BK7 @L$!hT
aP  
{hFH6]TA  
SURP 3, COMM, "back f1/front f2"  # set surface 3 comment Q|xa:`3?  
SURP 3, CURV, -1/115  # set surface 3 curvature as -1/115 ?kdan  
SURP 3, THIC, 18  # set surface 3 thickness as 18 H)+QkQ
b}  
SURP 3, GLAS, "F2"  # set surface 3 glass type as F2 Kk`LuS?  
%'OY  
SURP 4, COMM, "back f2"  # set surface 4 comment Jb*E6-9G  
SURP 4, CURV, -1/243  # set surface 4 curvature as -1/243 +\]Gu(z<  
SURP 4, THIC, 395  # set surface 4 thickness as 395 2F :8=_sA  
"S H=|5+  
UPDATE

Thanks

多试几次应该可以

跑了一遍，代码运行正常。 s&Y"a,|Z  

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