Re: Mathematica 6.0 Desperation

*To*: mathgroup at smc.vnet.net*Subject*: [mg83689] Re: [mg83638] Mathematica 6.0 Desperation*From*: Curtis Osterhoudt <cfo at lanl.gov>*Date*: Wed, 28 Nov 2007 05:37:10 -0500 (EST)*Organization*: LANL*References*: <200711271106.GAA15612@smc.vnet.net>*Reply-to*: cfo at lanl.gov

Hi, Jesus, The exact choices for PlotPoints and MaxRecursion below might not give you enough resolution, but should get you started. As far as I can tell, there's a bit of a tricky tradeoff between PlotPoints and MaxRecursion. Anyway, try the following: DensityPlot[JuliaTest[x, y, 50, -0.75 + 0.5*I], {x, 1.24, 1.27}, {y, -0.13, -0.1}, PlotPoints -> 40, Mesh -> False, MaxRecursion -> 4] Good luck! C.O. On Tuesday 27 November 2007 04:06:02 Jesus M. Goiri wrote: > Dear Sirs > > I have tried some items that seem to hang Mathematica 6.0. However > they work perfectly fine in the 5.2 version. I have tried to > discover the flaw and I have not been able to do so. The problem > pertains at some code I extracted from a book about Mathematica > applications by Boccara, particularly the examples that relate to > fractals, Julia and Mandelbrot Sets. > > I have below the lines of code. I you try them, I'd wish to see if > you are able to make them work. > > Yours sincerely, > > Jesus M, Goiri > > Clear[JuliaTest] > JuliaTest = Compile[{x, y, {n, _Integer}, {c, _Complex}}, > Module[{z, num = 0}, z = x + y I; > While[Abs[z] < 2.0 && num < n, z = z^2 + c; num++]; num]] > DensityPlot[JuliaTest[x, y, 50, -0.75 + 0.5 I], > {x, 1.24, 1.27}, {y, -0.13, -0.1}, PlotPoints -> 500, > Mesh -> False, ColorFunction -> Hue] -- ========================================================== Curtis Osterhoudt cfo at remove_this.lanl.and_this.gov PGP Key ID: 0x4DCA2A10 Please avoid sending me Word or PowerPoint attachments See http://www.gnu.org/philosophy/no-word-attachments.html ==========================================================

**References**:**Mathematica 6.0 Desperation***From:*"Jesus M. Goiri" <jesgoiri11@mac.com>