# Newtonverfahren

## Problembeschreibung

*****************************************
Dokumentnummer: D1216
*****************************************

Die fünfte Näherungslösung einer
Gleichung ist zu bestimmen.

## Problemlösung

EINGABE 1

f:read("Gib die Polynomgleichung ein");

VERARBEITUNG 1

f:rhs(f);

f(x):=''f;

ab:diff(f(x),x);

a(x):=''ab;

g(n):=x[n+1]:x[n]-f(x[n])/a(x[n]);

EINGABE 2

x[0]:read("Gib den Startwert ein");

VERARBEITUNG 2

l:makelist(g(n),n,0,5),numer;

AUSGABE

print("Die fünfte Näherungslösung ist",l[5])$