Question: Plotting Julia sets with Maple

I am studying the Julia sets. I have tried the following two codes to generate Julia Sets. The first one I found in Maple Help, and the second one from http://ftp.informatik.rwth-aachen.de/maple/mfrjulfn.htm. I am wondering if there exists another code to generate the Julia set. My question is just for educational purposes, because those two codes work fine.
 

with(Fractals:-EscapeTime); with(ImageTools); bl, ur := -2.0-1.5*I, 2.0+1.5*I; c := -1; J := Julia(700, bl, ur, c, cutoff = 4, iterationlimit = 6000, output = layer1); Embed(J)

restart; julfn_zsqrd := proc (x, y) local c, z, m; c := evalf(0); z := evalf(x+I*y); for m from 0 to 50 while abs(z) < 2 do z := -z^2+z end do; m end proc; plot3d(0, -1.0 .. 2.0, -2.0 .. 2.0, style = patchnogrid, orientation = [-90, 0], grid = [250, 250], scaling = constrained, color = julfn_zsqrd)

 

NULL


 

Download Julia_Sets.mw

Please Wait...