Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- m1 = ConstantArray[0, {2, 2}];
- For[i = 1; ii = 1, i <= 3, i += 2; ii += 1,
- For[j = 1; jj = 1, j <= 3, j += 2; jj += 1,
- m1[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
- m1 // MatrixForm
- m2 = ConstantArray[0, {2, 2}];
- For[i = 1; ii = 1, i <= 3, i += 2; ii += 1,
- For[j = 9; jj = 1, j <= 11, j += 2; jj += 1,
- m2[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
- m2 // MatrixForm
- m3 = ConstantArray[0, {2, 2}];
- For[i = 9; ii = 1, i <= 11, i += 2; ii += 1,
- For[j = 1; jj = 1, j <= 3, j += 2; jj += 1,
- m3[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
- m3 // MatrixForm
- m4 = ConstantArray[0, {2, 2}];
- For[i = 9; ii = 1, i <= 11, i += 2; ii += 1,
- For[j = 9; jj = 1, j <= 11, j += 2; jj += 1,
- m4[[ii, jj]] = [CurlyCapitalUpsilon][[i, j]]]];
- m4 // MatrixForm
- ArrayFlatten[{{m1, m2}, {m3, m4}}] // MatrixForm
- {{1 + 2 [Mu], 0, 0, 0}, {0, 1 + 2 [Mu], 0, 0}, {0, 0, 1 + 2 [Mu],
- 0}, {0, 0, 0, 1 + 2 [Mu]}}
Add Comment
Please, Sign In to add comment