# evaluate inert function ds(), integrates(), sums(), poly(), polyroot(), sin(n,x) ;

evaluate(ln(n_,x_)):=if(abs(n)<1,(log(x)+psi(1)-psi(1-n))/gamma(1-n)/x^n );

evaluate(polyroot(a_)) := x-a;
evaluate(polyroot(a_, b_)) := x^2-a*x-b*x+a*b;
evaluate(polyroot(a_, b_, c_)) := expand((x-a)*(x-b)*(x-c));
evaluate(polyroot(a_, b_, c_, d_)) := expand((x-a)*(x-b)*(x-c)*(x-d));

evaluate(Gamma(a_,x_,0)):=d(Gamma(x),x,a);