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

/* [wxMaxima: title   start ]
Gleichungssystem 3 x 3
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1086
Quelle: Johann Weilharter,
             Gleichungssysteme
******************************************

Im Unterricht der Sekundarstufe II werden häufig Gleichungssysteme
von 3 linearen Gleichungen in 3 Unbekannten gelöst. Sehr hilfreich
ist dabei das folgende Programm.
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: input   start ] */
print("Lösung eines Systems von 3 Gleichungen in 3 Unbekannten");
/* [wxMaxima: input   end   ] */

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

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

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

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

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

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

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

/* [wxMaxima: input   start ] */
print("Lösung x:",l[1][1])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Lösung y:",l[1][2])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Lösung z:",l[1][3])$
/* [wxMaxima: input   end   ] */

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