Orthonormalisierung

MapleV orthogonalisiert numerisch.

#(* Beispiel *)
with(linalg):
#(* Angabe der Vektoren *)
v1:=vector([1,2,3,4]); v2:=vector([-1,2,0,3]); v3:=vector([0,1,-1,2]);
vo:=GramSchmidt([v1,v2,v3]);
seq(normalize(i),i="):
on:=seq(map(combine,i,power),i=");