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

/* [wxMaxima: title   start ]
Beispiele für die Verwendung von 
Maxima im Zusammenhang mit LGS
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
solve-Befehl und Festlegung der Lösungscariablen
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
linsolve([x+y=a, x-y=b], [x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
linsolve([x+y=a, x-y=b], [x,y,a]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
linsolve([x+y=a, x-y=b], [x]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
LGS mit 3 Variablen und 3 Gleichungen
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
solve([2*x+3*y+z=3, x-3*y+2*z=-1, 3*x+5*y-z=4 ], [x,y,z]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Beispiel für nicht lösbare LGS
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
solve([3*x-4*y+8*z=16, 6*x-y+5*z=-4, -x-y+z=-8/3], [x,y,z] );
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Beispiel für LGS mit einparametriger Lösungsmenge
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
solve([3*x-4*y+8*z=2, 6*x-y+5*z=4, -x-y+z=-2/3], [x,y,z] );
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Lösung eines LGS mit Wertzuweisungen für Koeffizienten
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
a:2; b:-1; c:-8; d:4; e:5; f:-4;
solve([a*x+b*y=c, d*x+e*y=f], [x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
kill(all);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Darstellung von Gleichungen mit 2 Variablen als Geraden
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
Gl11: 4*x - 5*y = 13;
Gl12: 3*x + 4*y = 3;
load("draw")$
draw2d( user_preamble = ["set size ratio 1" , "set zeroaxis"] ,
        color = blue, implicit(Gl11, x,-4,4, y,-4,4),
        color = red , implicit(Gl12, x,-4,4, y,-4,4) );
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Darstellung von Gleichungen mit 3 Variablen als Ebenen
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
Gl1 : (3/2)*x - 2*y + 4*z = 1;
Gl2 : x + y - 3*z = 2;
load(draw)$
draw3d( user_preamble = ["set size ratio 1"], 
        surface_hide = true, xyplane = 0,
        x_voxel = 20, y_voxel=20, z_voxel=20,
        color = black , implicit(Gl1,x,-5,5,y,-5,5,z,-5,5),
        color = blue , implicit(Gl2,x,-5,5,y,-5,5,z,-5,5)
      )$
/* [wxMaxima: input   end   ] */

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