Computer Science Canada

Can somebody explain this formula for me?
Author:  congcong [ Sat May 22, 2004 12:02 pm ]
Post subject:  Can somebody explain this formula for me?
Quote:

var a := 80.0
var b := 60.0
var c := 30.0
var cl : int

function hyp (a, b : real) : real
result (sqrt (a ** 2 + b ** 2))
end hyp

for x : 1 .. maxx
for y : 1 .. maxy
cl := 15 + round (8 * (
(1 + sin (
+ (sin ((x + y) / a))
+ (sin (y / b))
+ (cos (hyp (x - maxx div 2, y - maxy div 2) / c)))
)))
drawdot (x, y, min (31, max (16, cl)))
end for
end for


i don't understand this part

Quote:

cl := 15 + round (8 * (
(1 + sin (
+ (sin ((x + y) / a))
+ (sin (y / b))
+ (cos (hyp (x - maxx div 2, y - maxy div 2) / c)))
)))
drawdot (x, y, min (31, max (16, cl)))
Author:  Mazer [ Sat May 22, 2004 1:14 pm ]
Post subject:  Re: Can somebody explain this formula for me?
congcong wrote:

Quote:

cl := 15 + round (8 * (
(1 + sin (
+ (sin ((x + y) / a))
+ (sin (y / b))
+ (cos (hyp (x - maxx div 2, y - maxy div 2) / c)))
)))
drawdot (x, y, min (31, max (16, cl)))

Well obviously. Who'd you get the code from? Why don't you ask them?
Author:  Tony [ Sat May 22, 2004 8:22 pm ]
Post subject: 
the image does look nice though Very Happy What is it? Confused Doesn't look like any fractal set Thinking

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy