Cone
Author: Mrs.Sajna Santosh

Haga click en el boton play/stop para ver la animación.

Generación de un cono, mediante la rotación de un triángulo rectángulo.

a = 3.1 (slider from 0 to 5, step 0.1)
b = 0.7 (slider from 0 to 4, step 0.1)
c: x^(2) / a^(2) + y^(2) / b^(2) = 1
h = 7 (slider from 6 to 12, step 0.1)
A = Point(yAxis)
B = Point(Circle[A, h])
C = Point(c)
poly1, b_1, c_1, l = Polygon(C, A, B)
e = Segment(B, A)
f = Segment(A, C)
D = Intersect(c, xAxis, 1)
E = Intersect(c, xAxis, 2)
d = Segment(D, B)
g = Segment(E, B)