arată/ascunde planele

arată/ascunde baza mică

A = (3.045112332840554, 2.5899853244199846)
h = 7 (slider from 1 to 8, step 0.1)
l_b = 3.5 (slider from 1 to 4, step 0.1)
B = Point(Circle[A, abs(l_b)])
poly1, b, c, d, f, i, j, C, D, E, F = Polygon(A, B, 6)
l = Segment(A, D)
e = Segment(F, C)
O = Intersect(l, e)
g = Sphere(O, h)
a = Segment(A, B)
k = Segment(E, B)
m = OrthogonalLine(O, k, space)
n = OrthogonalLine(O, poly1)
V, I = Intersect(n, g)
o, faceABH, faceBCH, faceCDH, faceDEH, faceEFH, faceAFH, edgeAH, edgeBH, edgeCH, edgeDH, edgeEH, edgeFH = Pyramid(poly1, V)
H = Midpoint(c)
p = Segment(O, H)
a_p = Segment(V, H)
h_2 = Segment(V, O)
trage = Point(n)
s = OrthogonalPlane(trage, n)
poly2, B', A', F', E', D', C', t, a_1, b_1, c_1, d_1, e_1 = IntersectPath(s, o)
Q = Intersect(e_1, a_p)
f_1 = Segment(trage, Q)
u = Plane(A, B, D)
q = true
r = true