h = 1.6 (slider from 0.2 to 5, step 0.1)
V = 7.5 (slider from 0.2 to 10, step 0.1)
I = (-8.505411151079137, 2.1573141088811836)
B = Point(Circle[I, h])
a = Segment(I, B)
dx: sqrt(V / h)
C = Point(Circle[I, dx])
b = Segment(I, C)
D = Point(Circle[C, h])
c = Segment(C, D)
poly1, b_1, a_1, c_1, d = Polygon(B, I, C, D)
E = Point(Circle[B, (0.5 * dx)])
e = Segment(B, E)
F = Point(Circle[E, dx])
f(x) = If[0 ≤ x ≤ 6, (h * x^(2))]
G = Point(Circle[F, h])
g = Segment(F, G)
H = Point(Circle[E, h])
i = Segment(E, H)
poly2, b_2, e_1, f_1, d_1 = Polygon(B, E, F, D)
poly3, f_2, g_1, c_2, d_2 = Polygon(F, G, C, D)
j = Segment(H, I)
k = Segment(H, G)
p: y = V
A = Intersect(f, p)