Français
Source/ Codesnippets

Collatz-Folge erzeugen et zählen

 

p.specht

Titre de la fenêtre "Collatz-Folge erzeugen;  Space=Next, Return=Andere Startzahl, ESC = Ende "
window 0,0 - %maxx,%maxy:showmax
declare s!,z!,n&,k$
start:
s!=1
cls
imprimer "\n Gewünschte Startzahl (>0):  ";:input s!
cas s!<1:end
rept:
cls
z!=s!
n&=0
imprimer "\n ";format$("%g",z!),

tandis que z!>1

    si z! mod 2

        z!=3*z!+1

    d'autre

        z!=z!\2

    endif

    imprimer format$("%g",z!),
    inc n&

endwhile

imprimer:imprimer "(Kettenlänge ";n&;")"
s!=s!+1
k$=getkey$()

si k$=" ":goto "rept"

elseif k$=chr$(13):goto "start"

endif

end
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
02.08.2022  
 




p.specht
Ergänzung: Ab 63 728 127 comme Startwert treten Zwischenwerte sur, qui qui 2^31-1 Bit-frontière des MOD-Befehls de XProfan, comment il im obigen Programme verwendet wurde, überschreiten. cela Ergebnis ist ensuite pas plus zuverlässig. qui de mir gefundene längste Kette dedans cet so abgesteckten Geltungsbereiches tritt beim Wert 10 000 033 sur et beträgt là 344 Schritte. j'ai allerdings pas alle Werte geprüft, peut-être gibt es irgendwo au-dessous doch encore une längere Kette? Solche längere Ketten böten sich imho comme Crypto-Schlüssel à - solange qui Startzahl geheim bleibt...

EDIT: j'étais viel trop optimiste. une Kette de 390 venez sogar déjà um 78460 herum avant, siehe Youtube-Video  [...] 

63 728 127 liefert une encore viel längere Kette, quoi mon obiges Programme allerdings überfordert.

EDIT 2: Lt. "Matroids Matheplanet":
Im décembre 2010 meldete cela BOINC-projet qui Startzahl 2367363789863971985761, qui dans diesem Sinne une Rekordzahl ist. cet numéro liefert une Folge de 2651 Elementen ...
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
03.08.2022  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

144 Views

Untitledvor 0 min.
Georg Teles vor 5 Tagen
Michael W. vor 10 Tagen
p.specht17.08.2022
Uwe Lang13.08.2022
plus...

Themeninformationen

cet Thema hat 1 participant:

p.specht (2x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie