μάθε τκύκλος $π { επανάλαβε 90 { μπ $π σδ 1 } μάθε πέταλο { τκύκλος 1 σδ 90 τκύκλος 1 } μάθε λουλούδι { μπ 50 πέταλο σδ 90 μπ 100 πέταλο πέταλο πέταλο πέταλο } λουλούδι
Πρόγραμμα δημιουργίας τριψήφιων αριθμών στη διάλεκτο basic256
# Πρόγραμμα δημιουργίας τριψήφιων αριθμών στη διάλεκτο basic256 της BASIC. Κάθε αριθμός είναι τρεις ascii χαρακτήρες και δεν υπάρχει επανάληψη ψηφίου. dim A(3) FOR I=0 TO 2 B4: A[I]=INT(10*RAND()) IF I=0 THEN GOTO B2 FOR J=0 TO I-1 IF A[I]=A[J] THEN GOTO B4 NEXT J B2: NEXT I PRINT:PRINT “Εντάξει. Σκέφτηκα τον τριψήφιο αριθμό:” ; […]
Eπίστρωση κανονικών εξαγώνων με αναδρομή σε kturtle.
Επιτέλους είδα φως, γιορτινές μέρες που είναι 🙂 ,και αντιλήφθηκα την ουσία του προβλήματος. Παραθέτω τον κώδικα ολοκληρωμένο χωρίς περιττές επαναλήψεις εξαγώνων από τη χελώνα. Παραθέτω επίσης ένα στιγμιότυπο από το kturtle , επίστρωσης βάθους 30 ,που χρειάστηκε 4-5 λεπτά. Προκειμένου να κατανοήσετε τη λογική του αλγορίθμου χρειάζεται πρώτα καλή γνώση της αναδρομικής […]
hextiling 0.6
Η καινούργια εκδοχή είναι όπως βλέπετε ποιό πολύπλοκη αλλά μειώνει κατά 80% το χρόνο στην περίπτωση βάθους 9. Αυτό που παραρατηρήσαμε είναι ότι τα πλήθη των δακτυλίων από εξάγωνα καθώς μετακινούμαστε από το κέντρο προς τα έξω σχηματίζουν την ακολουθία: 1 -> 6 -> 12 -> 18 -> 24 -> … -> ν -> ν+6 […]
hextiling 0.4
Τώρα δουλεύει καλυτερα και για βάθη μικρά όπως 4,5 φαίνεται να εκτελείται με πολύ λίγες επαναλήψεις , αλλά για μεγάλα βάθη όπως αυτό της εικόνας (depth=9) αν και τελείωσε σε 5 λεπτά εντούτοις φαίνεται πάλι να υπάρχει αρκετή επανάληψη. Η λογική του αναδρομικού αλγορίθμου είναι να δημιουργεί για κάθε εξάγωνο δυο μόνο εξωτερικά (με εξαίρεση […]