Lieber Herr Szabo,
versuchen Sie es mal mit:
In[1]:=RealDigits[Pi,10,20]
Out[1]:={{3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4},1}
Ich denke, damit ist Ihr Problem gelöst.
MfG Stefan Welke
--- Begin Message ---
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
============================================
F R A N Z G. S Z A B O
Web-Designer
Computer Mathematician
Digital Artist, Pipe Sculptor
Computer and Science Journalist
Internet Editor of Wiener Journal
Member of Presseclub Concordia Vienna
Member of the New York Academy of Sciences
Biographee of Marquis Who's Who in the World
Information at:
http://www.wienerjournal.at/SZABO.HTM
http://www.concordia.at/concordia/szabo.html
============================================
--- End Message ---
|