Arată/ascunde planele

Arată/ascunde secțiunea

A = (0.01254115967723557, 2.8914927422833987)
h = 4.8 (slider from 1 to 5, step 0.1)
l_b = 4.5 (slider from 1 to 5, step 0.1)
B = Point(Circle[A, abs(l_b)])
poly1, b, c, d, C = Polygon(A, B, 3)
H = Midpoint(d)
j = Segment(B, H)
F = Midpoint(b)
l = Segment(F, C)
O = Intersect(l, j)
a = Segment(A, B)
D = Midpoint(c)
g = Sphere(O, h)
f = Segment(A, D)
G = Midpoint(c)
k = Segment(G, A)
e = OrthogonalLine(O, poly1)
V, J = Intersect(e, g)
i, faceABE, faceBCE, faceACE, edgeAE, edgeBE, edgeCE = Pyramid(poly1, V)
m = Segment(V, O)
n = Segment(V, G)
trage = Point(e)
o = OrthogonalPlane(trage, e)
poly2, B', A', C', p, q, r = IntersectPath(o, i)
N = Intersect(r, n)
s = Segment(A', N)
t = Segment(N, trage)
u = Plane(A, B, C)
v = true
w = true