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