Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
• in-julia é chamada, com o complexo formado pelo ponto (x, y) e com o limite de
2.
( define quadractic-in-julia
( lambda (x y x-size y-size )
( let (( half-x (/ x-size 2))
( half-y (/ y-size 2))
( scale-factor (/ 3 x-size )))
( let (( tr-x (- x half-x ))
( tr-y (- y half-y )))
( let (( sc-x (* tr-x scale-factor ))
( sc-y (* tr-y scale-factor )))
( in-julia complex-quad
( make-rectangular sc-x sc-y )
2))))))
Agora só nos falta make-julia, que efetivamente constrói a imagem passando a
função quadratic-in-julia para for-each-pixel!
( define make-julia
( lambda ( x-size y-size fun )
( let (( img ( make-image x-size y-size )))
( for-each-pixel ! img
img )))
( lambda (x y)
( fun x y
x-size
y-size )))
Geramos a imagem do conjunto de Julia para f(z) = z 2 − 0.2 + 0.5ϕi:
( let (( julia-set ( make-julia 300
( draw-image julia-set
400
" julia-set . pbm "))
quadractic-in-julia )))
Versão Preliminar
O conteúdo do arquivo julia-set.pbm será a figura abaixo:
[ 27 de outubro de 2010 at 15:47 ]
125