We solve for t, the angle of the cut, for this specific radius, R, of the base of the cone.

Input := 


sol3 = Solve[eq1,t]

Output =


       -19.2538 + 6.28319 r

{{t -> --------------------}}

                r