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