Re: Outputting to file with fixed decimal digits

*To*: mathgroup at smc.vnet.net*Subject*: [mg75283] Re: Outputting to file with fixed decimal digits*From*: "Jean-Marc Gulliet" <jeanmarc.gulliet at gmail.com>*Date*: Mon, 23 Apr 2007 05:45:21 -0400 (EDT)*References*: <042220071303.18591.462B5D15000628FB0000489F219791332903010CD2079C080C03BF979D0E9A9B0C0E@mchsi.com>

On 4/22/07, actuary at mchsi.com <actuary at mchsi.com> wrote: > > > > > Jean-Marc: > > > > Thank you. I think I'm half the way to solving my problem. > > > > In my posting I failed to provide a piece of information that I didn't > think was important until I implemented your suggestion. > > > > The data that I work with is record that I Import into Mathematica. The > record has 14 data points. I use Mathematica to select specific records. > At the end of the day I out only 2 of the 14 data points. > > > > The first data point is the Julian Date and the second data point is the > magnitude of a star. > > > > The value for the JUlian Date is of the form xxxxxxx.x or xxxxxxx.xxxx. The > file that I want to create and use by another software program needs to have > the Julian Date of the form xxxxxxx.xxxx > > > > Prior to implementing your suggestion my out from Mathematica looks like > this > > > > 2.4162256e+6 10. > 2.4162266e+6 10.3 > 2.4162326e+6 9.9 > 2.4162336e+6 9.9 > 2.4164746688e+6 9. > 2.4164746743e+6 8.8 > 2.4164894813e+6 9.199999999999999 > 2.4165204917e+6 10.1 > > > > What I need is > > > > 2416225.6000 10.0 > 2416226.6000 10.3 > 2416232.6000 9.90 > 2416233.6000 9.90 > 2416474.6688 9.00 > 2416474.6743 8.80 > 2416489.4813 9.20 > 2416520.4917 10.1 > > > > While your suggested provides the alignment that I need, I don't have the > decimal portion of the Julian Date. > > > > My computer programming background is limited. Fortran training 30 years > ago. > > > > Thanks for any assistance that you may provide. > > > > Larry Gorski Hi Larry, Assuming I have correctly interpreted your date format, the following expression should fit your need. In[1]:= expr = {{2.4162256*10^6, 10.}, {2.4162266*10^6, 10.3}, {2.4162326*10^6, 9.9}, {2.4162336*10^6, 9.9}, {2.4164746688*10^6, 9.}, {2.4164746743*10^6, 8.8}, {2.4164894813*10^6, 9.2}, {2.4165204917*10^6, 10.1}}; data = (StringReplace[#1, Characters["{,}"] -> ""] & ) /@ (ToString[{NumberForm[##1[[1]], {12, 4}, NumberPadding -> {"", "0"}, ExponentFunction -> (Null & )], If[##1[[2]] < 10, NumberForm[##1[[2]], {3, 2}, NumberPadding -> {"", "0"}], NumberForm[##1[[2]], {3, 1}, NumberPadding -> {"", "0"}]]}] & ) /@ expr; Export["C:\\myfile.txt", data, "Lines"] !!C:\\myfile.txt Out[3]= C:\myfile.txt >From In[1]:= 2416225.6000 10.0 2416226.6000 10.3 2416232.6000 9.90 2416233.6000 9.90 2416474.6688 9.00 2416474.6743 8.80 2416489.4813 9.20 2416520.4917 10.1 Regards, Jean-Marc > -------------- Original message from Jean-Marc Gulliet > <jeanmarc.gulliet at gmail.com>: -------------- > > > > actuary at mchsi.com wrote: > > > Hello: > > > > > > I'm trying to create a file that becomes input to another software > > > package. I need to output real numbers with a fixed number of decimal > > > digits with spaces separating the numbers that I write to the file. > > > > > > I've searched this group for assistance on my question and couldn't > > > find anything dealing with outputting to a file. > > > > > > Help would be greatly appreciated. > > > > > > Larry > > > > > > > Depending on how you wish (or must) handle the creation of the file, you > > could use *Export* and *NumberForm*. The following should help you to > > start. The symbol expr holds some toy data as an array of numbers > > (In[1]), then is is converted in the fo rm of a list of strings (In[2]) > > that is going to be exported in a text file (In[3]). The file is read > > from within Mathematica to check its format (In[4]). > > > > In[1]:= > > expr = {{1.234567987654*^6, -34.3892839, 898890.7348327, > > -8.748328494823489*^8}, {124567.98764, -8934.3892839, 89890.7348327, > > -8.78907284948235*^9}} > > > > Out[1]= > > 6 8 > > {{1.23457 10 , -34.3893, 898891., -8.74833 10 }, > > > > 9 > > {124568., -8934.39, 89890.7, -8.78907 10 }} > > > > In[2]:= > > data = (StringReplace[#1, Characters["{,}"] -> ""] & ) /@ > > (ToString[NumberForm[#1, {10, 2}, NumberPadding -> {"", "0"}, > > ExponentFunction -> (Null & )]] & ) /@ expr > > > > Out[2]= > > {1234567.99 -34.39 898890.73 -874832849.50, > > > > 124567.99 -8934.39 89890.73 -87 89072849.00} > > > > In[3]:= > > Export["C:\\myfile.txt", data, "Line s"] > > > > Out[3]= > > C:\myfile.txt > > > > In[4]:= > > !! C:\\myfile.txt > > > > From In[4]:= > > 6 8 > > 1.23457 10 - 34.39 898891. - 8.74833 10 > > 9 > > 124568. - 8934.39 89890.7 - 8.78907 10 > > > > Regards, > > Jean-Marc > >