Re: export eps
- To: mathgroup at smc.vnet.net
- Subject: [mg90707] Re: export eps
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Sun, 20 Jul 2008 06:33:44 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <g5s9tr$557$1@smc.vnet.net>
jamesmgg at googlemail.com wrote:
> 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
That all depends on what your plot actually is. Usually, when a graph is
too large, it is a good idea to control the adaptive sampling thanks to
the options *PlotPoints* and *MaxRecursion* (see the online help for
more details). Below are two examples of the influence of these options
on the size of the resulting graphs.
Module[{g},
Grid[Table[g = ContourPlot3D[Sin[3*x]*Sin[3*y]*Sin[3*z] == 1/2,
{x, 0, 3}, {y, 0, 3}, {z, -1, 1}, Mesh -> None,
BoxRatios -> Automatic, PlotPoints -> pp, MaxRecursion -> mr];
Export["g.eps", g]; Print["Points: ", pp, ", Recursions: ", mr,
", File Size (MB): ", N[FileByteCount["g.eps"]/2^20]]; g,
{pp, {5, 10}}, {mr, {0, 2}}]]]
Points: 5, Recursions: 0, File Size (MB): 0.0848265
Points: 5, Recursions: 2, File Size (MB): 5.90143
Points: 10, Recursions: 0, File Size (MB): 0.201566
Points: 10, Recursions: 2, File Size (MB): 22.4477
Module[{g},
Grid[Table[g = ContourPlot3D[x^4 + y^4 + z^4 - (x^2 + y^2 + z^2)^2
+ 3*(x^2 + y^2 + z^2) == 3, {x, -2, 2}, {y, -2, 2}, {z, -2, 2},
Mesh -> None, ContourStyle -> Directive[Orange, Opacity[0.8],
Specularity[White, 30]], PlotPoints -> pp, MaxRecursion -> mr];
Export["g.eps", g]; Print["Points: ", pp, ", Recursions: ", mr,
", File Size (MB): ", N[FileByteCount["g.eps"]/2^20]]; g,
{pp, {20, 40}}, {mr, {0, 2}}]]]
Points: 20, Recursions: 0, File Size (MB): 1.73392
Points: 20, Recursions: 2, File Size (MB): 4.47856
Points: 40, Recursions: 0, File Size (MB): 7.84393
Points: 40, Recursions: 2, File Size (MB): 19.5442
Regards,
-- Jean-Marc