# Newton Unterprogramm

## Problembeschreibung

******************************************
Dokumentnummer: D1004
******************************************

Es gibt ein gut brauchbares Makro für das Newton'sche Näherungsverfahren.
Damit können wir Gleichungen näherungsweise lösen.

## Problemlösung

AUFRUF UNTERPROGRAMM

load(newton);

EINGABE

g:read("Gib die Gleichung ein");

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

r:read("Auf wie viele Stellen runden?");

VERARBEITUNG

f:expand(lhs(g)-rhs(g));

naeherung:newton(f,x0);

naeherung:floor(naeherung*10**r+0.5)/10**r,numer;

AUSGABE

print("Die Näherungslösung ist",naeherung,"auf",r,"Nachkommastellen")$