Добавление выравнивания к выходу манипуляции в Mathematica

Question

Учитывая следующее:

Manipulate[
           If[Intersection[Row1, Row2] == {}, 
              Style[Plus @@ {Plus @@ Row1, Plus @@ Row2}, Bold, 20],
              "Error"],
{{Row1, {1}}, {1, 2, 3, 4, 5}, ControlType -> TogglerBar},
{{Row2, {2}}, {1, 2, 3, 4, 5}, ControlType -> TogglerBar}
           ]

- Я бы хотел, чтобы "3" была в центре, это возможно?

Answer 1

Manipulate имеет собственную опцию выравнивания. Вы можете увидеть, работает ли это для вас:

Manipulate[

If[Intersection[Row1,Row2]=={},Style[Plus@@{Plus@@Row1,Plus@@Row2},Bold,20],"Error"],   

{{Row1,{1}},{1,2,3,4,5},ControlType->TogglerBar},
{{Row2,{2}},{1,2,3,4,5},ControlType->TogglerBar},

Alignment->Center
]

Answer 2

Используйте Panel, с опцией Alignment:

Manipulate[
 Panel[
  If[Intersection[Row1, Row2] == {}, 
     Style[Plus @@ {Plus @@ Row1, Plus @@ Row2}, Bold, 20], "Error"
  ], 
  ImageSize -> 150, Alignment -> Center, Appearance -> "Frameless"
 ], 
 {{Row1, {1}}, {1, 2, 3, 4, 5}, ControlType -> TogglerBar},
 {{Row2, {2}}, {1, 2, 3, 4, 5}, ControlType -> TogglerBar}
]