|
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 |