Das Volumen beträgt:                 Kubikeinheiten.

r = 3.2 (slider from 0 to 20, step 0.1)
h_1 = 4.601000000000001 (slider from 0.0010 to 20, step 0.1)
B = (2, 5)
C = Point(Circle[B, 2 r])
b = Segment(B, C)
A = Midpoint(b)
D = Point(Circle[A, h_1])
h = Segment(A, D)
poly1, c_1, b_1, r_1 = Polygon(B, D, C)
V: 1 / 3 * 3.141592653589793 r^(2) h_1
e = LineBisector(b)
F = Point(e)
f = Circle(F, r)
text2: V + ""