> with(linalg):
Warning, the protected names norm and trace have been redefined and
unprotected

> K:=3/20*matrix(3,3,[432,-297,54,  -297,432,-189,  54,-189,148]); 

                             [ 432    -297      54]
                             [                    ]
                   K := 3/20 [-297     432    -189]
                             [                    ]
                             [  54    -189     148]

> M:=matrix(3,3,[2,0,0,  0,2,0,  0,0,1]);  

                               [2    0    0]
                               [           ]
                          M := [0    2    0]
                               [           ]
                               [0    0    1]

> det(K-Omega*M);

            531441   498393                  2          3
            ------ - ------ Omega + 348 Omega  - 4 Omega
              40       80

> fsolve(det(K-Omega*M)=0,Omega);

                2.461492257, 21.35747298, 63.18103476

> map(sqrt, [%]);
> 

               [1.568914356, 4.621414608, 7.948649870]

> 
