The Collatz conjecture

[ChrisTOS]

Atari ST version, crappy visualization

' The Collatz conjecture atari ST version. Written in GFA BASIC
PRINT AT(1,1);"input a natural number"
INPUT n
CLS
WHILE n<>1 AND counter<319
 nold=LOG(n)
 IF n MOD 2=0
   n=n/2
 ELSE
   n=3*n+1
 ENDIF
 counter=counter+1
 '  PRINT "n=";n
 ' PRINT "counter=";counter
 nnew=LOG(n)
 CIRCLE 160-nnew,100-nnew,counter
WEND
IF INKEY$=" "
 END
ENDIF

 

[DINO]

Never heard of! (Προσπαθώ να βγάλω άκρη στη Wikipedia...)

Έχει σχέση με fractals;

BTW, το τρεξα σε GFA...

 

[ChrisTOS]

Ναι, πρέπει να έχει σχέση με fractals αλλά γύρευε σε ποιον χώρο ( )

Η εικασία του Collatz είναι ένα ενδιαφέρον μαθηματικό πρόβλημα σύμφωνα με το οποίο αναζητείται αν υπάρχει φυσικός αριθμός στον οποίο αν εκτελεστεί ο παραπάνω αλγόριθμος δεν θα καταλήξουμε σε ένα...

Τώρα στο πρόγραμμα υπάρχουν πέραν της αρχικής πρόβλεψης για το διάφορο του 1 και μια δεύτερη που έχει να κάνει με την ανάλυση της οθόνης του ST. Βασικά είναι μια αποτυχημένη απόπειρα για την δημιουργία ένός demo effect

P.S. Τα ' στην GFA BASIC είναι σχόλια οπότε αν τα αφαιρέσεις και τα τοποθετήσεις στην circle θα μπορέσεις να δεις τι συμβαίνει (ένας καλός αριθμός είναι το 27 )