Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
diverge (tomamos esta decisão porque este desenho parecerá mais interessante do que
somente a borda do conjunto de Julia).
Precisaremos de um procedimento para calcular a norma de números complexos:
( define complex-norm
( lambda (x)
( let ((a ( real-part x))
(b ( imag-part x )))
( sqrt (+ (* a a)
(* b b ))))))
Nosso procedimento in-julia fará no máximo 150 iterações:
( define in-julia
( lambda (f x max )
( let ((v ( function-iterate f x 150
(< ( complex-norm v) max ))))
( lambda (z)
(> ( complex-norm z)
max )))))
A primeira função para a qual plotaremos o conjunto de Julia é f(z) = z 2 − 0.2 + 0.5ϕi.
( define phi (/ (+ 1 ( sqrt 5)) 2))
( define complex-quad
( lambda (x)
(+ (* phi 0+0.5 i)
(- 0.2)
(* x x ))))
O procedimento quadratic-in-julia aceita as duas coordenadas de um ponto, as
dimensões da janela onde queremos plotar e determina se o ponto deve ser plotado ou
não.
• Para plotarmos o conjunto nos quatro quadrantes, são feitas translações nos dois
Versão Preliminar
eixos, de maneira que o centro da janela seja passado para a função como (0, 0);
• Multiplicamos os valores de x e y por um terço da largura da imagem, de forma
que possamos visualizar a parte “interessante” da imagem;
124
[ 27 de outubro de 2010 at 15:47 ]