We plot a sample solution for visual effect.

Input := 


PolarPlot[{R/R Sin[t], R1sol/R Sin[t], R2sol/R Sin[t]}, 

				{t,0, 2 Pi}]