Hi,
is this post-fractint? Kinda pick up the pieces
and make something new of it? I hope not.
It was supposed to be an update to Mandelmania but it turned out to become
something different, more a tool then a formula. A tool to be used
without leaving fractint, which lets you compose your image,- or the first
approach to it. It mixes 4 fractals with seperate inside/ outside
options.Two basic formulas which are ismand compatible and two hybrid
mandel and julia variations.
Of course a huge number of inputs is needed, but I have tried to make them
as easy and comfortable as even possible.
The p1 values are used as Julia seed and shared to define the default
mandel, I call it shape.
If you need both, start with the Julia values, see what basic image you get
and define it further with the P6 input,(real P2) after the dot. The first
2 digits are used, they even can be negative, a "minus" will be applied
to this value only.
The other two digits are used to define the 2nd shape. This one has many
variations of mirrored mandels that can be combined to one special shape.
Use the evolver, max mutation for example 0.003. Both are written by Puskás
István. The default one is modified to enforce Julia compatability and to
use the "warp"effect for further modification.
The inputs are sorted as shape/ in/out1 and in/out2 factor,border, maxiter.
Border1 can be fractional, a border value of 1.4567 would appear as
(factor1).000014567.
The primary input Real P5 consists of five digits,
shape, out1, out2, in1, in2. You type the number of the fractal to be used
and add five to reset it, not the shape of course. A "minus" will shut off
in/out1. Number 3 is Many_mods (mandel) by Linda Allison with a
modification by Sylvie Gallet. I like this because it creates beautiful
structures and its very complex. The circular form can be changed if you
take a mandel as basic shape. It mixes very well with the hybrid Julia,
(Nr.4),own write, which also gains complexity with the warpeffect, as it
shares iteration. This one can be replaced by a different frm, if it dosnt
need an additional input. The other ones are "built in" so some rewriting
would be necessary in order to replace them.
If you want the shape only, no in/out options, just type one number.
Do not forget to set ismand according to your selection.
The secondary input consists of 2 digits.You type the number out1/out2 and
in1/in2 (or zero) to use the second basic formula, 3 if you want to use it
for both, add five to use it as shape. This input is optional.
Resetting generally adjusts the concerned part to the screen instead of the
surroundings, it also helps avoid chaotic spots due to overcomplexity.
Many-mods gains complexity, the number of "sides", (real P3,2nd input) is
doubled if called as in/out option and again if twice f.e
"(bailout).00008". This also creates the multiplication in "cockpit", I
think.
Imag P5 is optional, one or two digts, 1 for resetting the internal counter
after shape (1) or after in/out1 (2), 3 if both. Add five or only 5 to use
the warpeffect on the shape. This sometimes helps if you dont get an inside
image and lets you see the difference. Counter resetting starts the
calculation of the warp effect from zero. If you dont reset it and use the
same factor for all options, the effect will increase with iteration.
If you want to shut off the many_mods multiplication add 10 for in/out1,
add 20 for in/out2 or 30 to shut it off completely.
The Lake input ,2nd input, is radically simplified (sorry, Sylvie), you
just type one six digits number, 2 digits for each value. 324151 means a
frequency of 320, a level of 41% and an amplitude of 0.51. Any valid input
activates the lake effect.
The functions are used for the calculation of the warp effect, possibly a
new factor must be found if changed. Fn1 is shared with many_mods, so if
you dont warp the shape it is free to use. I did not use fn4 or
fn5 for the 2nd function as at least 2 lines are needed to scroll the text.
If you dont want the outside options set the values higher then bailout, or
vv maxiter higher then maxiter on the x-screen.
It was not possible to include twoway border values and separate bailout
values, P6 is needed.
Its a good idea to have a hardcopy available when doing the inputs, also
some basic pars ready to modify.
There is one problem: Many_mods is n o t compatible
with the lake effect, as they both define "c", applying the effect to "z"
does not do the job and the image is partly distorted. P l e a s e tell me,
if you see a solution, maybe only Sylvie can help.
If you have questions or bugs to report, please dont hesitate and -- please
post your images.
Writing this was like a trip into a new country, and when you finally
detect, that it´s much more complex then it´s parts, well- that´s it.
Fractal Greetings,
Al.
---------------------------------------start-par--------------------------
-
The_flying_mandel { Albrecht Niekamp Apr, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=-0.426332/0.037594/0.8912656/1/-90/3.88578058618804789e-016
params=-0.2724234748374889/0.09260841700491348/384.00001/256.1113/2048.0\
0008/768.00004/1025.01536/2560.01536/18115.11/0 float=y maxiter=3072
inside=maxiter outside=tdis logmap=4 periodicity=0 rseed=-2436
colors=200022000<4>A85CA6EC7GE8IF9KHA<13>keOmgPoiQqjRslSunT<2>zsX<25>CB7\
A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>000<23>eeegggiiijjjlll\
nnn<2>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<29>034
}
The_gate { ; Albrecht Niekamp Apr, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=0.512575/-0.480315/2.675131/1/-90/3.88578058618804789e-016
params=0.5125888851588488/-0.4719992675557726/384.00001/256.3601/2048.00\
008/768.0256000000001/768.01536/2560.01025/11113.11/1.324051 float=y
maxiter=3072 inside=maxiter outside=tdis logmap=3 periodicity=0
rseed=-2436
colors=200000<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777<2>222000012<24>0b\
o0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB\
7A96875<3>000400<23>o00q00s00<3>z00<30>200
}
Hades { ; Albrecht Niekamp Apr, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=-1.09933852316632100/+1.00410963532720300/204.7945/1/-169.999\
999999999545/4.83828255237739313e-013
params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\
0016/768.0001600000001/768.01536/32.01025/34231/5 float=y
maxiter=3072 inside=maxiter outside=tdis logmap=yes periodicity=0
rseed=-2436
colors=20009C<19>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqj\
RslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>00\
0<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777<2>222000012<3>07A
}
Cockpit { ; Albrecht Niekamp Apr, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=-1.16761/0.932037/6.553424/1/-47.5/-3.77822773067748585e-014
params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\
0016/768.0001600000001/768.01536/32.01025/34231/5 float=y
maxiter=3072 inside=maxiter outside=tdis logmap=yes periodicity=0
rseed=-2436
colors=000XXX<10>oooqqqsss<2>xxxzzzyyy<25>CCCAAA888<2>222000000<56>00000\
0000<2>000111332<23>ldTnfUpgV<3>xn_<27>A86875654443222000<52>000000000<2\
>000111333<15>VVV
}
No_admission { ; Albrecht Niekamp Apr, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/sin passes=t
center-mag=0.222172/-0.0164743/3.404629/1/-90/-1.23373533611470521e-014
params=0.3009095217749565/-0.00961206396679584/384.00001/256.3601/2048.0\
0008/768.0256000000001/768.01536/64.01025/11193/0 float=y
maxiter=3072 inside=maxiter outside=tdis logmap=3 periodicity=0
rseed=-2436
colors=200000<25>iiijjjlll<3>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3\
>0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<2\
3>o00q00s00<3>z00<30>200
}
Mandala { ; Albrecht Niekamp Apr, 03
;
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=postpar.par
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=0.128196/0.0103203/1.14051/1/-90/3.88578058618804789e-016
params=0.1044648579363384/-0.01168858912930693/384.00004/256.00768/2048.\
00005/768.00008/384.01536/384.01025/18939/5 float=y maxiter=2048
inside=maxiter outside=tdis logmap=5 periodicity=0 rseed=-2436
colors=200000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqj\
RslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>00\
0<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777555444222
}
Speedtest { ; Time 1min10sec p4 2giga 1600/1200
; Albrecht Niekamp May, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifrac_239 ismand=n function=exp/exp/exp passes=t
center-mag=0.117455/3.33067e-016/2.552858/1/90/3.88578058618804789e-016
params=-0.173894466994232/-0.3000579851680044/384.00001/256.1133/2048.00\
008/768.0256000000001/768.01536/2560.01025/4/35.324051 float=y
maxiter=2048 inside=maxiter outside=tdis logmap=4 periodicity=0
rseed=-2436
colors=0000200000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDf\
VEhWFjYFlYGn_Gp`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5G\
B5DA<3>254243121000001023025047049<5>0BL0DN0DP<3>0JX0KZ0L`0Mb0Nd<3>0Sl0T\
n0Up4Yr8atCgvGkxKqz<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A04804\
6024012000100<12>R0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<\
2>k0bi0`g0_e0Z<3>Y0SW0RU0O<8>C0AA09807506304102010<9>0L20N20P30R30T40V40\
X3<3>0d40f50h5<3>0p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20\
G20E20C20A1081061040
}
Thousand_Julias { ; Time 22m35s p4_2giga_1600/1200
; Albrecht Niekamp Apr, 03
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/exp passes=t
center-mag=-1.16373570930467300/+1.00897822713355100/131.0685/1/132.5000\
00000000682/-1.31000071901254955e-012
params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\
0016/768.0001600000001/768.01536/32.01025/34231/5 float=y
maxiter=3072 inside=maxiter outside=tdis logmap=5 periodicity=0
rseed=-2436
colors=2000Ub<13>09B089067<2>021000210<22>keNmgOoiPqjQslRunS<2>zsW<25>CB\
6A95874653442220000400<23>o00q00s00<3>z00<25>C00A00800<3>000<2>554776998\
BBACCB<16>eedggfiihjjillknnm<2>ssr<25>BBA998776<2>221000011<24>0bn0cp0er\
<3>0ky<10>0Wd
}
Thousand_mandels { ; Albrecht Niekamp Apr, 03
;
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/sin passes=t
center-mag=-0.175549/-0.304679/1.39428/1/-90/-1.23373533611470521e-014
params=-0.173894466994232/-0.3000579851600044/384.00004/2500.2333/2048.0\
0012/768.00008/2500.01536/32.01536/18435/5 float=y maxiter=2048
inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436
colors=200211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z0\
0<25>C00A00800<3>000<25>iiijjjlll<3>sss<25>BBB999777<2>222000012<24>0bo0\
cq0es<2>0jy0kz0jy<30>000
}
Thousand_mandels2 { ; a bit chaotic, but...
; Albrecht Niekamp Apr, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifractal ismand=y function=exp/exp/sin passes=t
center-mag=-0.57996076807419270/-1.17390745582887600/27.8856/1/-152.5000\
00000000142/1.65777114258247593e-013
params=-0.173894466994232/-0.3000579851600044/384.00004/2500.2333/2048.0\
0012/768.00008/2500.01536/32.01536/18435/5 float=y maxiter=2048
inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436
colors=20007A<20>0bo0cq0es<2>0jy0kz0jy<24>09C08A068<2>022000211<24>oiQqj\
RslS<3>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>000<2\
5>iiijjjlll<3>sss<25>BBB999777<2>222000012<2>068
}
Mandala2 { ; 5*many_mods
; Albrecht Niekamp May,03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult239.frm
formulaname=multifrac_239 ismand=y function=exp/exp/exp passes=t
center-mag=4.44089e-016/-2.22045e-016/0.5706667
params=-0.1738944669942329/-0.3000579851680044/384.00001/256.0076/256038\
4.00008/1536.0256/768.01536/5120.01024/38888/2 float=y maxiter=3072
inside=maxiter outside=tdis logmap=yes periodicity=0 rseed=-2436
colors=200U00<9>A00<4>000<25>iiijjjlll<3>sss<25>BBB999777<2>222000012<24\
>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A9687\
5<3>000400<23>o00q00s00<3>z00<15>W00
}
---------------------------start-frm---------------------------------------
FRM:Multifractal { ; Albrecht Niekamp Apr, 03
;only integers as first input, second input 5 digits to the right
;real(p2) factor1,border1
;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits
;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison)
;imag(p3) factor2,border2
;real(p4) maxiter2,factor3
;imag(p4) border3,maxiter3
;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2
; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1
; optional basic frm2: out-nbr 1digit in-nbr 1digit 3_both +5_shape
;imag(p5) 1digit : 1_iter1reset 2_iter2reset 3_both +5_shape effect
; 2digits : many_mods multipl. shutoff +10_in/out1 +20_inout2 +30_both
; optional input2: frequency_2digits level_2digits amplitude_2digits
;
d=real(p2)
fac1=trunc(d)
b1=(d-fac1)*100000
;
d=imag(p2)
da=(d<0)
if (da)
d=-d
endif
mi1=trunc(d)
d=round((d-mi1)*10000)
p6=trunc(d/100)/10
d=d-1000*p6
if (da)
p6=-p6
endif
p7=d/10
;
d=real(p3)
ba=trunc(d)
mm=round((d-ba)*100000)
;
d=imag(p3)
fac2=trunc(d)
b2=(d-fac2)*100000
;
d=real(p4)
mi2=trunc(d)
fac3=round((d-mi2)*100000)
;
d=imag(p4)
b3=trunc(d)
mi3=round((d-b3)*100000)
;
da=real(p5)
t=(da<0)
if (t)
da=-da
endif
start=2-t
dd=trunc(da)
if (dd<5)
start=0
endif
vb=(dd==3)+(dd==4)
da=round((da-dd)*100)
d=trunc(dd/10000)
vb=(d==3)+(d==4)+vb
dd=dd-d*10000
d=trunc(dd/1000)
or1=(d>5)
d=d-5*or1
vv1=(d==3)
vv2=(d==4)
dd1=(d==2)+(d==4)
dd=dd-d*1000
d=trunc(dd/100)
or2=(d>5)
d=d-5*or2
vv3=(d==3)
vv4=(d==4)
dd2=(d==2)+(d==4)
dd=dd-d*100
d=trunc(dd/10)
inr1=(d>5)
d=d-5*inr1
v1=(d==3)
v2=(d==4)
d1=(d==2)+(d==4)
dd=dd-d*10
d=trunc(dd)
inr2=(d>5)
d=d-5*inr2
v3=(d==3)
v4=(d==4)
d2=(d==2)+(d==4)
d=trunc(da/10)
ab=(d>=5)
d=d-5*ab
da=da-10*d
bb1=(d==1)
bb2=(d==2)
d=da
ab=(d>=5)
d=d-5*ab
ab1=(d==1)
ab2=(d==2)
;
d=imag(p5)
dd=trunc(d)
d=round((d-dd)*1000000)
le=(d>10000)
da=trunc(dd/10)
so1=((da==1)+(da==3)==0)
so2=((da==2)+(da==3)==0)
dd=dd-10*da
wo=(dd>=5)
dd=dd-5*wo
ir1=(dd==1)+(dd==3)
ir2=(dd==2)+(dd==3)
if (le)
freq=round((trunc(d/10000))*10) ;frequency_lake effect by S.Gallet
d=d-freq*1000
level=(trunc(d/100))/100 ;water level
d=d-level*10000
ampl=d/100 ;amplitude of the wave
angle=real(rotskew*pi/180)
t=exp(-flip(angle))
h=1/real(magxmag)
q=h/0.75*imag(magxmag)
tanskew=tan(imag(rotskew*pi/180))
w=2*q*t
v=2*h*(tanskew+flip(1))*t
z3rd=center+(-q-h*tanskew-flip(h))*t
z=pixel-z3rd
s=imag(conj(w)*z)/imag(conj(w)*v)
if (s<=level)
da=level-s
z=z+2*da*(1+ampl*sin(freq*da^0.2))*v
endif
z=z+z3rd
endif
if (ismand)
if (vb)
c=0.4*log(sqr(pixel^mm))
z=z*le
else
c=z*le+pixel*(le==0)
z=0
endif
else
c=p1
z=z*le+pixel*(le==0)
endif
t=0
d3=(ismand==0)
u=d3
:
if (vb)
if (d3)
z=(z*z-real(c))^(z*u+imag(c)) ;frm: Albrecht Niekamp
else
z2=fn1(z)+c ;frm: Many_mods Linda Allison
sqz2=cos(z2)
z=c*(1-sqz2)/(1+sqz2)
endif
else if (ab)
z=z*z+c+c*c-p7 ;frm: Pusk s Istv n
else
z2=z*z ;frm: Pusk s Istv n modified
z=z2*z2+(p6+u)*z2+c-p1*(d3==0)
endif
bo=|z|
If (wo)
t=t+1
if ((t<mi1)+(bo>b1))
u=2*(fn1(t/fac1))
if (ismand)
z=z*u
if (vb)
c=0.4*log(sqr(pixel^mm))
else
c=z*le+pixel*(le==0)
endif
else
z=z*le+pixel*(le==0)
c=p1*u
endif
wo=0
if (ir1)
t=0
endif
endif
elseif (start)
t=t+1
if (start==2)
if (bo>b2)
u=2*(fn2(t/fac2))
rs=or1
ab=bb1
if (dd1)
if (rs)
z=pixel
endif
c=p1*u
vb=vv2
d3=vb
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=vv1
if (vb)
if (so1)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
endif
start=1
endif
elseif (t>mi2)
u=2*(fn2(t/fac2))
rs=inr1
ab=ab1
if (d1)
if (rs)
z=pixel
endif
c=p1*u
vb=v2
d3=vb
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=v1
if (vb)
if (so1)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
endif
endif
start=1
if (ir2)
t=0
endif
endif
elseif (start==1)
if (bo>b3)
u=2*(fn3(t/fac3))
ab=bb2
rs=or2
if (dd2)
if (rs)
z=pixel
endif
c=p1*u
vb=vv4
d3=vb
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=vv3
if (vb)
if (so2)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
endif
start=0
endif
elseif (t>mi3)
u=2*(fn3(t/fac3))
ab=ab2
rs=inr2
if (d2)
if (rs)
z=pixel
endif
c=p1*u
vb=v4
d3=vb
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=v3
if (vb)
if (so2)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
endif
endif
start=0
endif
endif
endif
bo<=ba
}