MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

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)}];
>



  • Prev by Date: Re: NonLinearRegress question
  • Next by Date: Problems with mathlink (and TWJ_ExtendGraphics)
  • Previous by thread: GraphicArray wastes memory
  • Next by thread: error messages