2
$\begingroup$

I've got a list of plots of the same curve with different colors in a variable called bifcurveplot. To plot them all together is senseless because I will miss the colors so I would like to plot each of them in a different figure. Just as an example, I am doing something like this:

bifcurveplot = {};
For[i = 1, i <= 2, i++,
 AppendTo[bifcurveplot, {}];
 For[j = 1, j <= 2, j++,
  tempplot = 
   ParametricPlot[{If[i == 1 && j == 1, {t, t}], 
     If[i == 1 && j == 2, {t, t}], If[i == 2, {t, t}]}, {t, 0, 1}, 
    PlotStyle -> {Blue, Red, Orange}];
  AppendTo[bifcurveplot[[i]], tempplot];
  ]
 ]

The problem is that then I try to use the following command:

For[i = 1, i <= 2, i++,
 For[j = 1, j <= 2, j++,
  Show[bifcurveplot[[i]][[j]]]
  ]
 ]

but I get no output. On the other hand, if I try with

Show[bifcurveplot]

I only get the following output:

Output

which doesn't show the set of colors I have used in each case. The question is: can I plot the graphs in different figures in order to see the colors? Note that this is only an example that shows what my problem is.

$\endgroup$
8
  • 2
    $\begingroup$ How many plots do you have? Have you explored GraphicsGrid ? $\endgroup$
    – Syed
    Jan 15, 2022 at 17:57
  • $\begingroup$ In this case, I've got three plots. I could plot them manually but in the future I could get more plots so to do that manually is not the best idea $\endgroup$ Jan 15, 2022 at 18:11
  • $\begingroup$ plots = Table[ Plot[Sin[x], {x, 0, 2 \[Pi]}, PlotStyle -> RandomColor[]], {8}] ? and e.g., plots[[3]] would be the third plot. Also try: GraphicsGrid[Partition[plots, 2]] and GraphicsGrid[Partition[plots, UpTo[3]]] $\endgroup$
    – Syed
    Jan 15, 2022 at 18:20
  • $\begingroup$ I have tried with those options but still, I cannot see the plots in full as if I plot them separately. I edited the question just to explain the idea a little better $\endgroup$ Jan 15, 2022 at 23:20
  • $\begingroup$ Difference in color means a difference in the data that is being plotted. I don't think I understand this particular problem. $\endgroup$
    – Syed
    Jan 16, 2022 at 1:21

1 Answer 1

3
$\begingroup$
Row[(Show[#1, ImageSize -> Small] & ) /@ Flatten[bifcurveplot]]

enter image description here

You can change the size of each plot by adjusting the ImageSize option.

Or you can just write bifcurveplot and evaluate it,it will show your plots.

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.