Re: Export-Funktion

["Robert Nowak" <robert.nowak@XXXXXXX.at>]

.... der arme wollte doch nur die 9en weg oder ?

Gruesse Robert
---
Robert Nowak (robert.nowak@XXXXXXX.at)
Ionen Mikrofabrikations Systeme GmbH
A-1020 Wien, Schreygasse 3, Austria
Phone: (+43 1)2144894-32, Fax: (+43 1)2144894-99

----- Original Message -----
From: Rolf Mertig <rolf@XXXXXXX.com>
To: Martin Heimann <martin.heimann@XXXXXXX.de>
Cc: <dmug@XXXXXXX.ch>
Sent: Friday, January 28, 2000 4:14 PM
Subject: Re: Export-Funktion


> Also ..., etwas brutal programmiert (aber immer noch viel einfacher
> als so etwas in S-PLUS zu machen ;-)    :
>
>
> In[1]:= !!ExportTable.m
> ExportTable[f_String, expr_List, (m_Integer)?Positive,
>             opts___?OptionQ] :=
>    Module[{ms},
>            ms[x_Real, (n_Integer)?Positive] :=
>            With[{s = ToString[Round[x*10^n]/10.^n] /.
>            "0" :> "0."}, StringJoin @@ (Characters[s] //.
>            {a__, ".", b___ /; Length[{b}] < n} :> {a, ".", b, "0"})];
>      Export[f, expr /. r_Real :> ms[r, m], "Table", opts]
>          ];
>
>
> In[1]:= <<ExportTable.m
>
> In[2]:= ExportTable["tablelle.d",{{1963, 1.07}, {1964, 0.976}, {1965,
> 9.527 10^-1}},6]
>
> Out[2]= tablelle.d
>
> In[3]:= !!tablelle.d
> 1963   1.070000
> 1964   0.976000
> 1965   0.952700
>
>
> --------------------------
> MfG,
> Rolf Mertig
>
> http://www.mertig.com
>
> -----------------------------
> Martin Heimann wrote:
> >
> > Liebe Kollegen,
> >
> > Laut Dokumentation soll Mma4.0 defaultmässig mit der Export-Funktion
> > eine Tabelle reeller Zahlen mit 6 Stellenpräzision rausschreiben. Tut
> > es bei mir leider nicht. Weiss jemand, wie man die rausgeschriebene
> > Darstellung der Zahlen beeinflussen kann?
> >
> > Bsp.
> >
> > z= {{1963, 1.07}, {1964, 0.976}, {1965, 9.527  10^-1}}
> > Export["tabelle.d", z, "Table"]
> >
> > Auf "tabelle.d" steht dann:
> >
> > 1963   1.07
> > 1964   0.976
> > 1965   0.9526999999999999
> >
> > mit herzlichem Gruss,
> > Martin Heimann
> > ----------------------------------------------------------------
> > Max-Planck-Institut fuer Biogeochemie
> > Postfach 100164, D-07701 Jena, Germany
> > (!!!==> NEW Street Address: Carl-Zeiss Promenade 10)
> >
> > Office: +49-3641-64-3773/3701
> > Mobile: +49-170-6307299
> > Home:   +49-3641-618254
> > Fax.:   +49-3641-64-3789/3710
> > Email:  martin.heimann@XXXXXXX.de
> > Web:    http://www.bgc-jena.mpg.de/~martin.heimann
>