Re: tweaking log plots
- To: mathgroup at smc.vnet.net
- Subject: [mg15897] Re: [mg15858] tweaking log plots
- From: BobHanlon at aol.com
- Date: Wed, 17 Feb 1999 23:33:43 -0500
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2/12/99 8:40:52 PM, easther at het.brown.edu writes:
>I am trying to tweak the output of LogListPlot, and I wonder if anyone
>can help...
>
>Specifically, the numerical values that appear on the logarithmically
>scaled axes are displayed in the format: 1. \times 10^{-10} - what I
>want to know is whether it is possible to suppress the "1. \times"
>part, since it adds nothing and leads to the graph itself being
>excessively "scrunched up".
>
>I don't want to be overly fussy here, but the figures I am making will
>be fairly small when they are printed, and the current format will make
>the graphs harder to "read" than I would like.
>
Richard,
Here is one possible approach:
LogListPlot[Table[{i,10^(-i)},{i,1,30}]];
Unprotect[ScientificForm]; Clear[ScientificForm];
ScientificForm[x_] :=
StringForm["\!\(10\^``\)", Round[Log[10, x]]] /;
MantissaExponent[N[x]][[1]] == 0.1 ||
MantissaExponent[N[x]][[1]] == 1
Protect[ScientificForm];
LogListPlot[Table[{i,10^(-i)},{i,1,30}],
Ticks -> {Automatic,
Table[{10^-k, ScientificForm[10^-k]}, {k, 1, 25, 6}]}];
Bob Hanlon