RE: Re: GraphicsArray: same width, different height ? 360deg-fly around a surface

*To*: mathgroup at smc.vnet.net*Subject*: [mg35671] RE: [mg35641] Re: GraphicsArray: same width, different height ? 360deg-fly around a surface*From*: "David Park" <djmp at earthlink.net>*Date*: Thu, 25 Jul 2002 04:46:05 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

That's nice Jens, but now the z scale is different for the two plots. Similar problems also occur with a two rectangle approach. I believe that GraphicsArray should be used less often than it is, mainly when one wants to assemble a series of plots that have the same overall plot ranges, but different sets of data. If one wants to directly compare two curves or surfaces, it is better to render them in the same plot. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Jens-Peer Kuska [mailto:kuska at informatik.uni-leipzig.de] To: mathgroup at smc.vnet.net Hi, fix the AspectRatio to the same value for both plots, i. e., table1 = ListPlot3D[Table[Sin[x*y], {x, 0, (3*Pi)/2, Pi/15}, {y, 0, (3*Pi)/2, Pi/15}], PlotRange -> {0, 0.25}, Axes -> {None, None, None}, ViewPoint -> {5, -2.5, 0.6}, BoxRatios -> {10, 10, 1.25}, AspectRatio -> 1/2]; table2 = ListPlot3D[Table[Sin[x*y], {x, 0, (3*Pi)/2, Pi/15}, {y, 0, (3*Pi)/2, Pi/15}], PlotRange -> {-1, 0}, Axes -> {None, None, None}, ViewPoint -> {5, -2.5, 1}, BoxRatios -> {10, 10, 5}, AspectRatio -> 1/2]; Regards Jens stef wrote: > > Dear experts, > > How can I force mathemathica41 to make graphics in a column of same > width but different height? > By default, mathematica gives two cells on top of each other the same > height, but arranges the width such that both cells fit in the column > width. > This results in a horizontal sequeezing/scaling of cells which I would > like to omit. > > Here is an example: > Single output of both plots one after to the other just looks fine, > but when they enter in an GraphicsArray[], the automatic scaling > squeezes the lower cell width instead of stretching its height. > > >>>> demo start : just cut and paste into a new .nb >>>>>>>>>> > > \!\(\(\( (*\ > demo\ starts\ here\ *) \)\(\[IndentingNewLine]\)\(\("\<two single > plots \ > are shown here:\>"\)\(\[IndentingNewLine]\) > \(table1\ = > ListPlot3D[ > Table[Sin[x\ y], {x, 0, \(3 Pi\)\/2, Pi\/15}, {y, 0, \(3 > Pi\)\/2, > Pi\/15}], \ PlotRange\ -> {0, \ 0.25}, > Axes\ -> \ {None, \ None, \ None}, \ > ViewPoint\ -> \ \ {5, \(-2.5\), 0.6}, > BoxRatios\ -> \ {10, 10, 1.25}];\)\(\[IndentingNewLine]\) > \(table2\ = \ > ListPlot3D[ > Table[Sin[x\ y], {x, 0, \(3 Pi\)\/2, Pi\/15}, {y, 0, \(3 > Pi\)\/2, > Pi\/15}], \ PlotRange\ -> {\(-1\), \ 0}, \ > Axes\ -> \ {None, \ None, \ None}, > ViewPoint\ -> \ {5, \(-2.5\), 1}, > BoxRatios\ -> \ {10, 10, 5}];\)\(\[IndentingNewLine]\) > \("\<and this is how they look whend combined into an > graphicsarray:\>"\)\(\ > \[IndentingNewLine]\) > \(table3\ = {{table1}, {table2}};\)\(\[IndentingNewLine]\) > \(Show[GraphicsArray[ > table3, \ \ GraphicsSpacing\ -> \ > 0]];\)\(\[IndentingNewLine]\) > \("\<My question is: how to make cells in an graphics array to same > width \ > (but different height) ? Mathematicas default is: same height, but > different \ > widths.\>"\)\(\[IndentingNewLine]\) > \( (*\ demo\ ends\ here*) \)\)\)\) > > >>>> demo end >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > > Playing around with TableForm[] or RowsEqual-> or ImageSize-> didn't > help so far. For all those of you that might have similar problems > with plotting graphics: > there are good support-procedures on the David-Park-homepage > http://home.earthlink.net/~djmp/Mathematica.html > But I couldn't find a solution for my problem. > > My general purpose is to generate an animated GIF, which shows a > 360-degree-fly-around a surface plot, that is cut into two parts > at some z-value (this visualizes threshold effects on surfaces). > Interested people can get a copy of my *.nb > > I carefully browsed through TMB and F1HELP for GraphicsArray-Options > (well I think that F1 is pretty poor on these specific subjects), > and of course also this newsgroup, but I couln't find the magic trick > sought for. > > Thanks for your help in advance > > Bye > Stef