Re: ScientificForm[], formating question

*To*: mathgroup at smc.vnet.net*Subject*: [mg112872] Re: ScientificForm[], formating question*From*: "David Park" <djmpark at comcast.net>*Date*: Mon, 4 Oct 2010 06:06:48 -0400 (EDT)

Roll your own using MantissaExponent. r1 = 0.087540; r2 = 0.087549; sForm[r_] := Module[{mantissa, exponent}, {mantissa, exponent} = MantissaExponent[r]; Row[ {NumberForm[10 mantissa, {5, 4}, NumberPadding -> {"", "0"}], "E", exponent - 1}] ] sForm /@ {r1, r2} // Column 8.7540E-2 8.7549E-2 NumberPadding on the right of the mantissa does not appear to work in ScientificForm. David Park djmpark at comcast.net http://home.comcast.net/~djmpark/ From: Nasser M. Abbasi [mailto:nma at 12000.org] Mathematica experts: I can't get ScientificForm[] to always show 4 digits to the right of the decimal point. Example: n = 0.087540; m = 0.087549; ScientificForm[Column[{n, m}], 5, NumberFormat -> (Row[{#1, "E", #3}] &)] This prints like this: 8.754E-2 8.7549E-2 Which is correct, but I want it to display as 8.7540E-2 8.7549E-2 So that all numbers in the table has the same number of digits. so 'nicer' to look at. The problem in this example, n has a zero at the last position, and so is not shown (correctly), but I want 4 digits there. I looked at all the options for ScientificForm and do not see how to do it. thanks --Nasser