We plot the volume of the cone formula as a function of theta to see is there is a clear maximum which emerges.

Input := 


Plot[CVol[theta],{theta,0, 2 Pi}]

Output =


-Graphics-