Evaluation of Geometrical Modulation Transfer Function in Optical Lens System

Algorithm 1

The transfer algorithm for real ray tracing.

typeXYZ TProcess(typeXYZ p_1,typeLMN LMN,double d,double C,doublecosI)

 double x0,y0,z0;

 double delta,F,G;

 double tmp;

 typeXYZ p;

 x0=p_1.x+LMN.L/LMN.N(d-p_1.z); //

 y0=p_1.y+LMN.M/LMN.N(d-p_1.z); //

 z0=0;

 F=C(x0x0+y0y0); //

 G=LMN.N-C(LMN.Lx0+LMN.My0); //

 tmp=GG-CF;

 cosI=sqrt(tmp); //

 delta=F/(G+cosI); //

 p.x=x0+LMN.Ldelta;     //

 p.y=y0+LMN.Mdelta;    //

 p.z=LMN.Ndelta;    //

 return p;