# Lagrange-Interpolation

## Problembeschreibung

Aus einer Punkteliste soll das Interpolationspolynom nach Lagrange
ermittelt werden. Eine Grafik soll erstellt werden, die jeden gegebenen
Punkt enthält.

## Problemlösung

UNTERPROGRAMM

load(interpol)$

EINGABE

p:read("Gib die Punkteliste ein");

VERARBEITUNG

n:length(p);

x_p:makelist(p[i][1],i,1,n);

x_p:sort(x_p);

y_p:makelist(p[i][2],i,1,n);

y_p:sort(y_p);

a:lagrange(p);

AUSGABE

print("Das Interpolationspolynom lautet",a)$

wxplot2d([a], [x,x_p[1],x_p[n]], [y,y_p[1],y_p[n]]);

a,x=-4;