Aufgabe P.1.4 (Lineare Algebra)

Aufgabe P.1.4.(a)

>    with(linalg):vector

Warning, the protected names norm and trace have been redefined and unprotected

>    A:=matrix(3,3,[[1, 2, 1],[3, 2, 6],[1, -2, 4]]);
b:=matrix(3,1,[1,5,3]);

A := matrix([[1, 2, 1], [3, 2, 6], [1, -2, 4]])

b := matrix([[1], [5], [3]])

>    t:='t';x:=linsolve(A,b);

t := 't'

x := matrix([[2-5/2*_t[1][1]], [-1/2+3/4*_t[1][1]], [_t[1][1]]])

Probe:

>    evalm(A &* x - b);

matrix([[0], [0], [0]])

Stimmt!

Aufgabe P.1.4.(b)

>    E:=Matrix(3,3,shape=identity);

E := Matrix(%id = 25002504)

>    det((A-E) &* (A-E));

169

>