home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / CAL / G.CAL < prev    next >
Encoding:
Text File  |  1993-10-07  |  154 b   |  8 lines
  1. A(x)=g(x)/cos(n-l)/cos(n-x)/PI;
  2. g(x)=min(1,2*cos(n-h(x))/cos(x-h(x))*min(cos(n-x),cos(n-l)));
  3. h(x)=(x+l)/2;
  4. min(a,b)=if(a-b,b,a);
  5.  
  6. n=PI/2;
  7. l=PI/4;
  8.