Re: Compression of Plot[] to reduce notebook size
- To: mathgroup at smc.vnet.net
- Subject: [mg120971] Re: Compression of Plot[] to reduce notebook size
- From: "Rolf.Mertig at gmail.com" <rolf.mertig at gmail.com>
- Date: Fri, 19 Aug 2011 06:35:31 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j2cv27$hes$1@smc.vnet.net>
Maybe using PerforranceGoal->"Speed" can help? :
In[1]:= p1 =
Plot3D[Sin[x y], {x, 0, 2 \[Pi]}, {y, 0, 2 \[Pi]},
PlotPoints -> 300, Mesh -> None];
ByteCount[p1]
Out[1]= 10162400
In[2]:= p2 =
Plot3D[Sin[x y], {x, 0, 2 \[Pi]}, {y, 0, 2 \[Pi]},
PlotPoints -> 300, PerformanceGoal -> "Speed"];
ByteCount[p2]
Out[2]= 5752640
In[3]:= ExportString[p1, "NB"] // ByteCount
Out[3]= 8447552
In[4]:= ExportString[p2, "NB"] // ByteCount
Out[4]= 4589408
In[5]:= Shallow[InputForm[p1],5
]
Out[5]//Shallow= Graphics3D[GraphicsComplex[{<<141259>>}, {<<2>>},
Rule[<<2>>]], {Rule[<<2>>], Rule[<<2>>], Rule[<<2>>], Rule[<<2>>],
Rule[<<2>>]}]
In[6]:= Shallow[InputForm[p2],5
]
Out[6]//Shallow= Graphics3D[GraphicsComplex[{<<90000>>}, {<<1>>},
Rule[<<2>>]], {Rule[<<2>>], Rule[<<2>>], Rule[<<2>>], Rule[<<2>>],
Rule[<<2>>]}]
(* ********************* *)
Rolf Mertig
GluonVision GmbH, Berlin, Germany
http://www.gluonvision.com