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

/* [wxMaxima: title   start ]
Meine erste Extremwertaufgabe
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1043
Quelle: Johann Weilharter, Analysis
******************************************

Eine natürliche Zahl ist so in zwei Summanden zerlegt werden,
dass die Summe der Quadrate dieser Summanden ein
Minimum wird.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
zahl:read("Gib eine (natürliche) Zahl ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
NB:zahl=x+y;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve(NB,y);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ZF:x**2+y**2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ZF:ev(ZF,l[1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ab:diff(ZF,x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:solve(ab=0,x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
sx:x,g[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y:ev(y,l[1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
sy:y,g[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ZF_EXT:ZF,x=sx,y=sy;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Der erste Summand =",sx)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Der zweite Summand =",sy)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Extremwert der Summe der Quadrate =",ZF_EXT)$
/* [wxMaxima: input   end   ] */

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