Example 1.2.11

> restart;

> with(linalg):

Warning, new definition for norm

Warning, new definition for trace

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

> B:='B': B:=vector(3, [b[1],b[2],b[3]]);

> 1/2*(A+B);

> B+1/2*(A-B);

> evalm(1/2*(A+B));

> evalm(B+1/2*(A-B));

> evalm(%%-%);