Microsoft Small Basic

Program Listing: CHN019

List Program

'interesting chaos
'Author Wojciech Szczepankiewicz
'Silesian University of Technlogy, Gliwice, Poland
GraphicsWindow.BackgroundColor = "Black"
x = .1
scale = 350

For a = .01 To .6 Step .01
For i = 1 To 1500
y = a * math.SIN(1 / x)
GraphicsWindow.SetPixel(x * scale + 300, 220 - y * scale, "LightGreen")
x=y
EndFor
GraphicsWindow.Clear()
EndFor
GraphicsWindow.DrawText(10,10,"End of calculation")