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

Фильмы о зарождении жизни

Фильм первый





Фильм второй - развитие болезни :-)









Код на VB:

Public x As Double, x1 As Double, y As Double, y1 As Double, pi As Double
Dim a(20) As Double, b(20) As Double
Private Sub Command1_Click()
DrawWidth = 2
ScaleMode = 3: ssx = 120: ssy = 140
pi = Atn(1) * 4
xmax = 400
ymax = 300
Line (0, 0)-(xmax * 2, ymax * 2), RGB(227, 231, 230), BF
m = 3
For i = 1 To m
    a(i) = Cos(2 * pi * i / m)
    b(i) = Sin(2 * pi * i / m)
Next i
x1 = 0: y1 = 0: x = 1: y = 1
For v = 0 To 1000000 Step 1
     l = Int(Rnd * m + 1)
     If Rnd < 0.7 Then
     x1 = x / 2 + a(l): y1 = y / 2 + b(l): col = RGB(200, 0, 0)
   Else
     x1 = (x * a(l) + y * b(l) + x * x * b(l)) / 6
     y1 = (y * a(l) - x * b(l) + x * x * a(l)) / 6
     col = RGB(0, 0, 200)
    End If
    On Error Resume Next
    If x1 <> 0 Then Line (x * ssx + xmax, y * ssy + ymax)-Step(1, 1), col
    x = x1: y = y1
    Next v
End Sub
    

Остальные картинки попробуйте получить сами изменением значений разных параметров.  Формула эта заимствована с замечательной фрактальной странички http://fractalworld.narod.ru/

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


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

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


.