cal/cal/test.cal

inrng(a,b,e)=if(a-b+e,b-a+e,-1);
sqt(x,g,e)=if(inrng(x,g*g,e),g,sqt(x,g*2*x/(x+g*g),e));
fac(n)=if(n-.5,n*fac(n-1),1);
or(a,b)=if(a,1,b);
and(a,b)=if(a,b,-1);
not(a)=if(a,-1,1);
sum(a,s,n)=if(n-.5,f(a)+sum(a+s,s,n-1),0);
integ(a,b,n)=sum(a+(b-a)/n/2,(b-a)/n,n)*(b-a)/n;
pi=3.141592653589793;
Revision:	1.2
Committed:	Thu Apr 20 17:46:49 2006 UTC (18 years, 1 month ago) by greg
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	This should have been removed long ago as it serves no useful purpose
#	Content
1	inrng(a,b,e)=if(a-b+e,b-a+e,-1);
2	sqt(x,g,e)=if(inrng(x,gg,e),g,sqt(x,g2x/(x+gg),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;