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