Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

GraphicArray wastes memory

  • To: mathgroup at smc.vnet.net
  • Subject: [mg12851] GraphicArray wastes memory
  • From: Alexander Kricke <kricke at student.uni-kassel.de>
  • Date: Wed, 17 Jun 1998 00:27:54 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

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: Importing lists from Excel to Mathematica 3.0
  • Next by Date: error messages
  • Previous by thread: RE: Importing lists from Excel to Mathematica 3.0
  • Next by thread: Re: GraphicArray wastes memory