Hi,
phantastic zooming guaranteed!
Fractal greetings,
Al.
-------------------------start-par-----------------------------------------
Volcano { ; Time 2.07.11.52
; Albrecht Niekamp June, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult242.frm
formulaname=multifractal_4 ismand=y function=exp/exp/exp/sin
passes=t
center-mag=-1.23168781966593200/+0.12096646185174940/4495980/1/-17.49999\
99991595914/-3.40947790139489726e-009
params=-0.8469801934873501/0.1406598101748711/12812.00011/40.3214026052/\
2048.02048/384.000008/384.00024/128.0076800000001/512.0076800000001/768.\
0076800000001 float=y maxiter=2048 inside=maxiter outside=tdis
logmap=4 periodicity=0 rseed=-2436
colors=200ZVI<7>niQpjRrlS<3>ysX<25>BB7996775<3>000<24>n00p00r00<3>y00<25\
>B00900700<3>000<2>455677899ABBBCC<18>hiiijjkll<3>rss<21>HIIFGGEFF<3>677\
455344122000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000111<15>XUH
}
Down_under { ; Time 1.58.44.34
; Albrecht Niekamp June, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult242.frm
formulaname=multifractal_4 ismand=y function=exp/exp/exp/sin
passes=t
center-mag=-1.23169094319349200/+0.12096267609571690/224799/1/-17.499999\
9990956674/-8.80199038655327115e-010
params=-0.8469801934873501/0.1406598101748711/12812.00011/40.3214026052/\
2048.02048/384.000008/384.00024/128.0076800000001/512.0076800000001/768.\
0076800000001 float=y maxiter=2048 inside=maxiter outside=tdis
logmap=4 periodicity=0 rseed=-2436
colors=200996<3>121000300<23>n00p00r00<3>y00<25>B00900700<3>000<2>455677\
899ABBBCC<18>hiiijjkll<3>rss<21>HIIFGGEFF<3>677455344122000<25>0bo0cq0es\
<3>0kz<25>09C08A068<2>022000111<24>niQpjRrlS<3>ysX<25>BB7
}
Three_in_one { ; Time 1.32.14.39
; Albrecht Niekamp June, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult242.frm
formulaname=multifractal_4 ismand=y function=exp/exp/exp/sin
passes=t
center-mag=-1.23278506460602800/+0.12137156609200910/561.9975/1/-85.0000\
000000003553/4.45664338766249557e-013
params=-0.8469801934873501/0.1406598101748711/12812.00011/40.3214026052/\
2048.02048/384.000008/384.00024/128.0076800000001/512.0076800000001/768.\
0076800000001 float=y maxiter=2048 inside=maxiter outside=tdis
logmap=4 periodicity=0 rseed=-2436
colors=2000bo<3>0hw0jx0kz<25>09C08A068<2>022000111<24>niQpjRrlS<3>ysX<25\
>BB7996775<3>000<24>n00p00r00<3>y00<25>B00900700<3>000<2>455677899ABBBCC\
<18>hiiijjkll<3>rss<21>HIIFGGEFF<3>677455344122000<24>0`m
}
Above_and_below { ; Time 1.06.53.23
; Albrecht Niekamp June, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult242.frm
formulaname=multifractal_4 ismand=y function=exp/exp/exp/sin
passes=t
center-mag=-1.23177131869359900/+0.12093733379787740/11239.95/1/-17.4999\
999999981881/2.76966574674908372e-011
params=-0.8469801934873501/0.1406598101748711/12812.00011/40.3214026052/\
2048.02048/384.000008/384.00024/128.0076800000001/512.0076800000001/768.\
0076800000001 float=y maxiter=2048 inside=maxiter outside=tdis
logmap=4 periodicity=0 rseed=-2436
colors=0001221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFl\
YGn_Gp`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>25\
4243121000001023025047049<5>0BL0DN0DP<4>0KZ0L`0Mb0Nd0Of0Qh<3>0Up4Yr8atCg\
vGkxKqz<3>4_s0Vq0Uo<12>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R0LT0N\
V0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y0SW0R\
U0O<5>I0FG0EE0CC0A<3>304102010<4>0B10D10F10H20J20L20N2<2>0T40V40X3<3>0d4\
0f50h5<3>0p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C2\
0A1081<3>000010
}
View_frm_the_top { ; Time 0.44.18.06
; Albrecht Niekamp June, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult242.frm
formulaname=multifractal_4 ismand=y function=exp/exp/exp/sin
passes=t
center-mag=-1.04386/0.626322/21.95303/1/-57.4999999999999574/-1.26836041\
669520228e-013
params=-0.8469801934873501/0.1406598101748711/12812.00011/40.3214026052/\
2048.02048/384.000008/384.00024/128.0076800000001/512.0076800000001/768.\
0076800000001 float=y maxiter=2048 inside=maxiter outside=tdis
logmap=4 periodicity=0 rseed=-2436
colors=000A0B<6>X0a_0dc0h<3>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2o\
a0wc<11>2TG2RE3OC<3>4D3<17>kkammcpoe<3>zwm<6>cYO`UKYQG<3>KA0000<43>000<4\
>000330<11>110110110<3>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci\
0Dl0F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000304708
}
The_hat2 { ; Time 0.19.22.94
; Albrecht Niekamp June, 03
; Version 2002 Patchlevel 5
reset=2002 type=formula formulafile=mult242.frm
formulaname=multifractal_4 ismand=y function=exp/exp/exp/sin
passes=t
center-mag=-0.958374/0.132535/1.404994/1/-90/-1.23373533611470521e-014
params=-0.8469801934873501/0.1406598101748711/12812.00011/40.3214026052/\
2048.02048/384.000008/384.00024/128.0076800000001/512.0076800000001/768.\
0076800000001 float=y maxiter=2048 inside=maxiter outside=tdis
logmap=4 periodicity=0 rseed=-2436
colors=000<3>0PP0VV0``<3>0zz<3>MawRWvXQv<3>r0r<3>X0XS0SM0M<3>000<43>000<\
3>000111333<23>nnnppprrr<3>zzz<25>CCCAAA888<2>222000000<33>000000000<3>0\
00Z0AU00<3>d00g00j00m00<3>c0P`0VZ0`W0fT0m<3>I0MF0FA0A505000<39>qqqsssttt\
<3>zzz000
}
----------------------------------start-frm--------------------------------
FRM:Multifractal_4 { ; Albrecht Niekamp 110603
;only integers as first input, second input 5 digits to the right
;real(p2) 5digits: shape, outside, in1, in2, in3
; 0_off 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset digit1: +5_warp
; input2 : five digits frm2 use : 0_no 1_yes
;imag(p2) (-)digit1 : many_mods multipl. off 1_out 2_in1 3_in2 4_all
; digit2 : iter-reset 1_out 2_in1 3_in2 4_all
; input2 : many_mods_2digits frm1_2digits frm2_2digits bees_4digits
;real(p3) many_mods bailout, bailout
;imag(p3) shape : factor (fn1), outside : border-in
;real(p4) outside : factor (fn2), border-out
;imag(p4) maxiter1, factor1 (fn2)
;real(p5) maxiter2, factor2 (fn3)
;imag(p5) maxiter3, factor3 (fn4)
;
da=real(p2)
dd=trunc(da)
da=round((da-dd)*100000)+11111
d=trunc(dd/10000)
ex0=d>5
d=d-5*ex0
vb=(d==3)+(d==4)
dd=dd-d*10000
d=trunc(dd/1000)
ex1=d>0
dd=dd-d*1000
rs1=d>5
d=d-5*rs1
v1m=(d==3)
v1j=(d==4)
dd1=(d==2)+(d==4)
d=trunc(dd/100)
ex2=d>0
dd=dd-d*100
rs2=d>5
d=d-5*rs2
v2m=(d==3)
v2j=(d==4)
dd2=(d==2)+(d==4)
d=trunc(dd/10)
ex3=d>0
dd=dd-d*10
rs3=d>5
d=d-5*rs3
v3m=(d==3)
v3j=(d==4)
dd3=(d==2)+(d==4)
ex4=dd>0
rs4=dd>5
dd=dd-rs4*5
v4m=(dd==3)
v4j=(dd==4)
dd4=(dd==2)+(dd==4)
tt=ex0+ex1+ex2+ex3+ex4
;
d=trunc(da/10000)
ab=(d==2)
da=da-d*10000
d=trunc(da/1000)
ab1=(d==2)
da=da-d*1000
d=trunc(da/100)
ab2=(d==2)
da=da-d*100
d=trunc(da/10)
ab3=(d==2)
da=da-d*10
ab4=(da==2)
;
d=imag(p2)
t=d<0
if (t)
d=-d
endif
dd=trunc(d)
d=round((d-dd)*10000000000)
da=trunc(dd/10)
so1=((da==1)+(da==4)==0)
so2=((da==2)+(da==4)==0)
so3=((da==3)+(da==4)==0)
dd=dd-10*da
ir1=(dd==1)+(dd==4)
ir2=(dd==2)+(dd==4)
ir3=(dd==3)+(dd==4)
;
mm=trunc(d/100000000)
d=d-mm*100000000
p6=trunc(d/1000000)/10
d=d-p6*10000000
if (t)
p6=-p6
endif
p7=trunc(d/10000)/10
d=d-p7*100000
p8=trunc(d/100)/100
d=d-p8*10000
p9=d/100
;
d=real(p3)
mb=trunc(d)
ba=(d-mb)*100000
;
d=imag(p3)
sfac=trunc(d)
b1=(d-sfac)*100000
b0=b1/2
;
d=real(p4)
ofac=trunc(d)
b2=(d-ofac)*100000
;
d=imag(p4)
mi1=trunc(d)
fac1=(d-mi1)*100000
;
d=real(p5)
mi2=trunc(d)
fac2=(d-mi2)*100000
;
d=imag(p5)
mi3=trunc(d)
fac3=(d-mi3)*100000
;
bg=((ab+vb)==0)
bg1=((ab1+v1j)==0)
bg2=((ab2+v2j)==0)
bg3=((ab3+v3j)==0)
bg4=((ab4+v4j)==0)
;
if (ismand)
z=0
if (vb)
c=0.4*log(sqr(pixel^mm))
else
c=pixel
endif
else
if (bg)
c=p9
else
c=p1
endif
z=pixel
endif
t=0
d3=(ismand==0)
u=d3
:
bo=z
If (tt)
t=t+1
if ((ex0)&&bo>b0)
u=2*(fn1(t/sfac))
if (ismand)
z=z*u
if (vb)
c=0.4*log(sqr(pixel^mm))
ba=mb
else
c=pixel
endif
else
z=pixel
if (bg)
c=p9*u
else
c=p1*u
endif
endif
ex0=0
tt=tt-1
elseif ((ex1) && bo>b1 && bo<b2)
u=2*(fn2(t/ofac))
rs=rs1
ab=ab1
if (dd1)
if (rs)
z=pixel
endif
vb=v1j
d3=1
if (bg1)
c=p9*u
else
c=p1*u
endif
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=v1m
if (vb)
if (so1)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
ba=mb
endif
endif
if (ir1)
t=0
endif
ex1=0
tt=tt-1
elseif ((ex2) && t>mi1)
u=2*(fn2(t/fac1))
rs=rs2
ab=ab2
if (dd2)
if (rs)
z=pixel
endif
vb=v2j
if (bg2)
c=p9*u
else
c=p1*u
endif
d3=1
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=v2m
if (vb)
if (so2)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
ba=mb
endif
endif
if (ir2)
t=0
endif
ex2=0
tt=tt-1
elseif ((ex3) && t>mi2)
u=2*(fn3(t/fac2))
ab=ab3
rs=rs3
if (dd3)
if (rs)
z=pixel
endif
vb=v3j
if (bg3)
c=p9*u
else
c=p1*u
endif
d3=1
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=v3m
if (vb)
if (so3)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
ba=mb
endif
endif
if (ir3)
t=0
endif
ex3=0
tt=tt-1
elseif ((ex4) && t>mi3)
u=2*(fn4(t/fac3))
ab=ab4
rs=rs4
if (dd4)
if (rs)
z=pixel
endif
vb=v4j
if (bg4)
c=p9*u
else
c=p1*u
endif
d3=1
else
d3=0
z=z*u
c=z
if (rs)
z=0
endif
vb=v4m
if (vb)
if (so2)
mm=mm+mm
endif
c=0.4*log(sqr(pixel^mm))
ba=mb
endif
endif
ex4=0
tt=tt-1
endif
endif
if (vb)
if (d3)
z=(z*z-real(c))^(z*u+imag(c))
else
z2=fn1(z)+c ;Linda Allison
q=cos(z2)
z=c*(1-q)/(1+q)
endif
elseif (ab)
z=z*z+c+c*c-p7 ;Pusk s Istv n
elseif (d3)
z1=fn1(z)-c ;Ray Girvan
z2=z1^p8-1
z3=p8*(z1^(p8-1))
z=z-(z2/z3)
else
z2=z*z ;Pusk s Istv n
z=z2*z2+(p6+u)*z2+c-p1
endif
|z|<=ba
}
--------------------------------end---------------------------------