在 Mathematica 中使用 Manipulate 控制放置

Control Placement using Manipulate in Mathematica

我想要粉红色

使用 Row[ ] 和 Control[ ]：

1
2
3
4
5
6
7
8

Manipulate[Graphics[{If[thePink, {Pink, Disk[{5, 5}, r]}],
If[theGreen, {Green, Disk[{4, 2}, r]}]}, PlotRange -> {{0, 20}, {0, 10}}],
{{r, 1, Style["Radius", Black, Bold, 12]}, 1, 5, 1, ControlType -> Setter,
ControlPlacement -> Top},
Row[
{Control@{{thePink, True, Style["Pink", Black, Bold, 12]}, {True, False}},
Spacer[20],
Control@{{theGreen, False, Style["Green", Black, Bold, 12]}, {True,False}}}]]

enter