Re: [Fractint] Martian_Fireworks

11 Mar 2018


      These are good zooms, Hal.
A good tip for other zooms: check the small objects
along the straight lines !
Here`s the par again, including the frm:
-------------------------------start par-----------------------------------
21547-33           { ; Martian_Fireworks
                      ; Mandel-secant-mmods-manow-newton
                      ; Time 0.15.36.86
   reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_1
   function=zero/ident/ident/ident passes=t
center-mag=-0.50000250964429970/-0.13143222001085130/22829.55/1/180
params=-0.05825983458967864/0.3785210730307932/21547.6459571202/14523.49\
11030602/152048.0404808041/384.16048940221/384.00482000595/128.100768300\
   1/256.1007683001/384.1007683001 float=y maxiter=3071 inside=maxiter
   periodicity=0 rseed=-2436 sound=off
colors=000<2>110110000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0\
F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<7>Q0UU0YX0a_0dc0hf0l<2>p0w<\
4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D36F5<16\
...
kkammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<12>110
   }
frm:mfr_14_1 {;  Albrecht Niekamp  Feb.19,2015 Deleted Warp Effect
;P1      : Julia-Manowar-(Lambda)-(Magnet)-(Phoenix) seed
;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3
;     Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods
;          6_Phoenix 7_Newton 8_Lambda/Magnet
;   Right: 2 Digit_ManyMods_Number of sides  2 Digit_Phoen  2 Digit_Lambd
;          1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_nowarp
;          4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp
;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5
;   Right: Variables: 4 Digit_Mand/Jul (2var)  2 Digit_Secant 4 Digit_Bees
;RP3 Left: 2 Digit_Newtonvariable  4 Digits_bailout1
;   Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet
;IP3 Left: 4 Digit_Shape:  Warp-factor (fn1 or fn4 is used)
;   Right: 4 Digit_bailout4 4 Digit_bailout5 1 digit_mow=2 1 digit_mag=2
;RP4 Left: 4 Digit_Outside:  Warp-factor (fn2 used)
;   Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in
;IP4 Left: Inside1_Maxiter
;   Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord
;          5 Digit_warp factor (fn2 used)  4 Digit+fractaldigit_border1
;RP5 Left: Inside2_Maxiter
;   Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord
;          5 Digit_warp factor (fn3 used)  4 Digit+fractaldigit_border2
;IP5 Left: Inside3_Maxiter
;   Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord
;          5 Digits_Warp factor (fn4 used)  4 Digit+fractaldigit_border3
;Function: fn1_Manymods, fn3_Bees, fn2+fn3+fn4(virtual P1)_Lambda(fn)
z=pixel
da=real(p2)
dd=trunc(da)
tt=dd>0
da=trunc(((da-dd)*100000000000)+11111)
dd=trunc(dd+11111)
d=trunc(dd/10000)
dd=dd-d*10000
d3=(d==4)+(d==5)+(d==8)+(d==9)
d4=d3==0
vb=d>5
ex0=(d>1)
sc=d==2
bs=d==4
mo=d==6
po=d==7
sx=d==9
ab=po+(d==3)+(d==5)+(d==9)
d=trunc(dd/1000)
dd=dd-d*1000
ex1=(d>1)
sc1=d==2
bs1=d==4
mo1=d==6
po1=d==7
sx1=d==9
v1m=mo1+po1
v1j=d>7
dd1=v1j+(d==4)+(d==5)
ab1=po1+(d==3)+(d==5)+(d==9)
d=trunc(dd/100)
dd=dd-d*100
ex2=(d>1)
sc2=d==2
bs2=d==4
mo2=d==6
po2=d==7
sx2=d==9
v2m=mo2+po2
v2j=d>7
dd2=v2j+(d==4)+(d==5)
ab2=po2+(d==3)+(d==5)+(d==9)
d=trunc(dd/10)
dd=dd-d*10
ex3=(d>1)
sc3=d==2
bs3=d==4
mo3=d==6
po3=d==7
sx3=d==9
v3m=mo3+po3
v3j=d>7
dd3=v3j+(d==4)+(d==5)
ab3=po3+(d==3)+(d==5)+(d==9)
d=dd
ex4=(d>1)
sc4=d==2
bs4=d==4
mo4=d==6
po4=d==7
sx4=d==9
v4m=mo4+po4
v4j=d>7
dd4=v4j+(d==4)+(d==5)
ab4=po4+(d==3)+(d==5)+(d==9)
bst=bs+bs1+bs2+bs3+bs4
mot=mo+mo1+mo2+mo3+mo4
tt=ex1+ex0+ex2+ex3+ex4
;
mm=trunc(da/1000000000)
da=da-mm*1000000000
ph=trunc(da/10000000)
da=da-ph*10000000
sp=trunc(da/100000)
da=da-sp*100000
d=trunc(da/10000)
da=da-d*10000
wx=(d>4)
d=d-5*wx
dm=(d==2)+(d==4)
ir0=(d==3)+(d==4)
d=trunc(da/1000)
da=da-d*1000
w1=d>4
d=d-5*w1
rs1=(d==2)+(d==4)
ir1=(d==3)+(d==4)
d=trunc(da/100)
da=da-d*100
w2=d>4
d=d-5*w2
rs2=(d==2)+(d==4)
ir2=(d==3)+(d==4)
d=trunc(da/10)
da=da-d*10
w3=d>4
d=d-5*w3
rs3=(d==2)+(d==4)
ir3=(d==3)+(d==4)
w4=da>4
da=da-5*w4
rs4=(da==2)+(da==3)+(da==4)
if (ph==0)
ph=p1
else
ph=ph/10
endif
w0=(wx==0)
If (1<sp)
d=(trunc(sp/10))/9
da=fn4(sp-100*d)
d=sp/73,37
sp=d+sqr(-da)
else
sp=p1
endif
;
d=real(p3)
dd=trunc(d)
da=trunc((d-dd)*10000000000)
pp=trunc(dd/10000)
ba1=dd-10000*pp
ba2=trunc(da/1000000)
da=da-1000000*ba2
ba3=trunc(da/100)
da=da-100*ba3-4
mg=da/10
if (mg<1)
mg=real(p1)
endif
;
d=imag(p3)
dd=trunc(d)
da=trunc((d-dd)*10000000000)
sfac=dd/1000000+(dd==0)
ba4=trunc(da/1000000)
da=da-ba4*1000000
ba5=trunc(da/100)
da=da-ba5*100
d=trunc(da/10)
da=da-d*10
mow=d==2
mag=da==2
px0=((sx*mag)==0)*p1
px1=((sx1*mag)==0)*p1
px2=((sx2*mag)==0)*p1
px3=((sx3*mag)==0)*p1
px4=((sx4*mag)==0)*p1
;
d=real(p4)
dd=trunc(d)
da=trunc((d-dd)*10000000000)
ofac=dd/1000000+(dd==0)
bh=trunc(da/100000)/10
bl=(da-bh*1000000)/10
bs=bl/2
;
d=imag(p2)
dd=trunc(d)
da=trunc((d-dd)*10000000000)
d=trunc(dd/10000)
dd=dd-d*10000
bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5)
d=trunc(dd/1000)
dd=dd-d*1000
bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5)
d=trunc(dd/100)
dd=dd-d*100
bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5)
d=trunc(dd/10)
dd=dd-d*10
bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5)
d=dd
bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5)
;
d=da
p0=trunc(d/100000000)/10
d=d-p0*1000000000
p6=trunc(d/1000000)/10
d=d-p6*10000000
p7=trunc(d/10000)/10
d=d-p7*100000
dp=p6+p0/100
p8=trunc(d/100)/100
d=d-p8*10000
p9=d/100
;
d=imag(p4)
mi1=trunc(d)
da=trunc((d-mi1)*100000000000)
d=trunc(da/10000000000)
bt1=d>6
da=da-d*10000000000
d=d-5*bt1
dt1=d>1
iv1=d==3
dd=trunc(da/100000)
da=da-dd*100000
fac1=dd/1000000+(dd==0)
bo1=(da/100000)/10
;
d=real(p5)
mi2=trunc(d)
da=trunc((d-mi2)*100000000000)
d=trunc(da/10000000000)
bt2=d>6
da=da-d*10000000000
d=d-5*bt2
dt2=d>1
iv2=d==3
dd=trunc(da/100000)
da=da-dd*100000
fac2=dd/1000000+(dd==0)
bo2=(da/100000)/10
;
d=imag(p5)
mi3=trunc(d)
da=trunc((d-mi3)*100000000000)
d=trunc(da/10000000000)
bt3=d>6
da=da-d*10000000000
d=d-5*bt3
dt3=d>1
iv3=(d==3)
dd=trunc(da/100000)
da=da-dd*100000
fac3=dd/1000000+(dd==0)
bo3=(da/100000)/10
;
if (vb)
if (d3)
if (ab)
if (mag)
c=z
z=pixel
x=mg
x=x+(x==0)*3      ;magnet
else
z=pixel           ;lambdafn
x=((1,0.4)*(|sp|<=0)+sp)
m=(64*(real(bb0)<=0)+real(bb0)*(0<bb0))
endif
else
c=z
z=pixel           ;newton
endif
elseif (ab)
c=z               ;Phoenix
z=pixel
else
c=0.4*log(sqr(z^mm))
z=0               ;many mods
endif
elseif (d3)
if (ab)
if (mow)          ;manowar
mt=(4*(real(p2)<=0)+real(p2)*(0<p2) )
c=p1
z=pixel
else
c=p1              ;Julia
z=pixel
endif
else              ;bees
c=p1
z=pixel
endif
elseif (ab)
c=z               ;Mandel
z=0
else
c=z               ;Secant
z=pixel
endif
t=0
bo=|z|
p=pp
z0=p7
zold=(0.0,0.0)
cb=p9
ba=bb0
u=1.0
:
if (tt>0)
t=t+1
if (ex0)
ex0=t<mi1
if (bo>bs)
ex0=0
if (ir0)
t=0
endif
if (d3)
z=pixel
cb=p9
c=px0
p=pp
else
if (mo)
c=0.4*log(sqr(z^mm))
else
c=pixel
endif
tt=tt-1+ex0
endif
endif
elseif ((ex1)&&bo>bl)
if (bo<bh)
d3=dd1
ba=bb1
ab=ab1
ex1=0
tt=tt-1
if (ir1)
t=0
endif
if (d3)
vb=v1j
if (rs1)
z=pixel
cb=p9
c=px1
p=pp
else
c=px1
z=z
cb=p9
endif
else
vb=v1m
if (rs1)
c=z
z=pixel*(sc1+po1)
z0=p7
ph=ph
else
c=z
endif
if (mo1)
c=0.4*log(sqr(z^mm))
endif
endif
endif
elseif (ex2)
if (dt1)
if (iv1)
d=bo>bo1
else
d=bo<bo1
endif
if (bt1)
d=d+(t>mi1)
endif
else
d=t>mi1
endif
if (d)
ab=ab2
d3=dd2
ba=bb2
ex2=0
tt=tt-1
if (ir2)
t=0
endif
if (d3)
vb=v2j
if (rs2)
z=pixel
cb=p9
c=px2
p=pp
else
cb=p9
c=px2
endif
else
vb=v2m
if (rs2)
c=z
z=pixel*(sc2+po2)
z0=p7
else
c=z
endif
if (mo2)
c=0.4*log(sqr(z^mm))
endif
endif
endif
elseif (ex3)
if (dt2)
if (iv2)
d=bo>bo2
else
d=bo<bo2
endif
if (bt2)
d=d+(t>mi2)
endif
else
d=t>mi2
endif
if (d)
ab=ab3
d3=dd3
ba=bb3
ex3=0
tt=tt-1
if (ir3)
t=0
endif
if (d3)
vb=v3j
if (rs3)
z=pixel
cb=p9
c=px3
p=pp
else
cb=p9
c=px3
endif
else
vb=v3m
if (rs3)
c=z
z=pixel*(sc3+po3)
z0=p7
else
c=z
endif
vb=v3m
if (mo3)
c=0.4*log(sqr(z^mm))
endif
endif
endif
elseif (ex4)
if (dt3)
if (iv3)
d=bo>bo3
else
d=bo<bo3
endif
if (bt3)
d=d+(t>mi3)
endif
else
d=t>mi3
endif
if (d)
ab=ab4
d3=dd4
ba=bb4
ex4=0
tt=0
if (d3)
vb=v4j
if (rs4)
z=pixel
cb=p9
c=px4
p=pp
else
cb=p9
c=px4
endif
else
vb=v4m
if (rs4)
c=z
z=pixel*(sc4+po4)
z0=p7
else
c=z
endif
if (mo4)
c=0.4*log(sqr(z^mm))
endif
endif
endif
endif
endif
if (vb)
if (d3)
if (ab)
if (mag)     ;magnet
z=((z^x+c-1)/(2*z+c-2))^(x-1)
else
z=fn2(z)*fn3(x)     ;Lambdafn
abs(imag(z))<=x && abs(real(z))<=m
endif
else
z1=z^p-1     ;newton
z2=p*z*z
z=z-z1/z2
endif
elseif (ab)
z1=z*z+0.56+ph/100-0.5*zold
zold=z       ;Phoenix
z=z1
else
z2=fn1(z)+c  ;Many_mods
z1=cos(z2)
z=c*(1-z1)/(1+z1)
endif
elseif (d3)
if (ab)
if (mow)
z1=z         ;manowar
oldz=z
z=sqr(oldz)+z1+c
z1=oldz
else          ;Julia
z=z2*z2+p6*z2+c-p0
endif
else
z1=fn3(z)-cb   ;Bees
z2=z1^p8-1
z3=p8*(z1^(p8-1))
z=z-(z2/z3)
endif
elseif (ab)
if (dm)
z=z*z+c+c*c-dp  ;Double Mandel
else
z2=z*z          ;Mandel
z=z2*z2+p6*z2+c-p0
endif
else
z3=z            ;Secant
z1=z0*z0*z0*z0-1
z2=z*z*z*z-1
z=z-z2*(z-z0)/(z2-z1)
z0=z3
endif
bo=|z|
bo<ba
}
Am 11.03.2018 um 23:09 schrieb Harold Lane:
...
The nearby lacey, magnetic field patterns are also nice.
Am 11.03.2018 um 23:09 schrieb Harold Lane:
...
This is certainly an interesting area of end-to-end
connected thistle shapes making up the "horseshoes"
in your Martian_Fireworks image, Albrecht:
The nearby lacey, magnetic field patterns are also nice.
http://tinyurl.com/Martian-Fireworks-zoom-1  or
http://www.emarketingiseasy.com/Albrecht/MFR_14_1/21547H34.GIF
- Hal Lane
########################
# hallane@earthlink.net
########################