Author: Daniel Mentrard

Mover el plano

Volumen =  \frac{ 1 }{ 3} π h² ( 3r -h)

Área = 2πrh

j = 2.2 (slider from -4 to 4, step 0.1)
h_1 = 2.52 (slider from 0 to 4, step 0.01)
O = (0, 0)
c = Circle(O, 4.0)
H: (0.0, h_1)
d = OrthogonalLine(H, yAxis)
B = Intersect(c, d, 1.0)
C = Intersect(c, d, 2.0)
r_1 = 0.40000000000000036 (slider from -5 to 5, step 0.1)
C1 = Dilate(C, r_1, H)
a = 0.3599999999999999 (slider from -3.14 to 3.14, step 0.1)
C2 = Rotate(C1, a, H)
C4 = Mirror(C2, H)
C5 = Mirror(C4, yAxis)
e = Conic(B, C4, C5, C, C2)
g = Circle(H, 0.2)
k = Circle(H, 6.0)
p = Circle(H, r_1 + 0.4)
q = Circle(H, 5.0)
I, W = Intersect(c, yAxis)
f1 = Conic(B, C4, C5, C, C2)
b1 = Segment(H, B)
s = CircleArc(O, C, B)
t = CircleArc(O, C, B)
r = Segment(O, C)
h = Segment(I, H)
A, D = Intersect(c, xAxis)
E = (0, 0.6)
F = Mirror(E, O)
G = (1.0805619834710791, 0.5808595041322321)
f = Conic(D, G, E, A, F)