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