Microsoft Small Basic

Program Listing: ZHK128

List Program

'Chaos in trigonometric functions
'Author Wojciech Szczepankiewicz
'Silesian University of Technology, Gliwice, Poland
' Be patient!
y = .5
scale = 50
GraphicsWindow.BackgroundColor = "Black"
For a = .3 To 10 Step .01
x = .5
For i = 1 To 1800
' Iterated function
y = a / 64 * (35 * math.COS(4 * x) + 20 * math.COS(2 * x) + 9)
IF i > 100 THEN
GraphicsWindow.SetPixel(x * scale + 150, 350 - y * scale, "LightGreen")
EndIf
x=y
EndFor
GraphicsWindow.Clear()
EndFor