1

I am having difficulties exporting vector graphics. Using Kardashev3's code provided here:

images = Image[ListPlot[pdata = Table[Sin[2 \[Pi] x/12.34], {x, #}] + 
RandomReal[.1, {#}]]] & /@ Table[i, {i, 100, 200, 10}];

and then exporting them as follows:

Export[NotebookDirectory[] <> "image" <> ToString[#] <> ".eps", 
"AllowRasterization" -> False, Image[images[[#]]]] & /@ Range[Length[images]]
Manipulate[images[[n]], {n, 1, Length[images], 1}]

I get the error message:

<<Export::noelem: {...} is not a valid set of export elements for the EPS format.>>

The code works well for rasterized graphics, but appears to run into problems with vector graphics.

martin
  • 8,678
  • 4
  • 23
  • 70
  • Image will represent rasterized graphics, which will not yield vectorized output. You should work with the initial Graphics expression returned by ListPlot. – Yves Klett Nov 10 '13 at 14:43

1 Answers1

3

How about:

Export[
 NotebookDirectory[] <> "image" <> ToString[#] <> ".eps", 
 Image[images[[#]]],
 "AllowRasterization" -> False] & /@ Range[Length[images]]

Edit

I think the OP is asking for this:

plots = ListPlot[
     pdata = Table[Sin[2 Pi x/12.34], {x, #}] + 
       RandomReal[.1, {#}]] & /@ Table[i, {i, 100, 200, 10}];
Export["plot" <> ToString[#] <> ".eps", 
    plots[[#]]] & /@ Range[Length[plots]]

which produces a set of EPS files.

cormullion
  • 24,243
  • 4
  • 64
  • 133