SwatchLegend[{Blue,Red},{"First pencil","Second pencil"}]ShowTable[ContourPlot[((5+x)^2+y^2)==r^2((-5+x)^2+y^2),{x,-10,10},{y,-10,10},MaxRecursion3,ContourStyle{Blue,Thick}],{r,Union[-((Range[9]/2-5)/(Range[9]/2+5)),{1},-((Range[9]/2+5)/(Range[9]/2-5))]}],TableContourPlot[Sin[θ](-25+x^2+y^2)==10yCos[θ],{x,-10,10},{y,-10,10},ContourStyle{Red,Thick}],θ,0,π,,Graphics[{Black,PointSize[0.01],Point[{-5,0}]}],Graphics[{Black,PointSize[0.01],Point[{5,0}]}],AxesTrue,ImageSize700,PlotRangeAll,AxesOrigin{0,0},AspectRatioAutomatic
π
12
Out[]=
Out[]=
