/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 12.01.0 ] */ /* [wxMaxima: title start ] Behandlung magischer Quadrate mit Maxima [wxMaxima: title end ] */ /* [wxMaxima: section start ] Lösung eines homogenen LGS mit 8 Gleichungen und 10 Variablen [wxMaxima: section end ] */ /* [wxMaxima: comment start ] Es wird das Gleichungssystem gelöst, das magische Quadrate mit variabler Zeilen-, Spalten- und Diagonalensumme s beschreibt. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ solve( [a11+a12+a13=s, a21+a22+a23=s, a31+a32+a33=s, a11+a21+a31=s, a12+a22+a32=s, a13+a23+a33=s, a11+a22+a33=s, a13+a22+a31=s], [a11,a12,a13,a21,a22,a23,a31,a32,a33,s]); /* [wxMaxima: input end ] */ /* [wxMaxima: section start ] Lösung eines inhomogenen LGS mit 8 Gleichungen und 9 Variablen [wxMaxima: section end ] */ /* [wxMaxima: comment start ] Es wird das nun Gleichungssystem gelöst, das magische Quadrate mit fester Zeilen-, Spalten- und Diagonalensumme s beschreibt. s ist jetzt eine Konstante, damit entsteht ein inhomogenes LGS mit nur noch 9 Variablen. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ solve( [a11+a12+a13=s, a21+a22+a23=s, a31+a32+a33=s, a11+a21+a31=s, a12+a22+a32=s, a13+a23+a33=s, a11+a22+a33=s, a13+a22+a31=s], [a11,a12,a13,a21,a22,a23,a31,a32,a33]); /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$