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

/* [wxMaxima: title   start ]
Ziffernsumme
   [wxMaxima: title   end   ] */

/* [wxMaxima: comment start ]
***************************************
Dokumentnummer: D1001
Quelle http://www.edhelper.com
***************************************
Anmerkung: die Ziffernsumme muss 18 sein, damit es funktioniert. Wenn
man nur das Ergebnis anschaut, scheinen auch andere Ziffernsummen zu
funktionieren.
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: input   start ] */
ziffernsumme:read("Gib die Ziffernsumme der dreistelligen Zahl ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
g1:h+z+e=ziffernsumme;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g2:h-6=2*z;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g3:e-6=3*z;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve([g1,g2,g3],[h,z,e]);
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
zahl:100*h+10*z+e;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die gesuchte Zahl ist",zahl)$
/* [wxMaxima: input   end   ] */

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