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