\(Do[
	
      g1 = ParametricPlot3D[

          			{
				{2 \@ 2\ Cos[u]\ Cos[t], 2 \@ 2\ Cos[u]\ Sin[t], 
              2 \@ 2\ Sin[u]}, 

            				{\@7\ Cos[u]\ Cos[t] + 4, \@7\ Cos[u]\ Sin[t], 
              \@7\ Sin[u]}, 

            			{\(\@\(7\ k\^2 - k + 8\)\/\(1 + k\)\) Cos[u]\ Cos[t] + 
                \(4\ k\)\/\(1 + k\), 
              \(\@\(7\ k\^2 - k + 8\)\/\(1 + k\)\) Cos[u]\ Sin[t], 
              \@\(7\ k\^2 - k + 8\)\/\(1 + k\)\ Sin[u]}
			}, 

          			{u, \(-\(π\/2\)\), π\/2}, {t, 0, 2\ π}, 
			
          PlotRange -> {{\(-10\), 10}, {\(-5\), 5}, {\(-5\), 2}}, 
			
          DisplayFunction -> Identity]; 
	
      g2 = ParametricPlot[

          		{
			{2\ Cos[t], 2\ Sin[t]}, 

            			{\@3\ Cos[t] + 4, \@3\ Sin[t]}, 

            			{\@\(3\ k\^2 - 9\ k + 4\)\/\(1 + k\)\ Cos[t] + 
                \(4\ k\)\/\(1 + k\), 
              \@\(3\ k\^2 - 9\ k + 4\)\/\(1 + k\)\ Sin[t]}
		}, 

          		{t, 0, 2\ π}, 
		
          PlotRange -> {{\(-6\), 10}, {\(-5\), 5}}, 
		
          PlotStyle -> {RGBColor[0, 0, 0], RGBColor[0, 0, 1], 
              RGBColor[1, 0, 0]}, 
		AspectRatio -> Automatic, 
		
          DisplayFunction -> Identity]; 
\(Show[GraphicsArray[{g1, g2}]]; 
      \)
, {k, \(-0.4\), 3, 0.1}]\)