home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / cal / test.cal < prev    next >
Encoding:
Text File  |  1986-04-07  |  301 b   |  10 lines
  1. inrng(a,b,e)=if(a-b+e,b-a+e,-1);
  2. sqt(x,g,e)=if(inrng(x,g*g,e),g,sqt(x,g*2*x/(x+g*g),e));
  3. fac(n)=if(n-.5,n*fac(n-1),1);
  4. or(a,b)=if(a,1,b);
  5. and(a,b)=if(a,b,-1);
  6. not(a)=if(a,-1,1);
  7. sum(a,s,n)=if(n-.5,f(a)+sum(a+s,s,n-1),0);
  8. integ(a,b,n)=sum(a+(b-a)/n/2,(b-a)/n,n)*(b-a)/n;
  9. pi=3.141592653589793;
  10.