Re: Huge file for a several-line plot
- To: mathgroup at smc.vnet.net
- Subject: [mg118554] Re: Huge file for a several-line plot
- From: Heike Gramberg <heike.gramberg at gmail.com>
- Date: Tue, 3 May 2011 05:43:27 -0400 (EDT)
How are you plotting the graphs? If I use the following:
pt[s_, t_] := CoordinatesToCartesian[{s, t, 0}, Bipolar][[{1, 2}]]
ParametricPlot[pt[s, t], {s, 0, 2 Pi}, {t, -5, 5},
PlotRange -> {{-10, 10}, {-8, 8}}, Mesh -> 22,
PlotStyle -> Opacity[0], MeshStyle -> Darker[Gray],
PlotPoints -> 100, ImageSize -> 600]
I end up with a file of about 631 kB on Mathematica 8.0.1 for OS X.
Heike
On 2 May 2011, at 11:51, Dushan Mitrovich wrote:
> I wanted to plot a number of the orthogonal coordinate lines of a
> Bi-polar coordinate system - a total of 22 curves. All the curves
> are circles. With PlotPoints unspecified, some of the circles had
> polygonal parts, so to eliminate this I added the option PlotPoints->50.
> That took a long time to plot (on a 4-CPU Mac Pro),
> and generated a notebook size of 10.5 MB. (Using PlotPoints->30 drops
> the size to 4.5 MB.)
>
> With that plot cell deleted the size is 53 KB. The file labels
> the graphic as 'CompressedData', but there simply isn't that much
> information in the plot. It's as tho Mathematica were storing every
> pixel of the plot, with very inefficient compression.
>
> With that plot the spinning beachball (computer busy) would appear
> every few seconds, and it was impossible to alter the graphic size.
>
> How can I instruct Mathematica to make more sensible choices for
> generating and storing the plot?
>
> - Dushan
> [ reverse the middle word of address to reply ]
>