/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Newton Unterprogramm
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1004
******************************************

Es gibt ein gut brauchbares Makro für das Newton'sche Näherungsverfahren.
Damit können wir Gleichungen näherungsweise lösen.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
AUFRUF UNTERPROGRAMM
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load(newton);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
g:read("Gib die Gleichung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x0:read("Gib den Startwert ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
r:read("Auf wie viele Stellen runden?");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
f:expand(lhs(g)-rhs(g));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
naeherung:newton(f,x0);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
naeherung:floor(naeherung*10**r+0.5)/10**r,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Die Näherungslösung ist",naeherung,"auf",r,"Nachkommastellen")$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$