Vasarely正方形

GeoGebra 命令及参数

1. Sequence(Sequence[If[sqrt((x(A) - (i + 0.5))^(2) + (y(A) - (j + 0.5))^(2)) ≤ r, Rotate[(i + (a * (-1)^(i)), j + (a * (-1)^(j))), (α * (1 - (sqrt((x(A) - (i - (0.5 * (-1)^(i))))^(2) + (y(A) - (j - (0.5 * (-1)^(j))))^(2)) - 0.71) / r)), (i - (0.5 * (-1)^(i)), j - (0.5 * (-1)^(j)))], (i + (a * (-1)^(i)), j + (a * (-1)^(j)))], i, 1, n], j, 1, m) → liste2
2. Circle(A, r) → c
3. Sequence(Sequence[If[Distance[Element[liste2, j, i], A] < r, Point[Segment[Element[liste2, j, i], ClosestPoint[c, Element[liste2, j, i]]], Distance[A, Element[liste2, j, i]] / r], (i + (a * (-1)^(i)), j + (a * (-1)^(j)))], i, 1, n], j, 1, m) → liste3
4. Sequence(Sequence[Polygon[Element[liste3, j, i], Element[liste3, j, i + 1], Element[liste3, j + 1, i + 1], Element[liste3, j + 1, i]], i, 1, n - 1, 2], j, 1, m - 1, 2) → liste4