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

Красные узоры

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













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

Public x As Double, pi As Double, y As Double, t As Double
Private Sub Command1_Click()
DrawWidth = 3
ScaleMode = 3: ssx = 12: ssy = 10
pi = Atn(1) * 4
xmax = 400
ymax = 300
x = 0.005: y = 0
For v = 0 To 60000 Step 1
     t = x
     x = y - Sin(x)
     y = pi - t
  On Error Resume Next
    red = Abs(v / 300) Mod 255
    green = 0 
    blue = 0 
    Col = RGB(red, green, blue)
    Line (x * ssx + xmax, y * ssy + ymax)-Step(1, 1), Col
    Next v
End Sub

Для второй картинки

x = 0.16421: y = 0
y = pi - 0.999965 * t

Для третьей

x = 0.0000005: y = 0
For v = 0 To 900000 Step 1
     t = x
     x = y + 1 * Sin(Abs(x) ^ 0.75)
     y = pi - t
 

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

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


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

100112 лет в Интернете


.