Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

RE: make 1. x 10^-10 read 10^-1

  • To: mathgroup at smc.vnet.net
  • Subject: [mg8705] RE: [mg8574] make 1. x 10^-10 read 10^-1
  • From: Ersek_Ted%PAX1A at mr.nawcad.navy.mil
  • Date: Fri, 19 Sep 1997 02:47:46 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Rob Peterson  wrote:
||
||That silly "1 x" in front of a power of ten sure does waste graphics
||space.  Can anyone tell me how to format the numbers along an axis?
||Thanks for any help, Rob
||
|
|Something like the following might help:
|
|Plot[funct,  {x, xmin, xmax}, ticks->{{10^3, Superscript[10,3]}, {10^6,
|Superscript[10,6]}, {10^9, Superscript[10,9]}} ]
|
|
|*************************
|Ted, thanks a lot for the suggestion.  I have actually read a lot in the
|mma book but mostly the book tells me nothing.  The little they mention 
about labels
|and tick marks, I simply can't understand.  Anyhow, I attempted your 
suggestion and
|here is what I got:
|   ..........
|   ..........
|   ..........
|The last paragraph is the error message from mma.  I tried LogPlot, no
|help.  Can you tell what I did wrong?
|

Yeh I had some syntax errors in  "ticks->.........."

Well I couldn't find a simple solution.
However, I think I found a some what long way to do just what you want.
see below:

In[1]:=
              (*  Make a Plot. *)
plt=Plot[x^2/Log[x], {x, 10^9, 10^23}, DisplayFunction->Identity];

             (*  This tests wether (x) of the form 1. 10^n_Integer.  *)
PowerTenQ[x_Real]:=
If[Part[MantissaExponent[x], 1]==0.1, True, False]
PowerTenQ[_]:=False


In[2]:=
             (*  I will use this new label when PowerTenQ is True.  *)
NewLabel[1.0]=1;
NewLabel[10.0]=10;
NewLabel[x_Real]:=
Superscript[10, Part[MantissaExponent[x], 2]-1]
NewLabel[x_?NumericQ]:=x

In[7]:=
             (*  This ensures I don't show a coefficient for (1.x 10^n)   *)
RemoveOnes[lst_List]:=lst/.
{x:(_?PowerTenQ),x_,others___}->{x,NewLabel[x],others}
(*  Make a plot with new numbers on tick marks.  *)
tcks=Ticks/.FullOptions[plt];
newtks=Map[RemoveOnes[#]&,tcks];
Show[plt,Ticks->newtks, DisplayFunction->$DisplayFunction]

Out[]=  -Graphics-
             ------ figure not shown ---------

If you really like this you can put it in a package.

If you don't understand how it works let me know.
I can explain.

Ted Ersek
ersek_ted%pax1a at mr.nawcad.navy.mil



  • Prev by Date: Mma 3.0 printing
  • Next by Date: ListPlot3D
  • Previous by thread: RE: make 1. x 10^-10 read 10^-1
  • Next by thread: Mathematica Development Opportunities