Cones from a Circle

f(r) = (((1 / 3 * π) * r^(2)) * sqrt(1 - r^(2)))
f_2(r) = f(1 - r)
A: (0, 0)
B: (x(A) + 1, y(A))
c = Circle(A, B)
C = Point(c)
g_1 = Segment(B, A)
d = CircleSector(A, B, C)
e = CircleSector(A, C, B)
α = Angle(B, A, C)
C1 = CircleArc(A, B, C)
C2 = CircleArc(A, C, B)
R1: C1 / ((2 * π))
R2: C2 / ((2 * π))
H1: sqrt(1 - R1^(2))
H2: sqrt(1 - R2^(2))
D = (1.3885212690506938, 1.8213620833425297, 0)
E = (3.2726556853682034, 1.7233870936940192, 0)
h = Circle(D, R1, xOyPlane)
k = Circle(E, R2, xOyPlane)
a, p, b = Cone(h, H1)
i, q, j = Cone(k, H2)
V1: (((1 / 3 * π) * R1^(2)) * H1)
V2: (((1 / 3 * π) * R2^(2)) * H2)
F: (α / ((2 * π)) + 2, V1)
G: (α / ((2 * π)) + 2, V2)
H: (α / ((2 * π)) + 2, V1 + V2)
loc1 = Locus(H, C)
loc2 = Locus(G, C)
loc3 = Locus(F, C)
g(x) = f(x / ((2 * π))) + f(((2 * π) - x) / ((2 * π)))
g'(x) = (Derivative[g] * 100)
r(x) = f(x / ((2 * π)))
s(r) = If[0 ≤ r ≤ 1, f_2]
t(r) = If[0 ≤ r ≤ 1, f(r)]
f_1(r) = s(r) + t(r)
f_1' = Derivative(f_1)
I: (α / ((2 * π)), 0)
l = OrthogonalLine(I, xAxis)
J = Intersect(f_1, l, (0.32410024687929434, 0.4566405877801309))
K = Intersect(s, l, (0.32410024687929434, 0.35257936642630244))
L = Intersect(f_1', l, (0.3241, -7.429593177421534E-5))
M = Intersect(t, l, (0.3241, 0.1040610721227862))
s' = Derivative(s)
N = Intersect(s', xAxis)
O = Max(s, 0.1, 0.3)
P = Max(f_1, 0.1, 0.6)
Q: (cos(((x(O) * 2) * π)), sin(((x(O) * 2) * π)))
R: (cos(((x(P) * 2) * π)), sin(((x(P) * 2) * π)))
S = Point(q)
T = Point(p)
m: y(M) / y(P)
n: y(M) / y(K)
β = Angle(B, A, R)
h_1 = Segment(A, R)
text1: "" + β + ""