MathGroup Archive 1997

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

Search the Archive

Re: Re: C f-format-like output in Mma

  • To: mathgroup at smc.vnet.net
  • Subject: [mg7916] Re: [mg7710] Re: [mg7683] C f-format-like output in Mma
  • From: jvallino at mbl.edu (Joe Vallino)
  • Date: Mon, 21 Jul 1997 03:22:07 -0400
  • Organization: Marine Biological Laboratory
  • Sender: owner-wri-mathgroup at wolfram.com

In article <5q766r$10u at smc.vnet.net>, withoff at wolfram.com says...
>
>Andreas Siemer wrote:
>> 
>> Hi folks,
>> 
>> does anyone know whether there is a simple way to format output
>> of real numbers in Mma with fixed space and a fixed number of digits
>> following the decimal point in a way similar to the C or FORTRAN
>> f-format?
>> 
>> Thanks for any suggestions!
>> 
>> --
>> 
>> ---------------------------------------------------------------------------
>> From:    Dr. Andreas Siemer
To: mathgroup at smc.vnet.net
>> To: mathgroup at smc.vnet.net
>>          Alfred-Wegener-Institut fuer Polar- und Meeresforschung
>>          Sektion Physik I
>>          Am Handelhafen 12
>>          D-27570 Bremerhaven, Germany
>> 
>>          Tel.: +49-471-4831-524
>>          FAX:  +49-471-4831-425   ( indicate recipient: Siemer/Physik I
>> )
>>          email: asiemer at AWI-Bremerhaven.de
>> ---------------------------------------------------------------------------
>
>Yes.
>
>Here is one example.
>
>In[8]:= data = Table[Random[] 10^k, {k, -20, 20, 5}]
>
>                   -21            -16           -11            -6
>Out[8]= {6.79773 10   , 4.93667 10   , 2.4602 10   , 1.74807 10  , 0.715808, 
> 
>                        9            14            18
>>    58151.4, 1.34651 10 , 6.98729 10  , 3.97218 10  }
>
>In[9]:= PaddedForm[ColumnForm[FortranForm /@ data], {8, 3}]
>
>Out[9]//PaddedForm=      6.798e-21
>                         4.937e-16
>                         2.460e-11
>                         1.748e-6
>                         0.716
>                     58151.398
>                         1.347e9
>                         6.987e14
>                         3.972e18
>
>There are many variants of this.  Using PaddedForm, NumberForm, etc., and
>options of these functions you can basically do anything that you want.
>
>Dave Withoff
>Wolfram Research
>

Here's one I use to write matrices to a file:

writeMatrix[data_List, filename_String] := Module[{outfile},
	outfile = OpenWrite[filename];
	SetOptions[outfile,FormatType\[Rule]OutputForm,PageWidth\[Rule]\[Infinity]];
	Write[outfile,MatrixForm[Map[FortranForm,data,{2}],TableSpacing->{0,3}]];
	Close[outfile];
	]

 
------------------------------------------------------
Joseph Vallino               |  (508) 289-7648
Ecosystem Center             |  FAX: (508) 457-1548
Marine Biological Laboratory |  jvallino at mbl.edu
Woods Hole, MA 02543 US      |  http://eco25.mbl.edu/



  • Prev by Date: mg7715 Sums vs Map efficiency
  • Next by Date: Announcing TMath: A Tcl/C++ Interface to Mathematica
  • Previous by thread: Re: C f-format-like output in Mma
  • Next by thread: Mma2.2 problem under NeXTSTEP3.3/Intel