Re: Q: LogPlot Number format
- To: mathgroup at smc.vnet.net
- Subject: [mg35131] Re: [mg35105] Q: LogPlot Number format
- From: BobHanlon at aol.com
- Date: Tue, 25 Jun 2002 19:55:04 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 6/25/02 4:17:27 AM, scone4 at kepler.mechanik.tu-darmstadt.de
writes:
>i need to make a logplot with a different numberformat on the Y-Axis.
>Currently i have labels like (exponents are raised, thats ok, thats what
>i
>want) :
>
>1. x 10^58
>
>I need to adjust these labels, so they look like this
>
>10^8
>
>means, substract 50 from the exponent and remove the leading 1. x
>
>Any hints?
>
Needs["Graphics`Graphics`"];
lplt = LogPlot[10^(50+n), {n, 1, 5},
DisplayFunction->Identity];
tck = (Ticks/.AbsoluteOptions[lplt]);
Show[lplt,
Ticks -> {tck[[1]], tck[[2]] /.
{y_/;Chop[y-Round[y]]\[Equal]0, _,m___} ->
{y, "10"^(Round[y]-50), m}},
DisplayFunction->$DisplayFunction];
Bob Hanlon
Chantilly, VA USA