Lösungen/Solutions/E1S2AlUe/Ex4

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

Remove["Global`"]

Aufgabe 1 W

a = {2, 1, 5};  b = {2, -1, 4};  
    c = {x, 4, 5};
Solve[Det[{a, b, c}]/6 == 400, {x}]

N[%]

Aufgabe 2 W

Remove["Global`*"]

vL[v_] := Sqrt[v . v]

vL[{2, -3, -1}]

f[x_, y_, z_] := (2  x - 3  y - z + 6)/
        vL[{2, -3, -1}]

f[{x_, y_, z_}] := (2  x - 3  y - z + 6)/
        Evaluate[vL[{2, -3, -1}]]

?f

p = {4, 8, 16}

f[4, 8, 16]

f[{4, 8, 16}]

f[4, 8, 16] // N

Aufgabe 3 W

Apart[1/((x - 1) x)]

Apart[x^2/((x + 1) (x + 2) (x + 3))]

Aufgabe 4 W

g = {4  x + 2  y == 1, α^2 x - 3  y == 
            2};
Solve[g, {x, y, z}]

Solve[6 + (α^2) == 0, {α}]