Easier way to save images?

Question

I seek to save my plots without having to save them one at a time. To give you an idea of what I am working with. I am dealing with the eigenbasis of a 50 by 50 tridiagonal matrix. I have plotted each of the columns using the following Do loop.

Do[Print[ListLinePlot[MatSE[[51 - j]]]], {j, 50}]

Is there is a easier way to save all these images without having to save them one at a time?

On a side note. Is there a way I can create a GraphicGrid of my plots without having to entry each plot at a time.

Sorry for the very short question. If you need me to give more details of my code or are just curious on what I am working on, please let me know and I will be more than happy to help.

Thank You once again for your time. Have a wonderful day.

Export[] and Table[] are your friends. – J. M.'s missing motivation Oct 08 '15 at 07:31 — J. M.'s missing motivation, Oct 08 '15 at 07:31

Alexei Boulbitch · Answer 1 · 2015-10-08T09:36:42.337

4

The answer to your first question is: "yes". Try this, for example: This is such a matrix:

m = {{1, 4, 0, 0}, {3, 4, 1, 0}, {0, 2, 3, 4}, {0, 0, 1, 3}};

This makes plots of its columns:

 ListPlot[#, PlotStyle -> PointSize[0.03]] & /@ 
 Table[Transpose[m][[i]], {i, 1, Length[m]}]

with the effect

The answer to your second question is: "yes". This places all the plots into a grid:

    Grid[Partition[
  ListPlot[#, PlotStyle -> PointSize[0.03]] & /@ 
   Table[Transpose[m][[i]], {i, 1, Length[m]}], 2]]

returning the following:

You may equally use the GraphicsGrid instead.

Have fun!

edited Oct 08 '15 at 09:36

answered Oct 08 '15 at 07:33

Alexei Boulbitch

39,397
2
47
96

@Jason B " Grid is far superior to GraphicsGrid", Well, and? "Also, you can really make the grid of plots look nice..." Yes, there are many ways to make them look nice, nicer, still nicer. But the OP question is different. – Alexei Boulbitch Oct 08 '15 at 07:47

score 2 · Answer 2 · answered Oct 08 '15 at 10:28

2

@AlexeiBoulbitch demonstrated the use of (Graphics)Grid.

To do a bulk export you can, for instance, use this:

SetDirectory["/path/to/output/directory/"];
Table[Export["plot-"<>ToString[j]<>".pdf",
      ListLinePlot[MatSE[[51 - j]]],
      {j,50}]

answered Oct 08 '15 at 10:28

LLlAMnYP

11,486
26
65

Easier way to save images?

2 Answers2