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


Аттракторы...
 

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

 

 

 

 

 

 

 

 

 

 

Код картинок

Public x As Double, x1 As Double, y As Double, y1 As Double, pi As Double

Private Sub Command1_Click()
DrawWidth = 1
ScaleMode = 3: ssx = 1: ssy = 1
pi = Atn(1) * 4
a = -2
b = -10
c = -1#
xmax = 250
ymax = 250
Line (0, 0)-(xmax * 4, ymax * 4), RGB(227, 231, 230), BF
x1 = 0: y1 = 0: x = 1: y = 1
For v = 0 To 430000 Step 1
x1 = y - (Abs(x) / x) * Sin(1.5 * Log(Abs(b * x - c))) * Atn(1.5 * Sqr(Abs((Log(Abs(c * x - b))))))
y1 = a - x
col = RGB(v / 12000, v / 3200, 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 лет в Интернете


.