Question

Mathematica中如何给闭合曲线内部填充颜色

Answer 1

　　

　　教程上，使用的Graphics[Disk[]]这种语句来输出的，disk是填充圆。太极图可以认为是一个Circle，2个小填充圆作为阴阳鱼的鱼眼，2个半径与Circle相等的Disk作为上下，2个半径在Circle和鱼眼中间的Disk作为鱼头来实现的：

Graphics[{
Circle[{0, 0}, 2],
Red, Disk[{0, 0}, 2, {0, \[Pi]}], Black, 
Disk[{0, 0}, 2, {\[Pi], 2 \[Pi]}],
Red, Disk[{1, 0}, 1, {0, 2 \[Pi]}], Black, 
Disk[{-1, 0}, 1, {0, 2 \[Pi]}],
Black, Disk[{1, 0}, .25, {0, 2 \[Pi]}], Red, 
Disk[{-1, 0}, .25, {0, 2 \[Pi]}]
}
]

Mathematica中如何给闭合曲线内部填充颜色？ - 绘图 - 知乎  https://www.zhihu.com/question/36630804