Μετάβαση στο περιεχόμενο

Αρχείο:Fibonacci word fractal, order 18.svg

Τα περιεχόμενα της σελίδας δεν υποστηρίζονται σε άλλες γλώσσες.
Αυτό το αρχείο προέρχεται από το Wikimedia Commons
Από τη Βικιπαίδεια, την ελεύθερη εγκυκλοπαίδεια

Εικόνα σε υψηλότερη ανάλυση(Αρχείο SVG, ονομαστικό μέγεθος 826 × 1.979 εικονοστοιχεία, μέγεθος αρχείου: 621 KB)

Σύνοψη

Περιγραφή
English: Fibonacci word fractal, order 18, with the sub-rectangles colored

Drawn in python.

```python from itertools import count, islice, groupby from math import floor, sqrt import matplotlib.pyplot as plt def sturm_word(ratio):

 xs = count(1)
 ys = map(lambda x : x * ratio, xs)
 fw = islice(groupby(map(floor, ys)), 1, None)
 return map(lambda x : 2 - len(list(x[1])), fw)
  1. If the word is 1, then draw a line forward.
  2. If the word is 0, then first draw a line forward
 # if the symbol 0 is in an even position then turn left, else turn right

def fib_line(fib_word, origin=(0, 0), length=1, angle=0):

 angle_dict = {
     0: (1, 0),
     90: (0, 1),
     180: (-1, 0),
     270: (0, -1)
 }
 is_even = True
 x0, y0 = origin
 current_angle=angle
 while True:
   dx, dy = angle_dict[current_angle]
   x1, y1 = x0 + dx, y0 + dy
   yield (x0, y0, x1, y1)
   if next(fib_word) == 0:
     if is_even:
       current_angle += 90
     else:
       current_angle -= 90
   current_angle %= 360
   x0, y0 = x1, y1
   is_even = not is_even

golden_ratio = (sqrt(5) - 1)/2 fib_word = sturm_word(golden_ratio)

def fibs(n):

 f0, f1 = 0, 1
 for _ in range(n):
   f0, f1 = f1, f0+f1
 return f0

xfirst, yfirst, xlast, ylast = 0, 0, 0, 0 golden_ratio = (sqrt(5) - 1)/2 fib_word = sturm_word(golden_ratio) i = 0 fib_i = fibs(i) limit_i = 18 plt.figure (figsize= (20, 32)) for line_i, (x0, y0, x1, y1) in enumerate(fib_line(fib_word, origin=(0, 0), length=0.1, angle=0)):

   plt.plot([x0, x1], [y0, y1], 'k')
   if line_i > fib_i - 2:
     i, fib_i = i+1, fibs(i+1)
     xfirst, yfirst, xlast, ylast = xlast, ylast, x1, y1
     color = 'blue' if i % 2 == 0 else 'green'
     r = plt.Rectangle((xfirst, yfirst), xlast-xfirst, ylast-yfirst, fc=color, ec='black', alpha=0.3)
     plt.gca().add_patch(r)
     if i > limit_i:
       break

plt.gca().set_aspect('equal') plt.axis('off') plt.savefig('fib_word.svg', bbox_inches=0, transparent=True)

```
Ημερομηνία
Πηγή Έργο αυτού που το ανεβάζει
Δημιουργός Cosmia Nebula

Αδειοδότηση

Εγώ, ο κάτοχος των πνευματικών δικαιωμάτων αυτού του έργου, το δημοσιεύω δια του παρόντος υπό την εξής άδεια χρήσης:
Creative Commons CC-Zero Το αρχείο αυτό έχει διατεθεί με Creative Commons CC0 1.0 Παγκόσμια Εκχώρηση Κοινού Κτήματος.
Το πρόσωπο που συσχέτισε ένα έργο με αυτή την πράξη έχει απελευθερώσει αυτό το έργο στην δημόσια σφαίρα παραιτούμενος από όλα τα δικαιώματά του σε αυτό το έργο παγκοσμίως υπό τη νομοθεσία των πνευματικών δικαιωμάτων και όλα τα σχετικά ή παρεμφερή νόμιμα δικαιώματα που είχε στο έργο, στο εύρος που νόμος ορίζει. Έργα υπό την CC0 δεν χρειάζονται απόδοση. Όταν παραθέτετε το έργο, δε χρειάζεται να υπαινιχθείτε έγκριση από το συγγραφέα.

Λεζάντες

Δεν ορίστηκε λεζάντα
Fibonacci word fractal, order 18, with the sub-rectangles colored

Ιστορικό αρχείου

Κλικάρετε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη τη στιγμή.

Ώρα/Ημερομ.ΜικρογραφίαΔιαστάσειςΧρήστηςΣχόλια
τελευταία00:29, 9 Φεβρουαρίου 2023Μικρογραφία για την έκδοση της 00:29, 9 Φεβρουαρίου 2023826 × 1.979 (621 KB)Cosmia NebulaUploaded own work with UploadWizard

Τα παρακάτω λήμματα συνδέουν σε αυτό το αρχείο:

Καθολική χρήση αρχείου

Τα ακόλουθα άλλα wiki χρησιμοποιούν αυτό το αρχείο:

Μεταδεδομένα