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

*To*: mathgroup at smc.vnet.net*Subject*: [mg35641] Re: GraphicsArray: same width, different height ? 360deg-fly around a surface*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Wed, 24 Jul 2002 02:06:02 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <ahiv8q$gla$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

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