Re: GraphicArray wastes memory
- To: mathgroup at smc.vnet.net
- Subject: [mg12915] Re: [mg12851] GraphicArray wastes memory
- From: "Jrgen Tischer" <jtischer at col2.telecom.com.co>
- Date: Wed, 24 Jun 1998 03:44:36 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Hallo Alex,
as I see it you have two possibilities: Or you replace
Show[GraphicsArray[{plt1,grafik,plt2,plt3}],ImageSize->600]; by
Show[GraphicsArray[{{plt1,grafik},{plt2,plt3}}],ImageSize->600];
or by something like
Show[GraphicsArray[{plt1,grafik,plt2,plt3}],ImageSize->{600,200}];
I like the first version better.
And by the way, that isn't wasting memory but space on your notebook
window.
Jrgen
PS: Greetings from Colombia
-----Original Message-----
From: Alexander Kricke <kricke at student.uni-kassel.de> To:
mathgroup at smc.vnet.net
Subject: [mg12915] [mg12851] GraphicArray wastes memory
>Hello,
>
>if several Graphics are combined with GraphicsArray the real Graphic is
>just in the middle. At the margin there is nothing. This effect can be
>seen by marking the Graphic.
>I have put an example at the end of this document. I hope somebody can
>help me.
>
>Greetings from Germany
>
>Alex
>
>
>(* Programmteil II *)
>
> (* Definitionen *)
>
>Off[General::spell1,General::spell];
>Clear[anzahl,plt1,grafik,plt2,plt3,c,w1,w2,w3];
>
>anzahl=10; (* Definition der Anzahl der Plots *)
>
> (* Herstellung einer Animation *)
>
>Do[If[N[c]>0,{w1=0;w2=0;w3=ArcSin[c]},{w1=ArcSin[c];w2=ArcSin[
c];w3=0}];
> plt1=Plot[Cos[x],{x,-0.1,3.3},PlotRange->{{-0.1,3.3},{-1.2,1.2}},
> AspectRatio->1,DisplayFunction->Identity,
> PlotStyle->{{Thickness[0.02],RGBColor[1,0,0]}},Epilog->
> {Thickness[0.02],
> {RGBColor[0,1,0],Line[{{0,0},{ArcCos[-c],0}}]},
> {RGBColor[0,0,1],Line[{{ArcCos[-c],0},{ArcCos[-c],-c}}]},
> {PointSize[0.06],Point[{ArcCos[-c],-c}]}}];
> grafik=Graphics[{Thickness[0.02],{RGBColor[1,0,0],Circle[{0,0},1,
>
>{0,ArcCos[-c]}]},
>
> {RGBColor[0,1,0],Circle[{0,0},0.3,{0,ArcCos[-c]}]},
> {PointSize[0.06],RGBColor[0,0,0],
> Point[{-c,Sin[ArcCos[-c]]}]},
> {Line[{{0,0},{-c,Sin[ArcCos[-c]]}}]},
> {RGBColor[0,0,1],Line[{{0,Sin[ArcCos[-c]]},
>
>{-c,Sin[ArcCos[-c]]}}]}},
>
> PlotRange->{{-1.2,1.2},{-1.2,1.2}},AspectRatio->1,
> Axes->True];
> plt2=Plot[ArcCos[x],{x,-c,1},PlotRange->{{-1.1,1.1},{0,3.3}},
> AspectRatio->1,DisplayFunction->Identity,
>
>PlotStyle->{{Thickness[0.02],RGBColor[0.6,0.4,0.6]}},Epilog->
> {Thickness[0.02],{RGBColor[0,0,1],Line[{{0,0},{-c,0}}]},
> {RGBColor[0,1,0],Line[{{-c,0},{-c,ArcCos[-c]}}]},
> {PointSize[0.06],Point[{-c,ArcCos[-c]}]}}];
> plt3=ParametricPlot[{{x,Cos[x]},{Cos[x],x}},{x,0,ArcCos[-c]},
>
>PlotRange->{{-1.1,3.2},{-1.1,3.2}},AspectRatio->1,
> DisplayFunction->Identity,PlotStyle->
> {{Thickness[0.02],RGBColor[1,0,0]},
> {Thickness[0.02],RGBColor[0.6,0.4,0.6]}},
> Epilog->{Thickness[0.02],PointSize[0.06],
>
>{Line[{{ArcCos[-c],-c},{-c,ArcCos[-c]}}],
> Line[{{-1.1,-1.1},{3.2,3.2}}]},
>
>{RGBColor[1,0,0],Point[{ArcCos[-c],-c}]},
>
>{RGBColor[0.6,0.4,0.6],Point[{-c,ArcCos[- c]}]}}];
> Show[GraphicsArray[{plt1,grafik,plt2,plt3}],ImageSize->600];,
>{c,-0.999,0.999,1.998/(anzahl-1)}];
>