Example 1.3.6

> restart;

> with(linalg):

Warning, new definition for norm

Warning, new definition for trace

> A:=vector(3, [2,-1,2]);

> B:=vector(3, [1,-1,0]);

> a:=innerprod(A,B);

> b:=norm(A, 2);

> c:=norm(B, 2);

> theta:= arccos(a/(b*c));

>