Artifact bd2860fd5de4e7912795d8c0010572fb478f08c5cdff7e725776041b23c80460:

• Executable file r36/XMPL/RESIDUE.TST — 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: 1168) [annotate] [blame] [check-ins using] [more...]

% test file for residue package

residue(x/(x^2-2),x,sqrt(2));
poleorder(x/(x^2-2),x,sqrt(2));
residue(sin(x)/(x^2-2),x,sqrt(2));
poleorder(sin(x)/(x^2-2),x,sqrt(2));
residue(1/(x-1)^m/(x-2)^2,x,2);
poleorder(1/(x-1)/(x-2)^2,x,2);
residue(sin(x)/x^2,x,0);
poleorder(sin(x)/x^2,x,0);
residue((1+x^2)/(1-x^2),x,1);
poleorder((1+x^2)/(1-x^2),x,1);
residue((1+x^2)/(1-x^2),x,-1);
poleorder((1+x^2)/(1-x^2),x,-1);
residue(tan(x),x,pi/2);
poleorder(tan(x),x,pi/2);
residue((x^n-y^n)/(x-y),x,y);
poleorder((x^n-y^n)/(x-y),x,y);
residue((x^n-y^n)/(x-y)^2,x,y);
poleorder((x^n-y^n)/(x-y)^2,x,y);
residue(tan(x)/sec(x-pi/2)+1/cos(x),x,pi/2);
poleorder(tan(x)/sec(x-pi/2)+1/cos(x),x,pi/2);
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));
residue(sin(x)/x^6,x,0);
residue((1-cos(x))/x^5,x,0);
residue(exp(1/x),x,0);
% not implemented
residue((A*x+B*x^2+c)/(D*x+E),x,-E/D);
residue(tan(x),x,pi/2);
residue(sec(x),x,pi/2);
residue(factorial(x),x,0);
% ***** not yet implemented 
residue(x^3/sin(1/x)^2,x,infinity);
poleorder(x^3/sin(1/x)^2,x,infinity);
residue(x^3*sin(1/x)^2,x,infinity);
poleorder(x^3*sin(1/x)^2,x,infinity);

end;