Revision: | 1.1 |
Committed: | Sat Feb 22 02:07:21 2003 UTC (21 years, 2 months 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 |
# | User | Rev | Content |
---|---|---|---|
1 | greg | 1.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; |