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