3

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.

Behzad
  • 575
  • 2
  • 11

1 Answers1

4

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.

Nasser
  • 143,286
  • 11
  • 154
  • 359
  • 3
    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. – Sjoerd C. de Vries Nov 17 '13 at 08:05