Chaos game: Difference between revisions
m
→{{header|Mathematica}}
(Added Groovy) |
|||
Line 1,580:
end proc:</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>points = 5000;
a = {0, 0};
b = {1, 0};
Line 1,592 ⟶ 1,590:
If[t == 0, d = Mean[{a, d}],
If[t == 1, d = Mean[{b, d}], d = Mean[{c, d}]]]; AppendTo[S, d]]
Graphics[Point[S]]</lang>
=={{header|Nim}}==
| |||