Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

Yesterday, I was doing any Tables of 15 graphs similar to the next example, to save .eps and use in latex.

In the generation of the graphs Mathematica spends many time. Is possible to reduce this time, and work for the cpu?

I found that Mathematica save .eps with a big (not necessary) size. between 4 and 5 MB. When it´s obvious that for this image 400 or 500 KB is enough.

So... how to obtain eps from MAthematica with a reasonable size (10-20% of the size that I have commented)

In this example

ContourPlot[peaks[x, y], {x, -2, 2}, {y, -2, 3}, 
 ColorFunction -> "DarkRainbow", ContourLines -> False, 
 Contours -> 25, LabelStyle -> {Bold, 20}, 
 Epilog -> {Black, PointSize -> .036, Point[ {{1, 2}, {1.5, 2.5}}], 
   Cyan, PointSize -> .036, Point[ {{-1, 2}, {-1.5, 2.5}}]}, 
 ImageSize -> 300]

Yesterday I resolve the problem, saving jpg/png and converting to .eps to can use in latex, because I put 12 or 15 images per page, and don´t need a high quality, but I would like any solutions to this issue.

share|improve this question
1  
I'd just do as you did. save to png and then use convert to eps (level 3, to get best compression). I do not know of option in M do that. I myself save to png then convert outside. –  Nasser Jun 16 at 7:41
1  
you could use export[fname_, im_,opts___] := Export[fname, Rasterize[im,ImageResolution->300],opts] –  chris Jun 16 at 7:41
    
Once again I ask you to take the time to format your code properly. And that includes not dumping it into the editor as one long line that requires readers to do a lot of scrolling, –  m_goldberg Jun 16 at 7:44
1  
@Pickett Yes, precisely the Ian Thompson´s comment has induce me to start this issue in the MathematicaSE –  Mika Ike Jun 16 at 7:53
1  
fyi, the convert command using level3 eps is this convert file.png eps3:file.eps notice no space between eps3: and file.eps –  Nasser Jun 16 at 18:19

1 Answer 1

Try to use the FixPolygons package by Will Robertson. It merges adjacent polygons with the same color producing vector image of lesser size with the same (or ever better) quality.

For installing the package you should copy the FixPolygons.m file to the "Mathematica/Applications" directory in your user profile. Then you can use it as follows:

<< FixPolygons`
g2 = g // FixPolygons
Export["test.eps", g2]

In the case the above does not fit your needs but you wish to produce high-quality output you can try to use the "rasters in vectors" approach described here (originally proposed here) for 3D graphics (but the same method will work for 2D graphics). The idea it to rasterize only the largest and problematic part of the vector image - the contour plot itself, keeping axes and labels in vector form. This will dramatically reduce the size of the exported EPS file while allowing you to get any resolution you need.

You can also try Jens Nöckel's "rasters in vectors" functions published on his homepage (see also his answer here).

share|improve this answer
    
@alexy-popkov I have tested your propose, but the result is equela 4.5 MB for that image. –  Mika Ike Jun 16 at 8:07
    
@Mika I have added description of another approach. –  Alexey Popkov Jun 16 at 8:20
    
Yes, I refer to the initial ( FixPolygons ) proposal. The other link I´ll try later, still not be tested. Thank you. –  Mika Ike Jun 16 at 8:28

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

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