Skip to main content
Commonmark migration
Source Link
Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here


###Edit

Edit

m1 = Map[Style[#, 18, Bold] &, {{a1, a2}, {b1, b2}}, {2}];
m2 = {{u1, v1}, {u2, v2}};

Grid@MapThread[PlusMinus, {m1, m2}, 2]

enter image description here

Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here


###Edit

m1 = Map[Style[#, 18, Bold] &, {{a1, a2}, {b1, b2}}, {2}];
m2 = {{u1, v1}, {u2, v2}};

Grid@MapThread[PlusMinus, {m1, m2}, 2]

enter image description here

Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here


Edit

m1 = Map[Style[#, 18, Bold] &, {{a1, a2}, {b1, b2}}, {2}];
m2 = {{u1, v1}, {u2, v2}};

Grid@MapThread[PlusMinus, {m1, m2}, 2]

enter image description here

added 259 characters in body
Source Link
Kuba
  • 137.7k
  • 13
  • 289
  • 751
Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here


###Edit

m1 = Map[Style[#, 18, Bold] &, {{a1, a2}, {b1, b2}}, {2}];
m2 = {{u1, v1}, {u2, v2}};

Grid@MapThread[PlusMinus, {m1, m2}, 2]

enter image description here

Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here

Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here


###Edit

m1 = Map[Style[#, 18, Bold] &, {{a1, a2}, {b1, b2}}, {2}];
m2 = {{u1, v1}, {u2, v2}};

Grid@MapThread[PlusMinus, {m1, m2}, 2]

enter image description here

Source Link
Kuba
  • 137.7k
  • 13
  • 289
  • 751

Grid[
 MapThread[PlusMinus, {m1, m2}, 2],
 BaseStyle -> 15, 
 ItemStyle -> {{Red, Blue}, {}, {1, 1} -> {18, Bold}}]

enter image description here

DisplayForm@RowBox[{"(", #, ")"}] & [%]

enter image description here