Author: Daniel Mentrard

x

x

x

x

n = 2 (slider from 0 to 6, step 1)
a = 16 (slider from 0 to 20, step 1)
r = 0.22000000000000072 (slider from -5 to 5, step 0.01)
T1: "" + a + "^" + n
L = (-1.0160742367273812, 4.991771189350808)
L8 = Sequence(Sequence[Circle[(x(L) - 0.25 + i / 2.5, y(L) + 0.25 - j / 2.5), r - 0.05], i, 1.0, a^(n - 1.0)], j, 1.0, a)
O: (x(L) + a / 2.5, y(L) + 0.25)
P: (x(L) - 0.25, y(L) + 0.25)
Q: (x(P), y(P) - 0.25 - a / 2.5)
R = Midpoint(P, O)
S = Midpoint(P, Q)
u = Vector(R, O)
v = Vector(R, P)
w = Vector(S, P)
z = Vector(S, Q)
liste1 = Sequence(Sequence[Circle[(x(L) - 0.25 + i / 2.5, y(L) + 0.25 - j / 2.5), r - 0.05], i, 1.0, a^(n - 1.0)], j, 1.0, a)
texte1: "" + a + "^" + n + " \; = \; " + a + " \; x \; " + a + " \; = \; " + (a^(n))
texte2: "" + a
texte3: "" + a
A = (9.071758112418427, 5.018962112124786)
liste2 = Sequence(Sequence[Circle[(x(A) - 0.25 + i / 2.5, y(A) + 0.25 - j / 2.5), r - 0.05], i, 1.0, n], j, 1.0, a)
texte4: "" + a + "^" + n + "  \; ≠ \; " + a + " \; x  \; 2 "
B: (x(A) - 0.25, y(A) + 0.25)
C: (x(B), y(B) - 0.25 - a / 2.5)
D: (x(A) + n / 2.5, y(A) + 0.25)
E = Midpoint(B, D)
F = Midpoint(B, C)
b = Vector(F, B)
c = Vector(F, C)
d = Vector(E, D)
e = Vector(E, B)
texte5: "" + a
texte6: "" + n
liste3 = Sequence(Sequence[Circle[(x(A) - 0.25 + i / 2.5, y(A) + 0.25 - j / 2.5), r - 0.05], i, 1.0, n], j, 1.0, a)
G = (7.820975664815443, 2.286274373340005)
f = Line(G, yAxis)
H = (-0.975287852566414, 6.242553636953792)
I = (0.003585367296791042, 6.256149098340781)
J = (0.01359546138698886, 5.4864045386130105)
K = (-0.9864045386130111, 5.4864045386130105)
poly1, h, i, j, k = Polygon(H, I, J, K)