Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: export eps

  • To: mathgroup at smc.vnet.net
  • Subject: [mg90704] Re: export eps
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Sun, 20 Jul 2008 06:33:11 -0400 (EDT)
  • References: <g5s9tr$557$1@smc.vnet.net>

Hi,

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]]

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

while

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]]


gives

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

the last file is nearly 4 times smaller

and

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
option.

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

Hope that helps
   Jens




jamesmgg at googlemail.com 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