Franz Szabo wrote:
>
> Liebe Kollegen von der DMUG,
>
> Mit einer der aelteren Mathematica Versionen konnte ich eine Zahl so wie
> folgt in eine Liste umwandeln:
>
> zahl=N[Pi,30]
> 3.14159265358979323846264338328
>
> Characters[zahl]
> {3, ., 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4,
> 3, 3, 8, 3, 2, 8}
>
> Jetzt funktioniert das nicht mehr. Daher versuche ich es so:
>
> k := 100
> N[Pi, k]
> ToString[%]
> FullForm[%]
> Characters[%]
> Drop[%, {2}]
> Pi_Dezimalen := %
>
> Kann mir jemand vielleicht mit einer kuerzeren und eleganteren Variante zum
> Umwandeln eines numerischen Ergebnisses in eine Liste der einzelnen Ziffern
> helfen?
>
> Mit freundlichen Gruessen,
>
> Franz Szabo
k = 100;
val = N[Pi, k + 5];
IntegerDigits[Round[val*10^(k - Floor[Log[10, val]] - 1)], 10]
Das ist leider nicht einfacher. *seufz*
Gruesse
Martin Kraus
|