Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

RE: Graphics / cosmetics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg45508] RE: [mg45483] Graphics / cosmetics
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sat, 10 Jan 2004 16:43:28 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Marko,

This is a problem of getting the AspectRation and ImageSize matched.
Unfortunately, there is not a precise way to do it as far as I know. That is
because AspectRatio refers to the plot before extra things like plot labels
and tick labels are added. ImageSize refers to the entire plot region.

Furthermore, Mathematica's automatic choices work poorly for plots with low
aspect ratio.

Let's use a colored background so we can better see the actual plot region.

Needs["Graphics`Colors`"]

This is your original plot...

ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}], PlotLabel -> "This is a long
caption.", AspectRatio -> 1/5, ImageSize -> 1000,
   Background -> Linen];

and the same plot with the ImageSize "matched" to the AspectRatio.

ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}], PlotLabel -> "This is a long
caption.", AspectRatio -> 1/5, ImageSize -> {1000, 200},
   Background -> Linen];

It didn't help. But if we experiment with the ImageSize we can obtain...

ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}], PlotLabel -> "This is a long
caption.", AspectRatio -> 1/5, ImageSize -> {1000, 220},
   Background -> Linen];

which I think is closer to what you want.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/




From: Marko Kastens [mailto:Kastens at hamburg.baw.de]
To: mathgroup at smc.vnet.net

Hi!

If you plot this f.e. (in Mathematica 4.1.2.0):

ListPlot[Table[{x, Sin[x]}, {x, 1, 10, 0.1}],
    PlotLabel -> "This is a long caption.", AspectRatio -> 1/5,
    ImageSize -> 1000];

- then select the just plotted graphics - you can see that there is a space
between the left border of the selection and the y-axis(icl. labeling). Is
there any Option to set this space to zero or to other values? I havn't
found anything :-(

Thanks for help,
marko



  • Prev by Date: Re: Problem with FullSimplify in Version 5: Rationals are converted to Reals
  • Next by Date: Re: Problem with FullSimplify in Version 5: Rationals are converted to Reals
  • Previous by thread: Re: Graphics / cosmetics
  • Next by thread: Graphics in header when printing (or finding page breaks)