/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [wxMaxima: title start ] Loesen eines LGS mit 3 Unbekannten mittels des Gaussschen Diagonalisierungsverfahrens (zum Skript Kap. 6.2) [wxMaxima: title end ] */ /* [wxMaxima: comment start ] Autor F.Hattendorf [wxMaxima: comment end ] */ /* [wxMaxima: comment start ] *************************************************************************************** Zu loesen ist das Lineare Gleichungssystem a11*x + a12*y + a13*z = b1 a21*x + a22*y + a23*z = b2 a31*x + a32*y + a33*z = b3 [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ kill(x)$ kill(y)$ kill(z)$ /* hier die Parameter eingeben */ a11:2$ a12:-3$ a13:1$ b1 :-1$ a21:0$ a22:3$ a23:4$ b2 :2$ a31:-1$ a32:2$ a33:-1$ b3 :2$ /* Ende Eingabe */ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ a11*x + a12*y + a13*z = b1; a21*x + a22*y + a23*z = b2; a31*x + a32*y + a33*z = b3; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b2:a11*b2-a21*b1$ a23:a11*a23-a21*a13$ a22:a11*a22-a21*a12$ a21:a11*a21-a21*a11$ b3:a11*b3-a31*b1$ a33:a11*a33-a31*a13$ a32:a11*a32-a31*a12$ a31:a11*a31-a31*a11$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b3 :a22* b3 -a32* b2$ a33:a22*a33 -a32*a23$ a32:a22*a32 -a32*a22$ a31:a22*a31 -a32*a21$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* unter der Hauptdiagonalen sind nur noch Nullen */ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b3:b3/a33$ a33:1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b1:b1-a13*b3$ a13:0$ b2:b2-a23*b3$ a23:0$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b2:b2/a22$ a22:1$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b1 :b1-a12*b2$ a12:0$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ b1:b1/a11$ a11:1$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ matrix([a11,a12,a13,b1],[a21,a22,a23,b2],[a31,a32,a33,b3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ x:b1$ y:b2$ z:b3$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ x; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ y; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ z; /* [wxMaxima: input end ] */ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$