From Stan Wagon's very nice book:
"Mathematica in Action" - Freeman and Co. (ISBN:88-386-3403-3)
(* Julia 'Inverse Iteration Method' z^2+c -> sqrt[z-c],-sqrt[z-c] *)
JuliaIIM[c_, n_] := Show[Graphics[
Map[{ Point[{Re[#],Im[#]}],
Point[-{Re[#],Im[#]}]} &,
Drop[NestList[
If[Random[Integer]==1,1,-1] Sqrt[#-c] &,
0.2, n + 50],50]]]]
(* Esempio Julia(z,iter) *) JuliaIIM[(.390541 + .586788 I), 7000]
| Up.. |