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

Mathematica: GraphicsArray does not work properly

  • To: mathgroup at smc.vnet.net
  • Subject: [mg12876] Mathematica: GraphicsArray does not work properly
  • From: Alexander Kricke <kricke at student.uni-kassel.de>
  • Date: Wed, 17 Jun 1998 00:28:17 -0400
  • Organization: Universität Kassel
  • Sender: owner-wri-mathgroup at wolfram.com

Hello,

I have problems with the command GraphicsArray. This function shows
several
graphics side by side, but if they are marked, you can realise, that a
lot of place is 
wasted in the top and bottom. Especially if graphics are animated it is
not good .
I have attached an example.
I hope, somebody can help me.


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: Colors for 3D Curves
  • Next by Date: Re: Split in Mathematica 2.2
  • Previous by thread: Re: Help: What is \Muserfunction generated with Splice?
  • Next by thread: Re: Mathematica: GraphicsArray does not work properly