БЛОГФорумСсылки Написать письмоПочему Арбуз? Служебная UN ЕЖЕ-движение - международный союз интернет-деятелей


Аттракторы, продолжение...
 

Просто посмотрите и подумайте, или просто посмотрите :) Источник алгоритма
 

 

 

 

 

 

 

 

 

 

Код для первой картинки

Private Sub Command1_Click()
DrawWidth = 2
ScaleMode = 3: ssx = 0.5: ssy = ssx
pi = Atn(1) * 4
a = -50
b = -5
c = -30
xmax = 350
ymax = 350
Line (0, 0)-(xmax * 4, ymax * 4), RGB(227, 231, 230), BF
x1 = 0: y1 = 0: x = 1: y = 1
For v = 0 To 100000 Step 1
x3 = x / Abs(x)
x1 = y - x3 * (Abs(Sin(x) * Cos(b) + c - x * Sin(a + b + c)))
y1 = a - x
col = RGB(v / 12000, v / 700, v / 11800)
If x1 <> 0 Then Line (x * ssx + xmax, y * ssy + ymax)-Step(1, 1), col
x = x1: y = y1
Next v
End Sub

Для получения разных картинок меняйте коэффициенты a, b,c

Если получите красивее - прошу в Форум, если нет - все равно....


Автор about me
Design by dady_MYKC
)c( 2000-2017
Kопирайта нет, копируйте на здоровье :)

100012 лет в Интернете


.