<< Graphics`Graphics`

DisplayTogether[Plot[Tan[x], {x, 0, 2 π}], 
      Plot[-Cot[x], {x, 0, 2 π}], 
      ParametricPlot[{Cos[t], Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{2 Cos[t], 2 Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{3 Cos[t], 3 Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{4 Cos[t], 4 Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{5 Cos[t], 5 Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{6 Cos[t], 6 Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{7 Cos[t], 7 Sin[t]}, {t, 0, 2 π}], 
      ParametricPlot[{8 Cos[t], 8 Sin[t]}, {t, 0, 2 π}], 
      ImageSize -> 550, PlotRange -> {0, 10}, 
      AxesOrigin -> {0, 0}, AspectRatio -> Automatic]