Lösungen/Solutions/E1S2AlUe/Ex5a

L=Lektion/Leçon-- Sprechstunde/heures de consultation
W=Work/Arbeit/Travail
A  =Anhang/  Annexe / Appendice

Remove["Global`"]

Aufgabe 1

g = {1 x  + 2  y + 0  z + 4  w == 0, 
          0  x + 1  y + 0  z + 0  w == 1, 
          1  x + 0  y + 3  z + 6  w == 2,  
          0  x + 1  y + 5  z + 1  w == 
            3}; 
Solve[g, {x, y, z, w}]

Aufgabe 2

a

M4 = {{0, 0, 0, 4}, {0, 0, 3, 3}, {0, 2, 2, 2}, {1, 1, 1, 1}};  
    MatrixForm[M4]

Det[M4]

Aufgabe 3

aVec = {a, b, c};  bVec = {a, -b, c};  
    cVec = {-a, y, -c};
M = Transpose[{aVec, bVec, cVec}]; MatrixForm[M]

Det[M]

Solve[Det[M] == 0, {y}] // Flatten

Aufgabe 4

M1 = {{2, 1, 3}, {1, 2, 4}, {1, 1, 6}};  MatrixForm[M1]

vec = Transpose[{{7, 1, 4} + t {2, 2, -4}}]

M1 . vec  //  MatrixForm