<< Graphics`ImplicitPlot`

\(\(Do[
      ImplicitPlot[{
		\((x + 1)\)\^2 + y\^2 == 2, 

          \((x - 1)\)\^2 + y\^2 == 1, 

          \((a\^2 - 1)\)\ x\^2 + 1\/2\ x + a\^2\ y\^2 == 
            a\^2\ \((a\^2 - 1)\) + 3\/2\ a\^2 + 1\/16, 
		y == 5}, 

        	{x, \(-3.4\), 3}, 
		PlotRange -> {\(-4\), 4}, 
		
        PlotPoints -> 100, 
		
        PlotStyle -> {RGBColor[0, 0, 1], 
				RGBColor[0, 0, 1], 

            				RGBColor[1, 0, 0]}, 
	AspectRatio -> Automatic], 

      	{a, 0.01, 2.21, 0.1}]; \)\)