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
|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