Input and output from Mathematica:
In[1]:= Eigenvalues[{{1,.74,.24,.24},{.74,1,.24,.24}, {.24,.24,1,.74},{.24,.24,.74,1}}] Out[1]= {2.22, 1.26, 0.26, 0.26} In[2]:= Eigenvectors[{{1,.74,.24,.24},{.74,1,.24,.24}, {.24,.24,1,.74},{.24,.24,.74,1}}] Out[2]= {{-0.5, -0.5, -0.5, -0.5}, {0.5, 0.5, -0.5, -0.5}, -17 -17 {-0.707107, 0.707107, -1.28765 10 , -1.28765 10 }, -17 {0., -6.8185 10 , -0.707107, 0.707107}}