A_1 = Intersect(xAxis, yAxis)
X = PointIn(z = 0)
c = Circle(A_1, X, xOyPlane)
f = Line(A_1, X)
Y = Intersect(f, c, 2)
A = (-0.19864045090830018, -3.375440719689399, 4.676334331359657)
g = OrthogonalLine(A, xOyPlane)
h = Segment(A, X)
a = Plane(h, g)
i = OrthogonalLine(X, xOyPlane)
b = Plane(Y, g)
j = Segment(A, Y)
k = OrthogonalLine(Y, xOyPlane)
B = Mirror(A, xOyPlane)
l = Ray(B, Y)
m = Ray(B, X)
n = Segment(A, B)
Altura: (0, 0, (3 / 5 * n))
d = Plane(Altura, xOyPlane)
L = Intersect(l, d)
K = Intersect(m, d)
p = Ray(B, A_1)
G = Intersect(p, d)
q = OrthogonalLine(G, d)
e = Circle(q, L)
NP: 200
r = Segment(Y, L)
s = Segment(X, K)
lista1 = Sequence(Rotate[Y, ((w * 360) * ° / NP)], w, 0, NP)
lista2 = Sequence(Ray[B, Element[lista1, w]], w, 1, NP + 1)
lista3 = Sequence(Intersect[d, Element[lista2, w]], w, 1, NP + 1)
ConoB = Sequence(Polygon[B, Element[lista3, w], Element[lista3, w + 1]], w, 1, NP + 1)
ConoA = Sequence(Polygon[A, Element[lista1, w], Element[lista1, w + 1]], w, 1, NP + 1)