MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: export eps


since you don't give us an example I can only try to reduce the size
with my own example

plt = ContourPlot[Sin[x*y], {x, -Pi, Pi}, {y, -Pi, Pi}];
FileInformation[Export["i:/temp/ctest.eps", plt]]

{File -> "I:\\temp\\ctest.eps", FileType -> File, Date -> 3425476087,
  ByteCount -> 2688623}


plt1 = ContourPlot[Sin[x*y], {x, -Pi, Pi}, {y, -Pi, Pi},
   MaxRecursion -> 0, PlotPoints -> 64,
   Method -> {"Refinement" -> {"CellDecomposition" -> "Quad"}}]
FileInformation[Export["i:/temp/ctest1.eps", plt1]]


{File -> "I:\\temp\\ctest1.eps", FileType -> File, Date -> 3425476179,
   ByteCount -> 679263}

the last file is nearly 4 times smaller


plt2 = ContourPlot[Sin[x*y], {x, -Pi, Pi}, {y, -Pi, Pi},
   MaxRecursion -> 0, PlotPoints -> 32,
   Method -> {"Refinement" -> {"CellDecomposition" -> "Quad"}}];
FileInformation[Export["i:/temp/ctest2.eps", plt2]]

gives a nearly 9 times smaller *.eps file.

So you have to play around a with the PlotPoints and MaxRecursions

How ever since the refinement is adaptive, the size reduction depend on 
the function you try to plot.

Hope that helps

jamesmgg at wrote:
> hi
> I have a graph generated with ContourPlot3D.
> when I try to export it as eps, the eps file is 50MB size.
> I need to use the eps image in Latex.
> how to solve this problem

  • Prev by Date: Re: Can you help me rewrite my matlab code to mathematica code?
  • Next by Date: Re: export eps
  • Previous by thread: export eps
  • Next by thread: Re: export eps