Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: elementwise vector scalar subtraction
  • Next by Date: Re: GraphicsArray: same width, different height ? 360deg-fly around a surface
  • Previous by thread: RE: GraphicsArray: same width, different height ? 360deg-fly around a surface
  • Next by thread: Re: GraphicsArray: same width, different height ? 360deg-fly around a surface