Auxiliares

Jambas

Arco conopial

radiosup = 4 (slider from 0 to 5)
radioinf = 4 (slider from 0 to 5)
dluces: (2 * sqrt((radioinf * radiosup)))
Centroarriba: (radiosup, 0, dluces)
zz: z(Centroarriba)
xx: x(Centroarriba)
c1 = Circle(Centroarriba, radiosup, yAxis)
A: ((2 * radioinf), 0, 0)
Centroabajo: (radioinf, 0, 0)
c2 = Circle(Centroabajo, radioinf, yAxis)
C = Intersect(c1, c2, 1)
ε = Angle(A, Centroabajo, C)
α = 0 rad (slider from 0 to (2 * ε), step 0.017453292519943295)
γ = If(α > ε, α + 180° - (2 * ε), 180° - ε)
v: (1, 0, 0)
O: (0, 0, 0)
ejehorizontal = Line(O, v)
a = true
b = false
jambas: (0, 0, (-4 * radioinf))
w: (0, 0, 1)
ejevertical = Line(O, w)
AA: A + jambas
umbral = Segment(AA, A)
d = If(α > (2 * ε) - 0.1, true, false)
Umbral: (0, 0, (-4 * radioinf))
β = If(α < ε, α, ε)
P: ((radioinf * cos(β)) + radioinf, 0, (radioinf * sin(β)))
c = CircleArc(Centroabajo, A, P)
Q: ((radiosup * cos((-γ))) + xx, 0, (radiosup * sin((-γ))) + zz)
e = CircleArc(Centroarriba, Q, C)
e' = Mirror(e, ejevertical)
c' = Mirror(c, ejevertical)
AA' = Mirror(AA, ejevertical)
A' = Mirror(A, ejevertical)
umbral' = Segment(AA', A')
Umbral' = Mirror(Umbral, ejevertical)
AA'_{1} = Mirror(AA, ejevertical)
f = Segment(Centroabajo, P)
g = Segment(Centroarriba, Q)
B: (radioinf, 0, radioinf / 4)
h = Line(Centroarriba, Centroabajo)
vimposta: (1, 0, 0)
AD: A + vimposta
AI: A - vimposta
i = Segment(AI, AD)
AI' = Mirror(AI, ejevertical)
AD' = Mirror(AD, ejevertical)
i' = Segment(AI', AD')
p = OrthogonalPlane(AA'_{1}, ejevertical)