Hey Leuttz!
Ich wollte fragen, obs folgende Formel gibt, oder jemand weiss, wie ichs bei Wolfram schreiben könnte oder überhaupt als Formel.
Und zwar die Formel der Quersumme von Zahlen also Q(Xn)=Zn
zb. für 1: 1,2,4,8,16,23,28,38,49,62,70 usw.
3: 3,6,12,15,21,24,30,33,
also immer die Quersumme addieren . X ist die Zahl die wir einsetzen und n sollte der Wert der n-ten Quersumme sein
bei X=2 sieht man ja, dass die gleiche Folge wie bei 1 entsteht.
Also gehen einige Quersummenfunktionen ineinander über.
Naja weiss jemand etwas dazu??
mfg m87
gibt es eine Quersummenfunktion?
gibt es eine Quersummenfunktion?
Wissenschaft ist Skepsis, also sei der Wissenschaft skeptisch gegenüber!
Nach der Wahrheit lässt es sich sterben!
Nach der Wahrheit lässt es sich sterben!
Re: gibt es eine Quersummenfunktion?
also X + quersummeX + quersummeX usw..
also wenn ich zb. 5 einsetze für x,
dann ist x1= 5+quersumme 5
x1=5+5=10
x2 wäre dann x2= 10 +quersumme10
x2= 10+ 1=11
x3= 11+quersumme 11
x3= 13
usw.
also wenn ich zb. 5 einsetze für x,
dann ist x1= 5+quersumme 5
x1=5+5=10
x2 wäre dann x2= 10 +quersumme10
x2= 10+ 1=11
x3= 11+quersumme 11
x3= 13
usw.
Wissenschaft ist Skepsis, also sei der Wissenschaft skeptisch gegenüber!
Nach der Wahrheit lässt es sich sterben!
Nach der Wahrheit lässt es sich sterben!
-
- Ehrenmitglied
- Beiträge: 2832
- Registriert: 2. Feb 2011, 20:13
Re: gibt es eine Quersummenfunktion?
Was willst Du damit machen? Soweit ich weiss, sind Quersummen zu fast nichts nütze; auch sind sie vom Zahlensystem abhängig.
Eine Funktion für die Quersumme oder eine solche Reihe, wie Du sie angibst, kenne ich leider nicht, aber die beiden kann man sich ja leicht selbst schreiben.
Eine Funktion für die Quersumme oder eine solche Reihe, wie Du sie angibst, kenne ich leider nicht, aber die beiden kann man sich ja leicht selbst schreiben.
-
- Ehrenmitglied
- Beiträge: 2832
- Registriert: 2. Feb 2011, 20:13
Re: gibt es eine Quersummenfunktion?
In Mathematica kann man schreiben:
Apply[Plus, IntegerDigits[x,b]]
wobei x die Zahl und b die Basis, also in Deinem Fall b=10 ist (b kann man auch weg lassen).
Das ist in wolframalpha z.B.
Plus IntegerDigits 543785
Die Reihe kriegst Du in Mathematica mit:
x = s; Table[x = x + Apply[Plus, IntegerDigits[x]], {n}]
Hier ist s der Startwert und n die Anzahl der gefragten Zahlen der Reihe.
Wie man eine Table in wolframalpha erstellt, weiss ich aber nicht - kannst Du natürlich auch als for schreiben, aber auch das kann ich in wolframalpha nicht.
So müsstest Du das eigentlich hinbekommen.
Ich hatte das schon einmal geschrieben, würde ich deshalb eigentlich nicht noch einmal erwähnen, aber nachdem Du kürzlich Dein Studiumsgebiet genannt hast, schreibe ich das noch einmal: Es wäre für Dich sinnvoll, Dich mit einem CAS zu beschäftigen - mit Maxima kriegst Du das alles im Handumdrehen hin.
Früher oder später kommst du eh nicht drum rum.
Apply[Plus, IntegerDigits[x,b]]
wobei x die Zahl und b die Basis, also in Deinem Fall b=10 ist (b kann man auch weg lassen).
Das ist in wolframalpha z.B.
Plus IntegerDigits 543785
Die Reihe kriegst Du in Mathematica mit:
x = s; Table[x = x + Apply[Plus, IntegerDigits[x]], {n}]
Hier ist s der Startwert und n die Anzahl der gefragten Zahlen der Reihe.
Wie man eine Table in wolframalpha erstellt, weiss ich aber nicht - kannst Du natürlich auch als for schreiben, aber auch das kann ich in wolframalpha nicht.
So müsstest Du das eigentlich hinbekommen.
Ich hatte das schon einmal geschrieben, würde ich deshalb eigentlich nicht noch einmal erwähnen, aber nachdem Du kürzlich Dein Studiumsgebiet genannt hast, schreibe ich das noch einmal: Es wäre für Dich sinnvoll, Dich mit einem CAS zu beschäftigen - mit Maxima kriegst Du das alles im Handumdrehen hin.
Früher oder später kommst du eh nicht drum rum.
Re: gibt es eine Quersummenfunktion?
erstma thx für die Antwort.
Ja ich glaub dir du hast bestimmt Recht. Ich werd jetzt auch versuchen mir alles einzuarbeiten und mich damit Schritt für Schritt auseinander zu setzen
mfg m87
Ja ich glaub dir du hast bestimmt Recht. Ich werd jetzt auch versuchen mir alles einzuarbeiten und mich damit Schritt für Schritt auseinander zu setzen
mfg m87
Wissenschaft ist Skepsis, also sei der Wissenschaft skeptisch gegenüber!
Nach der Wahrheit lässt es sich sterben!
Nach der Wahrheit lässt es sich sterben!