# Lagrange Interpolation

## Problembeschreibung

Für eine gegebene endliche Folge ist das Lagrange'sche
Interpolationspolynom zu bestimmen.

## Problemlösung

LADEN des Unterprogramms

load(interpol)$

EINGABE

l:read("Gib eine Folge ein");

VERARBEITUNG

p:lagrange(l);

polynom:f(x):=''p;

n:length(l);

kontrolle:makelist(f(x),x,1,n);

AUSGABE

print("Das Interpolationspolynom ist",polynom)$