ZEMAX宏学习5

学习4： 利用宏进行光线追迹
REM ex30801
REM this program shows how to do ray tracing
REM assume the lens system is defined in ex30401

REM define the marginal ray
hx = 0
hy = 0
px = 0
py = 1
wavelength = 2

RAYTRACE hx, hy, px, py, wavelength #trace the marginal ray

PRINT
FOR n = 3, NSUR(), 1 #go through the last 3 surfaces
PRINT "marginal ray, surface ", n
PRINT "cross position: ", RAYX(n), “,”, RAYY(n), “,”, RAYZ(n)
PRINT "ray direction: ", RAYL(n), “,”, RAYM(n), “,”, RAYN(n)
PRINT "surface normal: ", RANX(n), “,”, RANY(n), “,”, RANZ(n)
NEXT n

REM define the chief ray
hx = 0
hy = 1
px = 0
py = 0

RAYTRACE hx, hy, px, py, wavelength #trace the chief ray, use primary wavelength

PRINT
FOR n = 4, NSUR(), 1 #go through the last 2 surfaces
PRINT "chief