Author: Daniel Mentrard

1

2

3

4

5

6

7

8

9

10

11

12

0

Graduaciones en 0.1

?

A = (0.004523975604788248, 0.14836868190173896)
n = 13 (slider from 1 to 50, step 2)
taille = 0.20000000000000004 (slider from 0 to 1, step 0.1)
B: (x(A) + n, y(A))
list1 = Sequence((i * A) + ((1 - i) * B), i, 0, 1, 1 / n)
list2 = Sequence(Rotate[Element[list1, i + 1], 90°, Element[list1, i]], i, 2, n)
list3 = Sequence(Dilate[Element[list2, i], taille, Element[list1, i + 1]], i, 1, n - 1)
list4 = Sequence(Mirror[Element[list3, i], Element[list1, i + 1]], i, 1, n - 1)
list5 = Sequence(Segment[Element[list3, i], Element[list4, i]], i, 1, n - 1)
L4 = Sequence((i * A) + ((1 - i) * B), i, 0, 1, 1 / ((10 * n)))
L5 = Sequence(Rotate[Element[L4, i + 1], 90°, Element[L4, i]], i, 2, (10 * (n + 1)))
L6 = Sequence(Segment[Element[L5, i - 1], Element[L4, i]], i, 1, (10 * n))
c = Circle(A, taille)
C, D = Intersect(c, yAxis)
a = Segment(C, D)
d = Circle(B, taille)
b = Line(B, yAxis)
e = Line(B, xAxis)
E, F = Intersect(d, b)
G, H = Intersect(d, e)
u = Vector(A, H)
f = Segment(E, F)
I: ((x(B) - x(A)) / n, y(A))
J = Mirror(A, I)
K = Mirror(I, J)
L = Mirror(J, K)
M = Mirror(K, L)
N = Mirror(L, M)
O = Mirror(M, N)
P = Mirror(N, O)
Q = Mirror(O, P)
R = Mirror(P, Q)
S = Mirror(Q, R)
T = Mirror(R, S)
g = Line(I, a)
h = Circle(I, taille)
U, V = Intersect(h, g)
i = Segment(U, V)
j = false
W: (round(((random() * 10) * n)) / 10, y(A) + 0.025)
k = Line(W, yAxis)
p = Circle(W, 0.5)
Z, A1 = Intersect(p, k)
v = Vector(Z, W)
T14: "" + (x(W))
l = Segment(A, H)
B1 = (10.612163636864743, 1.4997877436402096)
C1 = (11.373425335742942, 1.4730768068374658)
w: x(W)