Apotema

A = (0.76, 0.12)
B = (3.18, 0.06)
poli1, a, b, c, d, e, C, D, E = Polygon(A, B, 5)
F = Midpoint(A, B)
G = Midpoint(B, C)
H = Midpoint(C, D)
I = Midpoint(D, E)
J = Midpoint(E, A)
f = OrthogonalLine(J, e)
g = OrthogonalLine(F, a)
h = OrthogonalLine(G, b)
i = OrthogonalLine(H, c)
j = OrthogonalLine(I, d)
K = Intersect(f, g)
k = Circle(K, H)
l = Segment(F, K)
p = Circle(K, E)