怎么用Mathematica绘制圆的弓形

1、绘制圆盘：Graphics[{Pink, Disk[{0, 0}, 1]]

2、绘制半个圆盘：Graphics[{Disk[{0, 0}, 1, {0, Pi}]}]]

3、绘制1/3个圆盘：Disk[{0, 0}, 1, {0, 2 Pi/3}]这是一个扇形。

4、要想得到弓形，需要用DiskSegment：DiskSegment[{0, 0}, 1, {0, 2 Pi/3}]

5、把扇形和弓形画到一起：

6、扇形到完整的圆的变化过程：

7、弓形到圆的变化过程：

8、椭圆里的扇形：Disk[{0, 0}, {3, 2}, {0, Pi/2}]

9、椭圆里面的弓形：DiskSegment[{0, 0}, {3, 2}, {0, Pi/2}]