| |
|
|
 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 11Computer: 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 ▲ |
|
|
|