Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Rotated Axes Labels on Plot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg74437] Rotated Axes Labels on Plot3D
  • From: Lawrence Walker <lwalker701 at earthlink.net>
  • Date: Wed, 21 Mar 2007 02:51:47 -0500 (EST)

The Plot command has an option for rotating axes labels, RotateLabel. 
This accommodates really long labels.  However, Plot3D does not.  This 
was mentioned before in a Mathgroup thread titled, "Aligned Axes Labels 
on Plot3D (Fri, 26 Apr 2002)".  The solution recommended by the writer 
did not work for me.

Alternatively, I used a combination of Text and Rectangle to align a 
label along the z-axis of a Plot3D graphics:

plt = Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 5},
AxesLabel -> {"x", "y", ""}, ColorFunction -> Hue,
TextStyle -> {FontFamily -> "Times", FontSize -> 12}];
plt2 = Graphics[{Rectangle[{.2, 0}, {1, 1}, plt]}];
Show[Graphics[{Text[
"really long label", Scaled[{.1, .5}], {0, 0}, {0, 1}]}], plt2]

Is there an easier way to do this?

Also, I typically set all of my graphics to show fonts as size-10 Times 
by using the following "$TextStyle = {FontFamily -> "Times", FontSize -> 
10}".  Unfortunately, my fonts often run together as if I didn't include 
spaces.  For instance, the above label "really long label" appears as 
"reallylonglabel". How do I fix this?

-- 
Lawrence A. Walker Jr.
Maryland  USA


  • Prev by Date: notebook as TXT
  • Next by Date: Re: Keyboard shortcut to select the entire cell
  • Previous by thread: notebook as TXT
  • Next by thread: Version 1.1 of A WorkLife FrameWork now available