Manipulate[ParametricPlot[{a1 Sin[n1 (x+p1)],a2 Cos[n2 (x+p2)]},{x,0,20Pi},PlotRange->1,PerformanceGoal->"Quality"],
"Sumbu x",{{n1,1,"Frekuensi"},1,4},{{a1,1,"Amplitudo"},0,1},{{p1,0,"Fase"},0,2Pi},
Delimiter,"Sumbu z",{{n2,5/4,"Frekuensi"},1,4},{{a2,1,"Amplitudo"},0,1},{{p2,0,"Fase"},0,2Pi}, ControlPlacement->Left]