# Die erweiterte Koeffizientenmatrix

## Problembeschreibung

*****************************************
Dokumentnummer: D1214
Quelle: Johann Weilharter,
              Gleichungssysteme
*****************************************
Ein lineares Gleichungssystem kann mittels der erweiterten Koeffizienten-
matrix dargestellt werden.
Man kann daraus das Gleichungssystem erstellen und dieses (nach
verschiedenen Methoden) lösen.
Wir schreiben dazu ein Maxima-Programm.

## Problemlösung

EINGABE

A:read("Gib die erweiterte Koeffizientenmatrix ein");

VERARBEITUNG

Dimension der Matrix abmessen

m:length(A);

n:length(A[1]);

Gleichungen generieren

for i:1 thru m do
     g[i]:sum(A[i,j]*x[j],j,1,n-1)=A[i,n];

Gleichungssystem generieren

g:makelist(g[i],i,1,m);

Variablenliste generieren

x:makelist(x[i],i,1,n-1);

Gleichungssystem lösen

l:solve(g,x);

AUSGABE

print("Erweiterte Koeffizientenmatrix",A)$

print("Lösung des Gleichungssystems",l)$