New answers tagged

5

First, I think your code should be corrected to; f[w_] := Module[{M, Omega, normM, eigs}, M = Abs[ {{(I*w + 3)/((I*w + 6) (I*w + 1)), 1/(6*I*w + 1)}, {(I*w + 1)/(-w^2 + 11*I*w + 100), 2/(2*I*w + 1)}}]; Omega = DiagonalMatrix[{M[[1, 1]], M[[2, 2]]}]; normM = Dot[Inverse[Omega], M]; eigs = Eigenvectors[normM]; ...


Top 50 recent answers are included