; Date: Mon, 21 Jun 2010 00:43:31 -0600 ; From: Roger Alexander ; Subject: [Fractint] Celery of the Gods ; Id: ; --------- ; ; Busy busy today but not so busy I don't have time to post this par "Celery of the Gods". ; If you're busy as I am go to http://maxitersfractalfollies.blogspot.com and save some ; precious calculating moments by viewing the finished fractal. ; fract265.gif { ;_fractal_chlorophyll ; blank ; calctime 0:04:40.40 ; created Jun 20, 2010 ; Fractint Version 2004 Patchlevel 9 reset=2000 type=formula formulafile=_t.frm formulaname=tri-julia-2 center-mag=-0.338785/-0.449154/4.341378/1/47.5000000000000711/5.12714870\ 559705105e-014 params=1025.653340250862/1.891872920926542/-0.4537186803796504/0.4264961\ 699270607 float=y maxiter=1200 outside=atan periodicity=0 cyclerange=0/255 colors=0000200000000000200300500600800A00B00D00E00G00I00J00L00M00O00Q00R\ 00T00U00W00Y00Z00`00a00c00e00f00h00i00k00m01m03m04n06n07o09o0Ao0Cp0Ep0Fq\ 0Hq0Iq0Kr0Lr0Ns0Ps0Qs0St0Tt0Vu0Wu0Yu0Zv0`v0bw0cw0ew0fx0hx0iy0ky0mz0mz1mz\ 3mz3lz3kz3jy3iy3hy3gy2fx2ex2dx2cx2bw2aw1`w1_w1Zv1Yv1Xv1Wu0Wu0Xu0Yu0Zu1_u\ 1`u1av2bv2cv2dv3ev3fv3gw4hw4iw4jw5jw5kw5lw5mx6nx6ox6px7qx7rx7sy8sy8ry8qy\ 7py7py7oy6ny6my6my5ly5ky4jy4iy4iy3hy3gy3fy2fy2ey2dy1cy1bz0cz0dz0ez0fz0gz\ 0hz0iz0jz0kz0lz0mz0nz0oz0pz0qz0rz0sz0qz0pz0oz0mz0lz0kz0iz0hz0gz0fz0dz0cz\ 0bz0`z0_z0Zz0Yz0Wz0Vz0Uz0Sz0Rz0Qz0Oz0Nz0Mz0Lz0Jz0Iz0Hz0Fz0Ez0Dz0Bz0Az09z\ 08z06z05z03z02z00z00y00x00w00v00u00t00s00r00q00p00o00n00m00l00k00j00i00h\ 00g00f00e00d00c00b00a00`00_00Z00Y00X00W00V00U00T00S00R00Q00P00O00N00M00L\ 00K00J00I00H00G00F00E00D00C00B00A0090080070060050040030 } ; frm:tri-julia-2 {; Sylvie Gallet , May 1997 ; Thanks to Kerry Mitchell for the idea! ; real(p1) = bailout (1024 recommended) ; imag(p1) must be different from 0 (>=1 recommended) ; p2 = parameter for the Julia set ; This formula must be used with decomp = 256 and periodicity = 0 ; z1 = pixel, mz1 = cabs(z1), b = cabs(p2), summ = iter = 0 b1 = abs(real(p1)), f = b1^0.1 b2 = b1*f, b3 = b2*f, b4 = b3*f, b5 = b4*f, b6 = b5*f b7 = b6*f, b8 = b7*f, b9 = b8*f, b10 = b9*f, b11 = b10*f iter1 = iter2 = iter3 = iter4 = iter5 = iter6 = iter7 \ = iter8 = iter9 = iter10 = summ_tot = iter_tot = 0 k = imag(p1) * (0.0,6.28319530718) : iter = iter + 1, a = mz1 * mz1 z1 = z1 * z1 + p2, mz1 = cabs(z1), a_b = abs(a - b) summ = summ + (mz1 - a_b) / (a+b - a_b) IF (mz1 > b1) IF (iter1==0) iter1 = iter iter_tot = iter_tot + iter1 summ_tot = summ_tot + summ ENDIF IF (mz1 > b2) IF (iter2==0) iter2 = iter iter_tot = iter_tot + iter2 summ_tot = summ_tot + summ ENDIF IF (mz1 > b3) IF (iter3==0) iter3 = iter iter_tot = iter_tot + iter3 summ_tot = summ_tot + summ ENDIF IF (mz1 > b4) IF (iter4==0) iter4 = iter iter_tot = iter_tot + iter4 summ_tot = summ_tot + summ ENDIF IF (mz1 > b5) IF (iter5==0) iter5 = iter iter_tot = iter_tot + iter5 summ_tot = summ_tot + summ ENDIF IF (mz1 > b6) IF (iter6==0) iter6 = iter iter_tot = iter_tot + iter6 summ_tot = summ_tot + summ ENDIF IF (mz1 > b7) IF (iter7==0) iter7 = iter iter_tot = iter_tot + iter7 summ_tot = summ_tot + summ ENDIF IF (mz1 > b8) IF (iter8==0) iter8 = iter iter_tot = iter_tot + iter8 summ_tot = summ_tot + summ ENDIF IF (mz1 > b9) IF (iter9==0) iter9 = iter iter_tot = iter_tot + iter9 summ_tot = summ_tot + summ ENDIF IF (mz1 > b10) IF (iter10==0) iter10 = iter iter_tot = iter_tot + iter10 summ_tot = summ_tot + summ ENDIF IF (mz1 > b11) iter_tot = iter_tot + iter summ_tot = summ_tot + summ z = exp (summ_tot * k / iter_tot) ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF mz1 <= b11 ;SOURCE: triangl.frm } ; Roger Alexander ; _________________________________________________________________ ; Look 'em in the eye: FREE Messenger video chat ; http://go.microsoft.com/?linkid=9734386 ;