三只蚂蚁爬行

wayne

10# winxos
那你试试：

1. Prime[Range[100]]

复制代码

或者自己编程序，把中间数据存在列表里：

1. Table[Prime[k], {k, 100}]

复制代码

1. For[prime = {}; c = 1; ii = 1, ii++; c <= 100,
   
2. If[PrimeQ[ii], c++; AppendTo[prime, ii]]]; prime

复制代码

wayne

9# 056254628


sorry，我看题太不仔细了。。。

056254628

当初始A、B、C三点构成等边三角形时。
用电脑来模拟随机过程（每只蚂蚁爬行的方向随机确定）600000次。
把最终点全部用红点绘出。得到以下图：



[img] [/img]