essai

Section d'or du tableau : 

Pentagne régulier : rapport diagonale/côté :

A = (-1.64, 11.26)
B = (10.34, 11.26)
C = (10.36, 3.84)
D = (-1.66, 3.84)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
K = (2.62, 10)
J = (6.06, 10)
e: Distance[A, B] / Distance[B, C]
texte1: "Format du tableau BA/BC=" * e
f = Circle(B, C)
E = Intersect(f, a, 1)
g = Circle(C, B)
F = Intersect(g, c, 1)
h = Segment(E, F)
k = Circle(A, D)
E' = Intersect(k, a, 1)
p = Circle(D, A)
F' = Intersect(p, c, 1)
i = Segment(E', F')
q = Circle(E, A)
G = Intersect(q, h, 1)
r = Circle(A, E)
H = Intersect(r, d, 1)
s = Circle(E', B)
G' = Intersect(s, i, 1)
t = Circle(B, E')
H' = Intersect(t, b, 1)
j = Segment(H, H')
l: Distance[B, E] / Distance[E, G]
m: Distance[G, H] / Distance[G, F]
texte3: "BE/EG=AE'/EG'≈" + m + ""
texte4: "GH/GF=G'H'/G'F'≈" + m + ""
poly1, j_1, k_1, n, a_1, b_1, L, M, N = Polygon(J, K, 5)
c_1 = Segment(K, N)
d_1 = Segment(J, L)
e_1 = Segment(J, M)
f_1 = Segment(K, M)
g_1 = Segment(L, N)
o: Distance[J, M] / Distance[J, N]
texte6: "JM/JN=JL/JK=KM/KL=...=" + o + ""