Re: How to get 2.334E+6 output form ?
- To: mathgroup at smc.vnet.net
- Subject: [mg5620] Re: [mg5617] How to get 2.334E+6 output form ?
- From: xah at best.com (Xah Lee)
- Date: Sun, 29 Dec 1996 00:56:24 -0500
- Sender: owner-wri-mathgroup at wolfram.com
At 11:43 PM 96/12/27, Sergio Rojas 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 ).
>Also, consider the following:
>...
>{2.744617215013445*10^-15, 2.196710439091517*10^17, 179503.8033995351}
> How the data can be written to a file without the braces and comma in
>between?
I've encountered the same problems before. The following code are pulled
from a program I wrote. It should imply solutions. Especially note the use
of the option ExponentFunction in NumberForm.
data2 = SetPrecision[ Chop[ Flatten[ data2,1], 10^-(exportPrecision+1)],
exportPrecision];
OpenWrite[fileName];
WriteString[fileName, "#Converted from Mathematica\n"];
WriteString[fileName, "#by SaveToRotaterFormat.m\n"];
WriteString[fileName, "#Xah Lee. (74631.731 at compuserve.com)\n"];
WriteString[fileName, "#http://www.best.com/~xah/\n";];
WriteString[ fileName,
StringReplace[
ToString@ NumberForm[data2,
ExponentFunction->(If[-Infinity<#<Infinity,Null,#]&)
],
{ "{" -> "",
"}, " ->StringJoin[ " ", ToString@ colorCode," \n"],
"}}" -> StringJoin[ " ", ToString@ colorCode," "],
"," -> " "
}
]
];
Close[fileName]
]
Xah
xah at best.com; 74631.731 at compuserve.com
http://www.best.com/~xah/SpecialPlaneCurves_dir/specialPlaneCurves.html
Mountain View, CA, USA