# Newtonverfahren

load(newton);

EINGABE

f:read("Gib den Funktionsterm ein");

x0:read("Gib den Startwert ein");

VERARBEITUNG

loesung:newton(f,x0);

loesung:floor(loesung*1000+0.5)/1000.0;

AUSGABE

print("Eine Lösung ist",loesung)$