Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1990
*January
*February
*March
*April
*May
*June
*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 1990

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

Search the Archive

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



  • Prev by Date: Plots and scientific notation
  • Next by Date: Differential Equation Solutions
  • Previous by thread: Plots and scientific notation
  • Next by thread: Differential Equation Solutions