# ParametricPlot table of complex functions in several graphs

Assume that I have a table of complex functions like

Clear[p] Clear[M] M = 10; G = Table[Sin[i p] + p I, {i, M}]

I want to ParametricPlot them in graphs, each graph contains only one of them. What should I edit in the following code

ParametricPlot[Evaluate[ReIm /@ G], {p, 0, 2}, AxesLabel -> (Style[#, 12, Bold] & /@ {Re, Im}), PlotRange -> {{-1.2, 1.2}, {0, 2}}, ImageSize -> 600, PlotLegends -> Placed[G, Right]]

Which plot them in the following single graph: Thanks in advance.

## 2 Answers

plots = ParametricPlot[Evaluate[ReIm@#], {p, 0, 2},
AxesLabel -> (Style[#, 12, Bold] & /@ {Re, Im}),
PlotRange -> {{-1.2, 1.2}, {0, 2}}, ImageSize -> 600,
PlotLegends -> Placed[#, Right]] & /@ G;
Grid[Partition[plots, 2]]


If you only want to display one plot at a time, consider using Manipulate

Clear[p]
M = 10;
G = Table[Sin[i p] + p I, {i, M}];

Manipulate[
Legended[
ParametricPlot[
ReIm@G[[i]], {p, 0, 2},
AxesLabel -> (Style[#, 12, Bold] & /@ {Re, Im}),
PlotRange -> {{-1.2, 1.2}, {0, 2}},
ImageSize -> 300,
ColorFunction -> (ColorData["Rainbow"][#3] &)],
Labeled[
BarLegend[{"Rainbow", {0, 2}}],
Style["p", 12, Bold], Top]],
{{i, 5}, Range[Length[G]], ControlType -> SetterBar}] 