Re: Auf n gültige Ziffern runden?

["Dr. Rolf Mertig" <rolfm@XXXXXXX.com>]

Relativ einfach kann man das auf dem Notebook-Level machen:

SetOptions[InputNotebook[], PrintPrecision -> 3]

Oder, wenn man es wirklich global und immer haben will:

SetOptions[$FrontEnd, PrintPrecision -> 2]

Für reine Kernelliebhaber und Frontendverächter gibt es dann noch NumberForm,
also z.B.:

RoundTo[expr_, n_Integer]:= NumberForm[expr, n]

Rolf

On Friday 07 April 2006 10:55, Frank Küster wrote:
> Hallo,
>
> gibt es eine fertige Funktion oder ein Add-on-Paket, mit denen man eine
> Zahl für die Ausgabe auf n gültige Ziffern runden kann?  Nehmen wir an,
> die Funktion heiße RoundTo, dann ergäbe
>
> RoundTo[1984,1]
>   2000
> RoundTo[1984,3]
>   1980
>
> RoundTo[0.007834,1]
>   0.008
> RoundTo[0.007834,2]
>   0.0078
>
> Wenn man weiß, wieviele Stellen vor dem Komma oder wieviele führende
> Nullen nach dem Komma die Zahl hat, ist es leicht zu programmieren:
> (Round[number*10^(precision+numberOfZeros)]/10^(precision+numberOfZeros)
> für den Fall <0.  Aber ich hätte gerne eine allgemeine Funktion und fand
> eine rekursive Funktion mit den ganzen Fallunterscheidungen kompliziert
> und Fehleranfällig zu programmieren.
>
> Gibt's da was fertiges?
>
> TIA, Frank

-- 
Mit freundlichem Gruß

Dr. Rolf Mertig
Geschäftsführer
________________________________
GluonVision GmbH
Wissenschaftliche Software
Bötzowstr. 10
10407 Berlin 
GERMANY

Phone: +49 (0) 30 9789 3960
Fax:       +49 (0) 9789 3961
mailto:rolfm@XXXXXXX.com
http://www.gluonvision.com