Gramm - Schmidtov postupak ortogonalizacije

GS - modul

GS[a_,b_,c_]:=
	Module[{u,v,w},
u=a/Norm[a];
v=b-(b . u) u; v=v/Norm[v];
w=c-(c . u) u -(c . v) v;
w=w/Norm[w];{u,v,w}]

Primjeri

a={2,0,0};b={3,4,0}; c={1,2,3};GS[a,b,c]

a={2,3,0};b={6,1,0}; c={0,2,4};GS[a,b,c]