Lösungen/Solutions/E1S1AlUe/Ex9

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

Ueb/Ex 1      W

s = 
      Solve[
{b1 == e1 + e2 + e3, b2 == e1 + e2 - e3, 
            b3 == e1 - 4  e2 + 2  e3}, 
{e1, e2, 
            e3}
] // Flatten

v = l1  e1  +  l2  e2  +  l3  e3  /.  
          s //

Collect[v,  {b1, b2, b3}]

Ueb/Ex 2      W

r = Sqrt[1^2 + 2^2 + 3^2]

N[%]

ϑ = ArcTan[1/r]

N[%]

φ = ArcCos[1/Sqrt[1^2 + 2^2]]

N[%]

Ueb/Ex 3      L

{-λ2,  λ1}

Ueb/Ex 4      W

v = {1, 2};  u = {μ1, μ2};

equation = (v . u == 1)

solv = Solve[equation, {μ2}] // Flatten

u = {μ1, μ2} /.  solv

ParametricPlot[Evaluate[u], {μ1, -3, 3}];