Hallo Frank,
versuche es mal damit:
Unprotect[Round]; Round[x_, n_] :=Module[{a, nR},
nR = Round[n];
a = 10^nR;
(SetPrecision[Round[a x] // N,$MachinePrecision])/a ];
Protect[Round];
Round[1257.12474124895621,15]
(-> nb siehe Anhang)
Mit Anregung aus:
http://www.mathematica.ch/dmug-archive/2002/msg00156.html
Arbeitet zumindest bis zur $MachinePrecision einwandfrei.
Mit freundlichen Grüßen
[André El-Ama]
examp.nb
Description: Mathematica Notebook document
