Hallo,
Characters[ToString[zahl]]
geht auch.
Gruß, Peter Klamser
Spwelke@XXXXXXX.com wrote:
>
> 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
>
> ------------------------------------------------------------------------
>
> Subject: Szabo/Zahl in Liste umwandeln
> Date: Tue, 21 Sep 1999 10:10:08 +0200
> From: "Franz Szabo" <FranzSzabo@XXXXXXX.COM>
> To: DMUG <dmug@XXXXXXX.ch>
>
> 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
> ============================================
|