ZEMAX优化时限定像面入射角度的宏

!=========================================================
! 限定像面在指定视场范围内的主光线入射角度。命名为ZPLxx.zpl，放入Zemax/Macros目录就
!以使用。控制像面入射角度，有助于找出更易量产的设计。
! PoxenStudio (PoxenStudio@gmail.com)
!(为光学从业者提供软件辅助及程序设计的服务与支持。服务的软件包括Zemax,CodeV,OSLO,
! TracePro, AutoCAD, PRO-E等。也进行多种数据分析与转换，如Zygo仪器测量数据,轮廓仪测量数据)
!参数:
!  Data# ----> 0  允许的最大主光线角度
!  HX -----> 起始视场
!  HY -----> 结束视场
!  PX,PY未使用
!=========================================================
MAXAngle=0
SURNUM=NSUR()
IF (PVHX()<0) | (PVHX()>1)
    STARTF=0
ELSE
    STARTF=PVHX()
ENDIF
IF (PVHX()<0) | (PVHX()>1)
    ENDTF=1
ELSE
    ENDTF=PVHY()
ENDIF
FOR I=STARTF,ENDTF,0.02
    RAYTRACE 0,I,0,0,PWAV()
      TanValue=(RAGY(SURNUM)-RAGY(SURNUM-1))/(RAGZ(SURNUM)-RAGZ(SURNUM-1))
      Angle=ATAN(TanValue)
      Angle=180*Angle/3.141592653589793
       IF (ABSO(Angle)>ABSO(MAXAngle)) THEN MAXAngle=Angle
   
NEXT
    RAYTRACE 0,ENDTF,0,0,PWAV()
     TanValue=(RAGY(SURNUM)-RAGY(SURNUM-1))/(RAGZ(SURNUM)-RAGZ(SURNUM-1))
     Angle=ATAN(TanValue)
     Angle=180*Angle/3.141592653589793
      IF (ABSO(Angle)>ABSO(MAXAngle)) THEN MAXAngle=Angle
  
    OPTRETURN 0=MAXAngle

高人啊，感谢！！！！