zemax软件直接可以用

zemax光学设计软件，直接可以用，免去安装

#include 
#include 
#include 
#include 
#include “usersurf.h“

/*
May 28 1998 Written by Kenneth E. Moore
Sep 15 2000 decreased iteration step size and added sphere intercept. JFS
May 15 2001 corrected surface derivative. KEM
*/

int __declspec（dllexport） APIENTRY UserDefinedSurface（USER_DATA *UD FIXED_DATA *FD）;

/* a generic Snells law refraction routine */
int Refract（double thisn double nextn double *l double *m double *n double ln double mn double nn）;

BOOL WINAPI DllMain （HANDLE hInst ULONG ul_reason_for_call LPVOID lpReserved）
	{
   return TRUE;
   }

/*

This DLL models an anamorphic aspheric surface.

This surface is essentially an even aspheric surface with different terms for
the x and y directions.

The sag is given by:

Z = （（CX*x*x）+（CY*y*y）） / （1 + sqrt（1-（（1+KX）*CX*CX*x*x）-（（1+KY）*CY*CY*y*y）））

+ AR*（ （1 - AP）*x*x + （1 + AP）*y*y ）^2
+ BR*（ （1 - BP）*x*x + （1 + BP）*y*y ）^3
+ CR*（ （1 - CP）*x*x + （1 + CP）*y*y ）^4
+ DR*（ （1 - DP）*x*x + （1 + DP）*y*y ）^5

Note the terms AR BR CR and DR ... have units of length to the -3 -5 -7 and -9 power.

The terms AP BP CP and DP are dimensionless.

The surface is rotationally symmetric only if AP = BP = CP = DP == 0 and CX = CY and KX = KY.

*/

int __declspec（dllexport） APIENTRY UserDefinedSurface（USER_DATA *UD FIXED_DATA *FD）
	{
   int i loop;
   double alpha xpower ypower t tp x y z dz sag mx my;
   double AR BR CR DR AP BP CP DP CX CY KX KY X2 Y2 temp;


   switch（FD->type）
   	{
      case 0:
      	/* ZEMAX is requesting general information about the surface */
         switch（FD->numb）
         	{
            case 0:
            	/* ZEMAX wants to know the name of the surface */
		         /* do not exceed 12 characters */
		         strcpy（UD->string“Anamorphic“）;
               break;
            case 1:
            	/* ZEMAX wants to know if this surface is rotationally symmetric */
               /* it is not so return a null string */
            	UD->string[0] = ‘\0‘;
               break;
            case 2:
            	/* ZEMAX wants to know if this surface is a gradient index media */
               /* it is not so return a null string */
            	UD->string[0] = ‘\0‘;
            	break;
            }
         break;
      case 1:
      	/* ZEMAX is requesting the names of the parameter columns */
         /* the value FD->numb will indicate which value ZEMAX wants. */
         /* Only “q“ in parameter 1 is used for this surface type */
         /* returning a null string indicates that the parameter is unused. */
         switch（FD->numb）
         	{
            case 1:
            	strcpy（UD->string “Cx“）;
               break;
            case 2:
            	strcpy（UD->string “Cy“）;
               break;
            case 3:
            	strcpy（UD->string “Kx“）;
               break;
        

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1302  2005-02-02 12:14  ZEMAX\ABg_Data\ABG_DATA.DAT

     文件       2421  2005-02-02 12:14  ZEMAX\Coatings\COATING.DAT

     文件        189  2005-02-02 12:14  ZEMAX\DEFAULT.NOT

     文件     103602  2005-02-02 12:14  ZEMAX\Demo.hlp

     文件        116  2009-12-28 08:31  ZEMAX\DESKTOP.CFG

     文件       1652  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\usersurf.h

     文件       6656  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.c

     文件      49152  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.dll

     文件       4232  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.dsp

     文件        539  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.dsw

     文件      33792  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.ncb

     文件      48640  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.opt

     文件       1260  2005-02-02 12:14  ZEMAX\DLL\User Defined Surface Project file sample\us_stand.plg

     文件       2009  2005-02-02 12:14  ZEMAX\DLL\usersurf.h

     文件      14081  2005-02-02 12:14  ZEMAX\DLL\us_anamr.c

     文件      53248  2005-02-02 12:14  ZEMAX\DLL\us_anamr.dll

     文件       9788  2005-02-02 12:14  ZEMAX\DLL\us_anasp.c

     文件      83875  2005-02-02 12:14  ZEMAX\DLL\us_anasp.dll

     文件       8342  2005-02-02 12:14  ZEMAX\DLL\us_apgxy.c

     文件      53248  2005-02-02 12:14  ZEMAX\DLL\us_apgxy.dll

     文件      11318  2005-02-02 12:14  ZEMAX\DLL\us_array.c

     文件      53248  2005-02-02 12:14  ZEMAX\DLL\us_array.dll

     文件      16593  2005-02-02 12:14  ZEMAX\DLL\us_arrayeven.c

     文件      45056  2005-02-02 12:14  ZEMAX\DLL\us_arrayeven.dll

     文件      10142  2005-02-02 12:14  ZEMAX\DLL\us_biconicasphere.c

     文件      45056  2005-02-02 12:14  ZEMAX\DLL\US_BiconicAsphere.dll

     文件      10135  2005-02-02 12:14  ZEMAX\DLL\us_cylar.c

     文件      40960  2005-02-02 12:14  ZEMAX\DLL\us_cylar.dll

     文件       8560  2005-02-02 12:14  ZEMAX\DLL\us_dgcyl.C

     文件      83731  2005-02-02 12:14  ZEMAX\DLL\us_dgcyl.dll

............此处省略1010个文件信息