请问这是一段在zemax环境下写的宏程序吗？

CLOSE WINDOW K)9j je  
DELETEMFO ALL (sV]UGrZ  
W = 5 SgCqxFii  
K= 20 7zJrT5   
sample = 80 EaM"=g  
SYSP 11, W*6   k Z+q  
SYSP 12, 1 q
19k<BqR  
apod_factor =1/POWER((1/3),1) B c,"12  
SYSP 13, apod_factor ,yHzo  
FOR I, 1, sample+1, 1 Z9J =vzsHE  
INSERTMFO I i_[ HcgT-  
SETOPERAND I, 11, “REAY” dt-Qu},8-  
SETOPERAND I, 9, 1 AMh37Xo  
norm_pupil_coord = I/sample d$"G1u~%  
X= norm_ pupil_coord*W*3 NSMjr_  
# Un-normilized pupil coordinate L;.VEz!  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) "%.|n|  
#same as the final equation in the article g33<qYxP  
SETOPERAND I, 8, -S eEWroF  
# set target. Positive input #coordinatehas negative ;S=62_Un  
# output coordinate (positive lens) thusthe negative sign ; d, JN  
SETOPERAND I, 7, norm_pupil_coord */%$6s~  
# Set Py column of the operand aWHd}%  
SETOPERAND I, 2, NSUR() 3i]"#wK  
# specify the image surface for the REAYvalue calculation ~h>rskJ_  
NEXT EFa{O`_@U  
OPTIMIZE 2cs?("8e%  
UPDATE ALL # Update all windows x"(7t3xK  
END