Quesisto esame
Author: Ubaldo Pernigo  - www.ubimath.org

a' = 20 (slider from 0 to 25, step 0.1)
A = (-10, -10)
B = Point(Circle[A, a'])
b = Segment(A, B)
poli1, a, c, d, e, C, D = Polygon(A, B, 4)
f = Segment(D, B)
g = Segment(C, A)
O = Midpoint(g)
K = Midpoint(e)
h_1 = Circle(O, K)
hc = 6 (slider from 0 to 25, step 0.1)
i, k, j = Cone(h_1, hc)
h = 10 (slider from 0 to 25, step 0.1)
l, E, F, G, H, facciaABFE, facciaBCGF, facciaCDHG, facciaADHE, facciaEFGH, spigoloAE, spigoloBF, spigoloCG, spigoloDH, spigoloEF, spigoloFG, spigoloGH, spigoloEH = Prism(poli1, h)
hp = 7.5 (slider from 0 to 25, step 0.1)
m, I, facciaEFI, facciaFGI, facciaGHI, facciaEHI, spigoloEI, spigoloFI, spigoloGI, spigoloHI = Pyramid(facciaEFGH, hp)
n = Segment(F, H)
p = Segment(G, E)
J = Intersect(n, p)
L = Midpoint(spigoloEH)
poli2, l_1, i_1, j_1 = Polygon(I, J, L)
M = Point(k)
poli3, k_1, m_1, o = Polygon(M, O, K)