Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: FormatType problems

  • To: mathgroup at smc.vnet.net
  • Subject: [mg86618] Re: FormatType problems
  • From: dh <dh at metrohm.ch>
  • Date: Sat, 15 Mar 2008 03:10:12 -0500 (EST)
  • References: <frdftf$b0v$1@smc.vnet.net>


Hi,

you could e.g. use $PrePrint:

$PrePrint=(#/.{x_?NumberQ:>NumberForm[x,{6,2}]})&;

where we assumed you want to print at most 6 digits with 2 digits after 

the decimal points. You should only use this just before you print and 

then reset $Preprint like:

$PerPrint=.

otherwise you will see a lot of strange behaviour.

hope this helps, Daniel



alexxx.magni at gmail.com wrote:

> Hi guys,

> I have to output data to be read by other mathematica-agnostic

> programs - so I wanted to avoid exponential/scientific notation if

> possible.

> 

> I wrote:

> nf[x_] := NumberForm[N[x], Infinity, ExponentFunction -> (Null &)]

> 

> to convert my data, but I wanted to know if I could even avoid to

> write everywhere:

> Write[f,nf[a],nf[b],...]

> 

> and just let Math know that it has to use nf[] as a wrapper.

> Unfortunately,

> f = OpenWrite["test.dat",  FormatType -> nf]

> 

> doesnt work:

> FormatType::ftype: Value of option FormatType -> nf is not valid.

> 

> $printForms reports:

> {InputForm, OutputForm, TextForm, CForm, FortranForm, MathMLForm, \

> TeXForm, StandardForm, TraditionalForm}

> 

> any hint?

> 

> Alessandro Magni

> 

> 




  • Prev by Date: RealOnly
  • Next by Date: Re: variance (mg86506)
  • Previous by thread: FormatType problems
  • Next by thread: [ANN] Mathematica User Group on LinkedIn