Guest User

Untitled

a guest
Jul 18th, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.97 KB | None | 0 0
  1. m1 = ConstantArray[0, {2, 2}];
  2. For[i = 1; ii = 1, i <= 3, i += 2; ii += 1,
  3. For[j = 1; jj = 1, j <= 3, j += 2; jj += 1,
  4. m1[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
  5. m1 // MatrixForm
  6. m2 = ConstantArray[0, {2, 2}];
  7. For[i = 1; ii = 1, i <= 3, i += 2; ii += 1,
  8. For[j = 9; jj = 1, j <= 11, j += 2; jj += 1,
  9. m2[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
  10. m2 // MatrixForm
  11. m3 = ConstantArray[0, {2, 2}];
  12. For[i = 9; ii = 1, i <= 11, i += 2; ii += 1,
  13. For[j = 1; jj = 1, j <= 3, j += 2; jj += 1,
  14. m3[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
  15. m3 // MatrixForm
  16. m4 = ConstantArray[0, {2, 2}];
  17. For[i = 9; ii = 1, i <= 11, i += 2; ii += 1,
  18. For[j = 9; jj = 1, j <= 11, j += 2; jj += 1,
  19. m4[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
  20. m4 // MatrixForm
  21. ArrayFlatten[{{m1, m2}, {m3, m4}}] // MatrixForm
  22. {{1 + 2 [Mu], 0, 0, 0}, {0, 1 + 2 [Mu], 0, 0}, {0, 0, 1 + 2 [Mu],
  23. 0}, {0, 0, 0, 1 + 2 [Mu]}}
Add Comment
Please, Sign In to add comment