Re: Plots and scientific notation

*To*: mathgroup at yoda.ncsa.uiuc.edu*Subject*: Re: Plots and scientific notation*From*: David M. Jacobson <uunet!hplred.hpl.hp.com!jacobson>*Date*: Tue, 1 May 90 16:24:59 pdt

Here is *starter*. When I did this, the labels on the ticks of a plot came out looking like scientific notation, but the graph was tiny on my screen. It obviously messes something else up. Also, you'll need to do something about zeros, as this will take the Log of zero. In[14]:= Unprotect[Real] In[15]:= Format[x_Real] := Block[{exp=Floor[Log[10,x]],mant}, mant=Round[x/10^(exp-3)]; StringJoin[ToString[Floor[mant/1000]],".",ToString[Mod[mant,1000]], " 10^",ToString[exp]]] In[16]:= Protect[Real] There's got to be a better solution. -- David Jacobson