Mathematica 9 is now available
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

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

  • To: mathgroup at smc.vnet.net
  • Subject: [mg35611] GraphicsArray: same width, different height ? 360deg-fly around a surface
  • From: stefaniekuschel at gmx.de (stef)
  • Date: Tue, 23 Jul 2002 01:51:04 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

 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: Re: Pattern Matching in Lists
  • Next by Date: elementwise vector scalar subtraction
  • Previous by thread: Re: Memory leak? Self-created non-executable Help notebook?
  • Next by thread: RE: GraphicsArray: same width, different height ? 360deg-fly around a surface