The Collatz conjecture

ChrisTOS

RetroJunkie™
Joined
5 Ιουλ 2007
Μηνύματα
2.213
Αντιδράσεις
66
Atari ST version, crappy visualization :p

Κώδικας:
' 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
 
Never heard of! (Προσπαθώ να βγάλω άκρη στη Wikipedia...)

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

BTW, το τρεξα σε GFA...
 
Ναι, πρέπει να έχει σχέση με fractals αλλά γύρευε σε ποιον χώρο ( :p )

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

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

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