QBASICBOOK.ru: сайт про QB64

Для начала определимся с термином.

Фрактал (лат. fractus — дроблёный, сломанный, разбитый) — множество, обладающее свойством самоподобия (объект, в точности или приближённо совпадающий с частью себя самого, то есть целое имеет ту же форму, что и одна или более частей). В математике под фракталами понимают множества точек в евклидовом пространстве, имеющие дробную метрическую размерность (в смысле Минковского или Хаусдорфа), либо метрическую размерность, отличную от топологической, поэтому их следует отличать от прочих геометрических фигур, ограниченных конечным числом звеньев

Исходный текст программы построения фрактала STARS:

---

1. SCREEN 12
2. CLS
3. RANDOMIZE TIMER
4. CONST PI = 3.14159265358#
5. WHILE INKEY$ = ""
6.     A = 2 * (0.5 - RND): B = 2 * (0.5 - RND)
7.     C = 2 * (0.5 - RND): D = 2 * (0.5 - RND)
8.     X = RND: Y = RND
9.     WHILE INKEY$ = ""
10.         SX = PI * 2 * X: SY = PI * 2 * Y
11.         SX4 = PI * 4 * X: SY4 = PI * 4 * Y
12.         X1 = A * SIN(SX) + B * SIN(SX) * COS(SY) + C * SIN(SX4) + D * SIN(PI * 6 * X) * COS(SY4)
13.         Y1 = A * SIN(SY) + B * SIN(SY) * COS(SX) + C * SIN(SY4) + D * SIN(PI * 6 * Y) * COS(SX4)
14.         NX = FIX(100 * X1 + 320): NY = FIX(100 * Y1 + 240)
15.         PSET (NX, NY), POINT(NX, NY) + 1
16.         X = X1: Y = Y1
17.     WEND
18.     CLS
19. WEND
20. END

---

 

Рисунок 1 – Исходный текст фрактала STARS

 

Рисунок 2 – Результат построения фрактала STARS 

Исходный текст программы построения фрактала MARTIN:

---

1. SCREEN 12
2. WHILE INKEY$ = ""
3.     T = X
4.     X = Y - SIN(X)
5.     Y = 3.14 - T
6.     PSET (2 * X + 320, 2 * Y + 240), 4
7. WEND

---

 

Рисунок 3 – Исходный текст фрактала MARTIN

 

Рисунок 4 – Результат построения фрактала MARTIN

Спасибо за прочтение этой статьи.