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

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

Search the Archive

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


  • Prev by Date: ConstrainedMin with negative variables
  • Next by Date: RSolve
  • Previous by thread: Q: LogPlot Number format
  • Next by thread: Re: Random bits (generation) Thanks