La divisione di una circonferenza in 15 parti uguali

Costruzione del triangolo

Triangolo

Costruzione del pentagono

Pentagono

Pentadecagono

A è un punto variabile sulla circonferenza di base
Z definisce il raggio OZ della circonferenza di base

A un punto sulla circonferenza.
Q il punto di intersezione della circonferenza 
con l'asse del segmento OA.
Circonferenza di raggio OQ e centro in Q
AB lato del triangolo equilatero inscritto
Intersecando QO con la circonferenza si ottiene C

CD perpendicoalre ad AC
D è arbitrario sulla perpendicolare
CF=CD e CE=2CF
DE=DG 
GC=CH sezione aurea di CE
I intersezione della circonferenza di centro H e raggio HC
con la circonferenza di centro E e raggio HC
L'angolo ECI è 2π /5
AP lato del pentagono regolare

w = false
u = false
o = false
v = false
z = false
O = Intersect(xAxis, yAxis)
Z = (-2.472998672452178, 0.9523547850293248)
c = Circle(O, Z)
A_1: O + (1, 0)
A = Point(c)
h = LineBisector(O, A)
Q = Intersect(c, h, 2)
d = Circle(Q, O)
B = Intersect(c, d, 1)
f = Segment(B, A)
D_1 = (13.56, -1.96)
g = LineBisector(f)
C = Intersect(c, g, 1)
i = Segment(A, C)
j = Segment(C, B)
k = OrthogonalLine(C, i)
D = Point(k)
e = Circle(C, D)
F = Intersect(e, i, 1)
q = CircleArc(C, D, F)
E = Mirror(C, F)
p = Circle(D, E)
G = Intersect(p, k, 1)
r = CircleArc(D, E, G)
s = Circle(C, G)
H = Intersect(s, i, 1)
t = CircleArc(C, H, G)
c_1 = Circle(H, C)
d_1 = Circle(E, Segment[C, H])
I = Intersect(c_1, d_1, 1)
l = Segment(E, I)
m = Segment(I, C)
n = Segment(I, H)
t1, c_2, i_1, b' = Polygon(I, E, C)
a = Ray(C, I)
P = Intersect(c, a, 2)
f_1 = Segment(P, A)
e_1 = Circle(A, P)
J = Intersect(c, e_1, 2)
g_1 = Circle(J, A)
K = Intersect(c, g_1, 2)
h_1 = Circle(K, J)
L = Intersect(c, h_1, 2)
k_1 = Circle(L, K)
j_1 = Segment(P, L)
l_1 = Segment(L, K)
m_1 = Segment(K, J)
n_1 = Segment(J, A)
p_1 = Circle(B, L)
M = Intersect(c, p_1, 2)
q_1 = Circle(L, B)
N = Intersect(c, q_1, 2)
r_1 = Circle(N, L)
V = Intersect(c, r_1, 2)
s_1 = Circle(C, K)
Q_1 = Intersect(c, s_1, 2)
t_1 = Circle(J, Q_1)
R = Intersect(c, t_1, 2)
d_2 = Circle(R, J)
S = Intersect(c, d_2, 2)
e_2 = Circle(A, S)
T = Intersect(c, e_2, 2)
f_2 = Circle(T, A)
U = Intersect(c, f_2, 2)
b = LineBisector(B, A)
a_1 = Segment(E, A)