Español
Fuente/ Codesnippets

Collatz-Folge erzeugen y zählen

 

p.specht

Título de la ventana "Collatz-Folge erzeugen;  Space=Next, Return=Andere Startzahl, ESC = Ende "
window 0,0 - %maxx,%maxy:showmax
declarar s!,z!,n&,k$
start:
s!=1
cls
imprimir "\n Gewünschte Startzahl (>0):  ";:input s!
caso s!<1:end
rept:
cls
z!=s!
n&=0
imprimir "\n ";format$("%g",z!),

mientras que z!>1

    if z! mod 2

        z!=3*z!+1

    más

        z!=z!\2

    endif

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

endwhile

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

if 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 como Startwert treten Zwischenwerte en, el el 2^31-1 Bit-Grenze des MOD-Befehls de XProfan, como en el obigen Programa verwendet wurde, überschreiten. Das Ergebnis es entonces no mehr zuverlässig. El de me gefundene längste Kette innerhalb dieses así abgesteckten Geltungsbereiches tritt beim Valor 10 000 033 en y beträgt hay 344 Schritte. Yo habe allerdings no todos Werte geprüft, tal vez hay irgendwo darunter todavía una längere Kette? Solche längere Ketten böten se imho como Crypto-Schlüssel a - solange el Startzahl geheim restos...

EDIT: Yo war viel a optimistisch. Un Kette de 390 kommt incluso ya en 78460 herum antes, siehe Youtube-Video  [...] 

63 728 127 liefert una todavía viel längere Kette, qué mein obiges Programa allerdings überfordert.

EDIT 2: Lt. "Matroids Matheplanet":
Im Dezember 2010 meldete el BOINC-Projekt el Startzahl 2367363789863971985761, el en diesem Sinne una Rekordzahl es. Diese Zahl liefert una 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


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

148 Views

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

Themeninformationen

Dieses Thema ha 1 subscriber:

p.specht (2x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie