圆周率π的随机雨测量法

GeoGebra 命令及参数

1. Sequence((random(), random()), i, 1, anzahl) → Punkte
2. Sequence(If[sqrt((x(Element[Punkte, i]))^(2) + (y(Element[Punkte, i]))^(2)) ≤ 1, 1, 0], i, 1, Length[Punkte]) → Trefferliste
3. Sum(Trefferliste) → treffer
4. Intersect(xAxis, yAxis) → A
5. Circle(A, 1) → c
6. Polygon(A, (1, 0), 4) → Vieleck1, a, b, d, e, B, C
7. CircleSector(A, D, C) → f
8. Sequence(Mod[floor((etwapi * 10^(i))), 10], i, 1, Nachkommastellen) → ziffern
9. Sum(Sequence[(Element[ziffern, i] * 10^(Nachkommastellen - i)), i, 1, Nachkommastellen]) → nachkomma
10. Sequence(If[abs(Element[Punkte, k]) ≤ 1, Element[Punkte, k]], k, 1, Length[Punkte]) → T
11. RemoveUndefined(T) → Treffer