Artifact 2e6a7c53092ebd03d57642a474936f2db5f140b598a59fd3dfca59b7e21df79d:
- Executable file
r37/packages/residue/residue.rlg
— part of check-in
[f2fda60abd]
at
2011-09-02 18:13:33
on branch master
— Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 2031) [annotate] [blame] [check-ins using] [more...]
Mon Jan 4 00:10:57 MET 1999 REDUCE 3.7, 15-Jan-99 ... 1: 1: 2: 2: 2: 2: 2: 2: 2: 2: 2: 3: 3: % test file for residue package residue(x/(x^2-2),x,sqrt(2)); 1 --- 2 poleorder(x/(x^2-2),x,sqrt(2)); 1 residue(sin(x)/(x^2-2),x,sqrt(2)); sqrt(2)*sin(sqrt(2)) ---------------------- 4 poleorder(sin(x)/(x^2-2),x,sqrt(2)); 1 residue(1/(x-1)^m/(x-2)^2,x,2); - m poleorder(1/(x-1)/(x-2)^2,x,2); 2 residue(sin(x)/x^2,x,0); 1 poleorder(sin(x)/x^2,x,0); 1 residue((1+x^2)/(1-x^2),x,1); -1 poleorder((1+x^2)/(1-x^2),x,1); 1 residue((1+x^2)/(1-x^2),x,-1); 1 poleorder((1+x^2)/(1-x^2),x,-1); 1 residue(tan(x),x,pi/2); -1 poleorder(tan(x),x,pi/2); 1 residue((x^n-y^n)/(x-y),x,y); 0 poleorder((x^n-y^n)/(x-y),x,y); 0 residue((x^n-y^n)/(x-y)^2,x,y); n y *n ------ y poleorder((x^n-y^n)/(x-y)^2,x,y); 1 residue(tan(x)/sec(x-pi/2)+1/cos(x),x,pi/2); -2 poleorder(tan(x)/sec(x-pi/2)+1/cos(x),x,pi/2); 1 for k:=1:2 sum residue((a+b*x+c*x^2)/(d+e*x+f*x^2),x, part(part(solve(d+e*x+f*x^2,x),k),2)); b*f - c*e ----------- 2 f residue(sin(x)/x^6,x,0); 1 ----- 120 residue((1-cos(x))/x^5,x,0); - 1 ------ 24 residue(exp(1/x),x,0); ***** taylor fails % not implemented residue((A*x+B*x^2+c)/(D*x+E),x,-E/D); 2 2 - a*d*e + b*e + c*d ------------------------ 3 d residue(tan(x),x,pi/2); -1 residue(sec(x),x,pi/2); -1 residue(factorial(x),x,0); ***** not yet implemented % ***** not yet implemented residue(x^3/sin(1/x)^2,x,infinity); - 1 ------ 15 poleorder(x^3/sin(1/x)^2,x,infinity); 5 residue(x^3*sin(1/x)^2,x,infinity); -1 poleorder(x^3*sin(1/x)^2,x,infinity); 1 end; 4: 4: 4: 4: 4: 4: 4: 4: 4: Time for test: 590 ms 5: 5: Quitting Mon Jan 4 00:11:07 MET 1999