Comprobacion
>
evalm(htranspose(T)&*F&*T):map(evala,%);
T es F-ortonormal
![[Maple Math]](images/schmidt26.gif){kind=small}