RE: Auf n gültige Ziffern runden?

["Andre El-Ama" <Andre@XXXXXXX.de>]

Hallo Frank,

> Damit wird aber die Klammer unnötig, oder?

Die Klammer war immer schon überflüssig und diente nur der besseren
Lesbarkeit.

> Und wo wir d schon definiert haben: ...

.. kannst Du -d natürlich auch benutzen.

> Bei mir (Debian Linux, Kernel 2.6.15) funktionierte übrigens auch die
> ursprüngliche Variante; 

Ich persönlich bevorzuge auch Debian (im speziellen bei Servern und in der
Entwicklung) und setze SuSE fast nur im DP-Bereich ein, aber ungenau war es
noch nie. Ich denke es liegt wohl weniger an meiner Linux-Variante, als
meiner MMA-Variante. Ich benutze unter Linux noch MMA 4.1, ich vermute den
Fehler dort. 

Wenn Du Dir mal
http://documents.wolfram.com/mathematica/functions/N
ansiehst, wirst Du am Ende des Dokumentes auf folgendes stoßen:

? New in Version 1; modified in 5.

Die N-Funktion ist also in Version 5 (unabhängig vom Betriebsystem)
überarbeitet worden.


> ... sie hat den ästhetischen Vorteil, dass keine
> unnötigen Nullen am Ende ausgegeben werden

.. wie bereits in meiner letzen e-mail erwähnt. Gut zu wissen, daß es jetzt
(MMA > 5.0) auch unter Linux funktioniert.


Mit freundlichen Grüßen

[André El-Ama]



-----Original Message-----
From: owner-demug@XXXXXXX.ch [mailto:owner-demug@XXXXXXX.ch] On
Behalf Of Frank Küster
Sent: Friday, April 14, 2006 10:02 AM
To: demug@XXXXXXX.ch
Subject: Re: Auf n gültige Ziffern runden?

"Andre El-Ama" <Andre@XXXXXXX.de> wrote:

> Unter Linux (SuSE 9.0) getestet, leider muß man dort folgende Änderung
> vornehmen:
>
> RoundTo[x_, n_] :=Module[{e, d}, 
>     e=RealDigits[x];
>     d=n-e[[2]];
>     (SetPrecision[Round[x/(10^(e[[2]]-n))]/10^d,$MachinePrecision])] 

Damit wird aber die Klammer unnötig, oder?  Und wo wir d schon definiert
haben: 

    e=RealDigits[x];
    d=n-e[[2]];
    (SetPrecision[Round[x/(10^-d)]/10^d,$MachinePrecision])] 

Bei mir (Debian Linux, Kernel 2.6.15) funktionierte übrigens auch die
ursprüngliche Variante; sie hat den ästhetischen Vorteil, dass keine
unnötigen Nullen am Ende ausgegeben werden.

Vielen Dank,
Frank

-- 
Frank Küster
Single Molecule Spectroscopy, Protein Folding @ Inst. f. Biochemie, Univ.
Zürich
Debian Developer (teTeX)