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 > >