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