       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>
• 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
>  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.
>