3
$\begingroup$

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.

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

Many ways to do this.

SetDirectory[NotebookDirectory[]];
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.

| improve this answer | |
$\endgroup$
  • 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$ – Sjoerd C. de Vries Nov 17 '13 at 8:05

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