The command

Table[Polt[Sin[k x],{x,1,10}],{k,1,30}]

generates a list of graphics. I want to export each list item as an individual jpg file, named according to the order of appearance in the list. How can I do this?

Thanks in advance.

  • $\begingroup$ Have you tried anything, e.g. MapIndexed/Do $+$ Export? $\endgroup$
    – Kuba
    Commented Nov 16, 2013 at 10:21
  • $\begingroup$ Export created a jpg, containing all of the plots! I'm not familiar with MapIndexed/Do. $\endgroup$
    – Behzad
    Commented Nov 16, 2013 at 10:22
  • 1
    $\begingroup$ Please fix up this question. Your code does not generate graphics. $\endgroup$ Commented Nov 17, 2013 at 1:07

1 Answer 1


Many ways to do this.

data = Table[ Plot[Sin[k x], {x, 1, 10}], {k, 1, 3}];
Export[ToString[#] <> ".jpg", data[[#]]] & /@ Range[Length[data]]

Mathematica graphics

Or you can get a little fancy, and generate the names while building the table itself

data = Table[ {ToString[k] <> ".jpg", Plot[Sin[k x], {x, 1, 10}]}, {k,1, 3}];
Export[First[#], Last[#]] & /@ data

Have fun coming up with more ways.

  • 3
    $\begingroup$ I would use IntegerString to generate numbers with leading zeros. That will make sure the files are sorted in the correct order when you list them. $\endgroup$ Commented Nov 17, 2013 at 8:05

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