Aplicação --- Exercício 4.14

> g:=x->(1-x)/(x^2+1);
CubSpline4Ptsf(X,g);
p:=x->CubSpline4Ptsf(X,g):
plot(g(x),x=X[1]..X[4],labels=[x,"f(x)"]);
plot({p(x),g(x)},x=X[1]..X[4],axes=BOXED,title="Exercício 4.14 com spline cúbico",labels=[x,"f(x)"]);

> with(plots):
g:=x->(1-x)/(x^2+1);
CubSpline4Pts(X,g);
p:=x->CubSpline4Pts(X,g):
A:=plot(g(x),x=X[1]..X[4],labels=[x,"f(x)"],color=red):
B:=plot(p(x),x=X[1]..X[4],axes=BOXED,title="Exercício 4.14 com spline cúbico",labels=[x,"f(x)"],color=blue):
display(A,B);

>