Manipulate[
 ParametricPlot[{A1 Tan[n1 (x^2 + p1)], A2 Cos[n2 (5 x^2 + p2)]}, {x, 0, 2 Pi}, 
  ImageSize -> 300, AspectRatio -> 1, PlotRange -> 1, PerformanceGoal -> "Quality"], 
  {{n1, 2, "Frequency 1"}, 1, 3}, {{A1, 1, "Amplitude 1"}, 0, 2}, 
  {{p1, 0, "Phase 1"}, 0, 2 Pi}, {{n2, 9/4, "Frequency 2"}, 1, 3}, {{A2, 1, "Amplitude 2"}, 0, 2}, 
  {{p2, 0, "Phase 2"}, 0, 2 Pi}, ControlPlacement -> Top]