Advertisement
Guest User

Untitled

a guest
Sep 1st, 2015
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. Cmatrix = ( {
  2. {C1 + CJ + CJ, -CJ, 0, -CJ},
  3. {-CJ, C2 + CJ + CJ, -CJ, 0},
  4. {0, -CJ, C1 + CJ + CJ, -CJ},
  5. {-CJ, 0, -CJ, C2 + CJ + CJ}
  6. } );
  7.  
  8. InvCmat = Inverse[Cmatrix];
  9.  
  10. [Omega]1 = Sqrt[1/L InvCmat[[1, 1]]];
  11. [Omega]2 = Sqrt[1/L InvCmat[[2, 2]]];
  12.  
  13. J = 1/2 InvCmat[[1, 2]]/Sqrt[InvCmat[[1, 1]] InvCmat[[2, 2]]]
  14. Sqrt[[Omega]1*[Omega]2];
  15.  
  16. {{20, 20, 2, 7.70438, 7.50004, 0.156103}, {20, 20, 3, 7.60618,
  17. 7.30572, 0.212588}, {20, 20, 4, 7.46063, 7.18521, 0.273479}, {20,
  18. 20, 6, 7.25941, 6.79769, 0.354176}, {20, 20, 10, 6.93511, 6.59471,
  19. 0.494317}, {13, 13, 3, 8.8022, 8.20026, 0.297579}, {16, 16, 3,
  20. 8.22736, 7.78623, 0.252157}, {20, 20, 3, 7.58361, 7.359,
  21. 0.212081}, {24, 24, 3, 7.08458, 6.90351, 0.178109}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement