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

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

Search the Archive

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


  • Prev by Date: Mathematica Link for LabVIEW Now Available
  • Next by Date: Smarter 3D listplot clipping
  • Previous by thread: tweaking log plots
  • Next by thread: Re: tweaking log plots