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


Зеленые узоры

Код смотрите внизу страницы - порисуйте, или просто посмотрите :)

















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

   DrawWidth = 2
ScaleMode = 3: ss = 100
pi = Atn(1) * 4
xmax = 500
ymax = 300
Line (0, 0)-(xmax * 2, ymax * 2), RGB(227, 231, 230), BF
m = 4
For i = 0 To m
     a(2 * i) = Cos(2 * pi * (i + 1) / m)
      b(2 * i) = Sin(2 * pi * (i + 1) / m)
      a(2 * i + 1) = 0.5 * (Cos(2 * pi * (i + 1) / m) + Cos(2 * pi * i / m))
      b(2 * i + 1) = 0.5 * (Sin(2 * pi * (i + 1) / m) + Sin(2 * pi * i / m))
Next i
x = 1: y1 = 1: x = 1: y = 1
For v = 0 To 90000 Step 1
    c = Int(Rnd * m * 2 + 1)
      x1 = (x / (x * x + y * y)) / 3 + a(c)
      y1 = (-y / (x * x + y * y)) / 3 + b(c)
      x = x1 / (x1 * x1 + y1 * y1)
      y = y1 / (x1 * x1 + y1 * y1)
    On Error Resume Next
    red = 0
    green = 100
    blue = 0
    Col = RGB(red, green, blue)
    Line (x * ss + xmax, y * ss + ymax)-Step(1, 1), Col
    Next v
    

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

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


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

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


.