ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/cal/test.cal
Revision: 1.1
Committed: Sat Feb 22 02:07:21 2003 UTC (21 years, 1 month ago) by greg
Branch: MAIN
CVS Tags: rad3R7P1, rad3R7P2, rad3R5, rad3R6, rad3R6P1
Log Message:
Changes and check-in for 3.5 release
Includes new source files and modifications not recorded for many years
See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release

File Contents

# Content
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;