/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 14.12.1 ] */

/* [wxMaxima: input   start ] */
f(x):=(5*x^2-4*x+7)/((x^2+1)*(x-5)^2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p:partfrac(f(x),x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p1: (a*x+b)/(x^2+1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p2: c/(x-5);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p3:d/(x-5)^2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p1+p2+p3;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ratsimp(%);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
n:num(%);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
solve([coeff(n,x,3)=0,coeff(n,x,2)=5,coeff(n,x,1)=-4,coeff(n,x,0)=7],[a,b,c,d]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
at(p1+p2+p3,first(%));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
%/* Source:http://maxima.sourceforge.net/docs/tutorial/en/gaertner-tutorial-revision/Pages/StepwisePF0001.htm */
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$