演示过程,见这里——《用Mathematica演示“中点迭代”现象》和《中点的迭代——用网络画板演示一个著名几何定理》。
给出若干随机点:
pl = RandomPoint[Circle[], 100];
Graphics[Point[pl]]
顺次连接这些点:
Graphics[{Point[pl],Line[pl]}]
如果依次取相邻点的中点,形成新的点集;重复这个过程,最后会趋向于一个椭圆。
演示过程,见这里——《用Mathematica演示“中点迭代”现象》和《中点的迭代——用网络画板演示一个著名几何定理》。
给出若干随机点:
pl = RandomPoint[Circle[], 100];
Graphics[Point[pl]]
顺次连接这些点:
Graphics[{Point[pl],Line[pl]}]
如果依次取相邻点的中点,形成新的点集;重复这个过程,最后会趋向于一个椭圆。