arată/ascunde planele

arată/ascunde baza mică

l_b = 4.5 (slider from 1 to 5, step 0.1)
h = 6 (slider from 1 to 7, step 0.1)
A = (1.347795743930135, 3.4985771657077223)
B = Point(Circle[A, abs(l_b)])
a = Segment(A, B)
e = OrthogonalLine(A, xOyPlane)
poly1, b, c, d, f, C, D = Polygon(A, B, 4)
g = Segment(A, C)
i = Segment(B, D)
O = Intersect(i, g)
j = Sphere(O, h)
k = OrthogonalLine(O, poly1)
V, G = Intersect(k, j)
l_1, faceABF, faceBCF, faceCDF, faceADF, edgeAF, edgeBF, edgeCF, edgeDF = Pyramid(poly1, V)
H = Midpoint(c)
m = Segment(O, H)
n = Segment(V, H)
h_2 = Segment(V, O)
trage = Point(k)
q = OrthogonalLine(trage, k, space)
r = OrthogonalLine(trage, k, space)
l = OrthogonalPlane(trage, k)
poly2, I, J, K, L, s, t, a_1, b_1 = IntersectPath(l, l_1)
M = Intersect(n, b_1)
c_1 = Segment(trage, M)
d_1 = Segment(J, L)
e_1 = Segment(K, I)
o = Plane(D, A, B)
u = true
p = true