yacas
yacas copied to clipboard
EigenVectors return equations not vectors
Out> {{6,2,-2},{2,6,-2},{-2,-2,6}} In> ata24:=% Out> {{6,2,-2},{2,6,-2},{-2,-2,6}} In> EigenValues(%) Out> {4,4,10} In> e24:=% Out> {4,4,10} In> EigenVectors(ata24,e24) Out> {{k1==k1,k2==(4*k1+2*k3-6*k1)/2,k3==k3},{k1==k1,k2==(4*k1+2*k3-6*k1)/2,k3==k3},{k1== -k3,k2==(10*k1+2*k3-6*k1)/2,k3==k3}}
Verify([Local(a);a:={{6,2,-2},{2,6,-2},{-2,-2,6}};Length(Difference(EigenVectors(a,EigenValues(a)),{{1,0,1},{-1,1,0},{-1,-1,1}}))=0;],True)