Páginas personales

Polinomios de Interpolación

Int::usage="Int[list,n] calcula el polinomio de 

interpolación de grado n para la lista 'list'."

Int[list_List,n_]:=
Chop[Fit[list,Table[x^m,{m,0,n}],x]];

VInt::usage="VInt[list,n,y] calcula el valor del

polinomio de interpolación Int[list,n], en el punto

y."

VInt[list_List,n_,y_]:=Int[list,n]/.x->y//N;

Graf::usage="Graf[list,n] dibuja los puntos de la

lista 'list' y la gráfica del polinomio de

interpolación Int[list,n]."

Graf[list_List,n_]:=Show[ListPlot[list],Plot[VInt[list,n,y],{y,1,Length[list]}]]
[Graphics:Interpol/Interpol_gr_1.gif]
[Graphics:Interpol/Interpol_gr_2.gif]
[Graphics:Interpol/Interpol_gr_3.gif]
TriInt::usage="TriInt[list,n] calcula el polinomio 

trigonométrico de interpolación de grado n de la

lista 'list'."

TriInt[list_List,n_]:=
Chop[Fit[list,
Join[Table[Cos[m x],{m,0,n}],
Table[Sin[m x],{m,0,n}]],
x]];

VTriInt::usage="VTriInt[list,n,y] calcula el valor

del polinomio trigonométrico TriInt[list,n] en el
punto y."

VTriInt[list_List,n_,y_]:=TriInt[list,n]/.x->y//N
[Graphics:Interpol/Interpol_gr_4.gif]
[Graphics:Interpol/Interpol_gr_5.gif]
[Graphics:Interpol/Interpol_gr_6.gif]
[Graphics:Interpol/Interpol_gr_7.gif]
[Graphics:Interpol/Interpol_gr_8.gif]
[Graphics:Interpol/Interpol_gr_9.gif]
[Graphics:Interpol/Interpol_gr_10.gif]

[Graphics:Interpol/Interpol_gr_11.gif]

[Graphics:Interpol/Interpol_gr_12.gif]

[Graphics:Interpol/Interpol_gr_13.gif]

[Graphics:Interpol/Interpol_gr_14.gif]
[Graphics:Interpol/Interpol_gr_15.gif]
[Graphics:Interpol/Interpol_gr_16.gif]

Converted by Mathematica      March 1, 2002