mar23-maple.html

mar23-maple.mw

> restart:
f:= 100/(x+10)+10;
p:= 0;
a0:= coeftayl(f, x=p,0):
a1:= coeftayl(f, x=p,1):
a2:= coeftayl(f, x=p,2):
a3:= coeftayl(f, x=p,3):
a4:= coeftayl(f, x=p,4):
a5:= coeftayl(f, x=p,5):
a6:= coeftayl(f, x=p,6):
a7:= coeftayl(f, x=p,7):
a8:= coeftayl(f, x=p,8):
p0:= a0;
p1:= a0+ a1*x;
p2:= a0+ a1*x + a2*x^2;
p3:= a0+ a1*x + a2*x^2 + a3*x^3;
p4:= a0+ a1*x + a2*x^2 + a3*x^3 + a4*x^4;
p5:= a0+ a1*x + a2*x^2 + a3*x^3 + a4*x^4 + a5*x^5;
p6:= a0+ a1*x + a2*x^2 + a3*x^3 + a4*x^4 + a5*x^5+ a6*x^6;
p7:= a0+ a1*x + a2*x^2 + a3*x^3 + a4*x^4 + a5*x^5+ a6*x^6 + a7*x^7;
p8:= a0+ a1*x + a2*x^2 + a3*x^3 + a4*x^4 + a5*x^5+ a6*x^6 + a7*x^7 + a8*x^8;
plot( f, x=-10..20, y=5..30);
plot( [f,p0,p1,p2], x=-10..20, y=5..30, title="f,p0,p1,02");
plot( [f,p3,p7], x=-10..20, y=5..30, title="f,p3,p7");

> restart:
f:= 100/(x+10)+10;
p:= 10;
a0:= coeftayl(f, x=p,0):
a1:= coeftayl(f, x=p,1):
a2:= coeftayl(f, x=p,2):
a3:= coeftayl(f, x=p,3):
a4:= coeftayl(f, x=p,4):
a5:= coeftayl(f, x=p,5):
a6:= coeftayl(f, x=p,6):
a7:= coeftayl(f, x=p,7):
a8:= coeftayl(f, x=p,8):
p0:= a0;
p1:= a0+ a1*(x-p);
p2:= a0+ a1*(x-p) + a2*(x-p)^2;
p3:= a0+ a1*(x-p) + a2*(x-p)^2 + a3*(x-p)^3;
p4:= a0+ a1*(x-p) + a2*(x-p)^2 + a3*(x-p)^3 + a4*(x-p)^4;
p5:= a0+ a1*(x-p) + a2*(x-p)^2 + a3*(x-p)^3 + a4*(x-p)^4 + a5*(x-p)^5;
p6:= a0+ a1*(x-p) + a2*(x-p)^2 + a3*(x-p)^3 + a4*(x-p)^4 + a5*(x-p)^5+ a6*(x-p)^6;
p7:= a0+ a1*(x-p) + a2*(x-p)^2 + a3*(x-p)^3 + a4*(x-p)^4 + a5*(x-p)^5+ a6*(x-p)^6 + a7*(x-p)^7;
p8:= a0+ a1*(x-p) + a2*(x-p)^2 + a3*(x-p)^3 + a4*(x-p)^4 + a5*(x-p)^5+ a6*(x-p)^6 + a7*(x-p)^7 + a8*(x-p)^8;
plot( f, x=-10..30, y=5..30);
plot( [f,p0,p1,p2], x=-10..40, y=5..30, title="f,p0,p1,02");
plot( [f,p3,p8], x=-10..40, y=5..30, title="f,p3,p8");