Implementación de Métodos Numéricos en Maxima: Ejercicios Resueltos
Clasificado en Informática
Escrito el en
español con un tamaño de 2,77 KB
Interpolación de Lagrange: Grado 5 y 6 Nodos
Implementación de la fórmula de Lagrange para interpolación polinómica:
Lagrange(fu, nodos):=block(kill(L),
n:length(nodos),
L[i]:=product(if i=j then 1 else (x-nodos[j])/(nodos[i]-nodos[j]),j,1,n),
casi:sum(fu(nodos[i])*L[i],i,1,n),
expand(casi));
f(x):=x^5-3*x^4+x^2+x-7;
nodos:makelist(i,i,0,5,1);
Lagrange(f,nodos);Interpolación con Nodos de Chebyshev
Comparativa entre nodos equiespaciados y nodos de Chebyshev para minimizar el error de interpolación:
f(x):=x+exp(cos(x));
a:2;b:10;n:5;
nodos_cheb:makelist((a+b)/2+(b-a)/2*cos((2*k-1)*%pi/(2*n)),k,1,n);
nodos_eq:[2, 4, 6, 8, 10];
Pcheb:Lagrange(f, nodos_cheb);
Peq:Lagrange(f, nodos_eq);
err_cheb:float(makelist(abs(f(t)-ev(Pcheb, x=t))... Continuar leyendo "Implementación de Métodos Numéricos en Maxima: Ejercicios Resueltos" »