English
Source / code snippets

Collatz-follow produce and count

 

p.specht


Window Title "Collatz-follow erzeugen;  Space=Next, Return=Andere Startzahl, ESC = end "
window 0,0 - %maxx,%maxy:showmax
declare s!,z!,n&,k$
start:
s!=1
cls
print "\n desired Startzahl (>0):  ";:input s!
case s!<1:end
rept:
cls
z!=s!
n&=0
print "\n ";stature$("%g",z!),

while z!>1

    if z! mod 2

        z!=3*z!+1

    else

        z!=z!\2

    endif

    print stature$("%g",z!),
    inc n&

endwhile

print:print "(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'...
08/02/22  
 




p.specht

appendix: ex 63 728 127 as Startwert zurück Zwischenwerte on, The The 2^31-1 bit-boundary the MOD-Befehls of XProfan, How it in the obigen Program uses watts, beyond. the Result is then not any more reliably. The of me found longest chain within this so abgesteckten Geltungsbereiches exit at worth 10 000 033 on and totals there 344 steps. I have though not any values examined, Perhaps there somewhere under still a longer chain? such longer chain böten itself imho as Crypto-Key on - as long as The Startzahl secret remaining...

EDIT: i was plenty To optimistic. an chain of 390 comes even already circa 78460 around to, see Youtube-video  [...] 

63 728 127 supply a yet plenty longer chain, what my obiges Program though überfordert.

EDIT 2: Lt. "Matroids Matheplanet":
in the december 2010 reported the BOINC-proposition The Startzahl 2367363789863971985761, The in this senses a Rekordzahl is. These number supply a follow of 2651 Elementen ...
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
08/03/22  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

2.015 Views

Themeninformationen

this Topic has 1 subscriber:

p.specht (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie