MathGroup Archive 1998

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

Search the Archive

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: 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