function/V, F=wahaha (A) 
/V, D=eig sells its (A); 
For I=1:6 
F (I)=D (I, I); 
End 
[F, Sort]=Sort (F); 
V=V (:, Sort);