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

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