After the first experimental version I have standardized the procedure.
Written MFR_14 with two different versions, exclusively for two pass
images. The first version has been stripped of all warp modifications
and consequently function conflicts. It is down compatible and previous
incompatible modifications are deleted. It is a lot faster and a good
source for "from the scratch" creation.
After generation a par must be copied into a special file for this image
together with version two of MFR_14. The actual functions are copied into
the frm, which is very easy as they all are close together.
FN1-4 are now free again. Only thing more to do is modify the par to
load the frm with the name of the image and set functions to "ident" and
you´re ready to go ahead with the modifications.
3 zooms are ready, possibly later.
;
This is mainly for the records, the Fractint Archives, but possibly there
is some reaction. The lurkers have ignored all requests for cooperation
and feedback and no link will be supplied anymore.
;
Here is version one of MFR_14, which may be useful for interested users
and should be copied into the frm folder. Only the main loop is updated.
;
------------------------------------Start FRM--------------------------
mfr_14_1 {; Albrecht Niekamp Feb.19,2015
;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=fn2(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
}
-----------------------------------------End FRM---------------------------
;
-----------------------------------------Start Par-------------------------
21547-11 { ; Parent View
; Mandel-Secant-ManyMods-Manowar-Newton
; Time 0.15.58.94 Reso 1280/1024
; Two Pass Fractal - Second Pass Modifications
reset=2004 type=formula formulafile=21547.par
formulaname=mfr_14_2_21547 function=exp/cabs/acosh/zero passes=t
center-mag=-0.497889/-1.33227e-015/0.6963012
params=-0.05825983458967864/0.3785210730307932/21547.64595767526/14523.4\
911030602/152048.0404808041/384.16048940221/384.00482000595/128.10076830\
01/256.1007683001/384.20000800189 float=y maxiter=3071
inside=maxiter periodicity=0 rseed=-2436
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_2_21547 {; Albrecht Niekamp Feb.18,2015 - Phoenix update
;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
:
if (tt>0)
t=t+1
if (ex0)
ex0=t<mi1
if (bo>bs)
u0=fn1(t*sfac)
if (w0)
u=u0
else
u=1.0
endif
ex0=0
if (ir0)
t=0
endif
if (d3)
z=pixel
cb=p9*u
c=px0*u
p=pp*u
x=x*u
else
z=z*u
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 (w1)
u=fn1(t*ofac)
else
u=1.0
endif
if (ir1)
t=0
endif
if (d3)
vb=v1j
if (rs1)
z=pixel
cb=p9*u
c=px1*u
p=pp*u
x=x*u
else
c=px1
z=z*u
cb=p9
endif
else
vb=v1m
if (rs1)
c=z*u
z=pixel*(sc1+po1)
z0=p7*u
ph=ph*u
else
c=z
z=z*u
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 (w2)
u=fn2(t*fac1)
else
u=1.0
endif
if (ir2)
t=0
endif
if (d3)
vb=v2j
if (rs2)
z=pixel
cb=p9*u
c=px2*u
p=pp*u
x=x*u
else
cb=p9
c=px2
z=z*u
endif
else
vb=v2m
if (rs2)
c=z*u
z=pixel*(sc2+po2)
z0=p7*u
ph=ph*u
else
c=z
z=z*u
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 (w3)
u=fn3(t*fac2)
else
u=1.0
endif
if (ir3)
t=0
endif
if (d3)
vb=v3j
if (rs3)
z=pixel
cb=p9*u
c=px3*u
p=pp*u
x=x*u
else
cb=p9
c=px3
z=z*u
endif
else
vb=v3m
if (rs3)
c=z*u
z=pixel*(sc3+po3)
z0=p7*u
ph=ph*u
else
c=z
z=z*u
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 (w4)
u=fn3(t*fac3)
else
u=1.0
endif
if (d3)
vb=v4j
if (rs4)
z=pixel
cb=p9*u
c=px4*u
p=pp*u
x=x*u
else
cb=p9
c=px4
z=z*u
endif
else
vb=v4m
if (rs4)
c=z*u
z=pixel*(sc4+po4)
z0=p7*u
ph=ph*u
else
c=z
z=z*u
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=exp(z)*sin(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=fn4(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=sin(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
}
---------------------------------------------End-------------------------------
