<< Graphics`ImplicitPlot`

下のグラフは
  \(C\ が赤色\)   
 もとの２定円が青色
ピンク色は、x=((-4 (a^2) + (s^2) - (t^2))/(4 c)),\(\(
\(-4\) a\^2 + s\^2 - t\^2\)\/\(4 c\)\)
つまり、ピンク色の２直線の間が\(「和が一定」\)\(（C\_1）\)、その両側が    \(「差が一定」 の部分 
          （C\_3, C\_4）\)

\(\(\(Do[
	
      ImplicitPlot[{	5\ x\^2 + 9\ y\^2 == 45 + 9\ k\^2\ , 
			
          \((x + 2)\)\^2 + y\^2 == k\^2	\ , \((x - 2)\)\^2 + y\^2 == k\^2	, 
          1000 \((x + 9\/2)\) == y, 1000 \((x - 9\/2)\) == y}, 

        	{x, \(-8\), 8}, 
		PlotRange -> {\(-6\), 6}, 
	
        AspectRatio -> Automatic, 
	
        PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 0, 1], 
            RGBColor[0, 0, 1], RGBColor[1, 0, 1], RGBColor[1, 0, 1]}], 

      	{k, 5, 0, \(-0.5\)}]; \)
\)\)