MathGroup Archive 1997

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

Search the Archive

Re: How to get 2.334E+6 output form ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg5631] Re: How to get 2.334E+6 output form ?
  • From: dendzik at usctoux1.cto.us.edu.pl (Zbigniew Dendzik)
  • Date: Wed, 1 Jan 1997 21:04:58 -0500
  • Organization: Silesian University, Katowice, Poland
  • Sender: owner-wri-mathgroup at wolfram.com

Sergio Rojas (sergio at scisun.sci.ccny.cuny.edu) wrote:

(...)
: How can one tell to Mathematica to write
:                                                                   6
: numbers in the form 2.3456E+6 instead of 2.3456*10^6 (or 2.3456 10 ).

(...)
:  How the data can be written to a file without the braces and comma in 
: between?

(...)


Hi Sergio,

Below is a simple piece of Mma code which I have written to solve this
problem.

RegularForm[x_]:= OutputForm[NumberForm[TableForm[x//N], ExponentFunction->
(If[-10<#<10, Null, #]&), NumberFormat->(If[#3=="", SequenceForm[#1, #3],
SequenceForm[#1, "E", #3]]&)]]

If you put the above definition into the file named user.m (for example,
or simply add it to your init.m file), you will get:


In[1]:= << user.m

In[2]:= x=Table[(-1^i)*4.6^(i-j*10), {i, 1, 4}, {j, 1, 3}];

In[3]:= RegularForm[x] >> foo

In[4]:= !! foo
-0.00000108438   -2.55624E-13   -6.02591E-20

-0.00000498813   -1.17587E-12   -2.77192E-19

-0.0000229454    -5.409E-12     -1.27508E-18

-0.000105549     -2.48814E-11   -5.86538E-18


I hope it helps. Happy New Year to you and to all mathgroupers.

--Zbigniew Dendzik
dendzik at us.edu.pl





  • Prev by Date: Re: DeclarePackage in Mathematica 2.2 for Windows
  • Next by Date: Re: My keyboard mapping has gone TILT with mathematica 3.0 on my PC
  • Previous by thread: Re: DeclarePackage in Mathematica 2.2 for Windows
  • Next by thread: Re: How to get 2.334E+6 output form ?