Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*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 1996

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

Search the Archive

Re: How to get y-axis numbers on the right?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg4400] Re: How to get y-axis numbers on the right?
  • From: Xah Lee <xah at best.com>
  • Date: Fri, 19 Jul 1996 03:06:45 -0400
  • Organization: Best Internet Communications
  • Sender: owner-wri-mathgroup at wolfram.com

Gabriel Berriz wrote:
>Is there a way to have Mathematica plot the vertical axis numbers
>on the right, instead of the left?
>(Or, for the horizontal axis, above, instead of below?)

Use FullGraphics to convert the axis and ticks into graphics primitives, 
then use Replace and Rule to adjust the positioning of the tick symbols.

Example,

myGraphics = Plot[ t, {t,-2,2},
PlotPoints->2,
Ticks->{Range[-5,5], Range[-5,5]},
AspectRatio->Automatic];0;

Show[
	(FullGraphics@ myGraphics) /. {
		Text[ a_,b_,{c1_,0.}] -> Text[a,b,{-4 c1,0.}],
		Text[ a_,b_,{0.,c2_}] -> Text[a,b,{0.,-c2}]
	}
];0;

If you are using a Mac, you might want to get Rotater--An excellent 
freeware for visualing wireframes in realtime, together with a 
mathematica to Rotater converter package. You can get them at

 http://www.best.com/~xah/PageTwo_dir/MathPrograms_dir/mathPrograms.html

 Xah
 xah at best.com; 74631.731 at compuserve.com
 http://www.best.com/~xah/SpecialPlaneCurves_dir/specialPlaneCurves.html
 Mountain View, CA, USA

==== [MESSAGE SEPARATOR] ====


  • Prev by Date: fonts
  • Next by Date: Principal Component Analysys
  • Previous by thread: How to get y-axis numbers on the right?
  • Next by thread: Abort options in Windows