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]}]]

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