i have discovered a fractal formula that looks strikingly like an interference pattern of a hologram... can this be converted to a 3-d-image? has anyone heard of this before? sorry im new here and uneducated but intensely curious and relatively bright i think
Fractal1 {
fractal:
title="Fractal1" width=640 height=480 layers=1 resolution=720
credits="JAMES;1/3/2006"
layer:
method=multipass caption="Background" opacity=100
mapping:
center=0/0 magn=0.0009765625
formula:
maxiter=100 percheck=off filename="ldm.ufm" entry="DM0" p_p1=0.5/0.0
p_Op1=Addition p_Op2=Multiplication p_r1=None p_je=yes p_seed=0/0
p_bailout=4.0 f_fn1=cotan f_fn2=sqr f_fn3=cabs f_fn4=recip
inside:
transfer=none
outside:
transfer=linear
gradient:
smooth=yes rotation=-428 index=-328 color=16121855 index=-228
color=46591 index=-128 color=156 index=-428 color=8716288
opacity:
smooth=no index=0 opacity=255
}
ldm.ufm:DM0 {
;100 simple formulas rolled into 1
init:
z = @fn3(pixel)
loop:
if (@je == true)
z = @fn4(z^2) + @seed
endif
if @Op1 == 0
pp1 = z + p1
elseif @Op1 == 1
pp1 = z - p1
elseif @Op1 == 2
pp1 = z * p1
elseif @Op1 == 3
pp1 = z / p1
else
pp1 = z ^ p1
endif
if (@r1 == 1 || @r1 == 3)
if pp1 == 0
pp1 = 1e-20
endif
pp1 = 1/pp1
endif
if @Op2 == 0
pp2 = p1+fn1(fn2(pp1))
elseif @Op2 == 1
pp2 = p1-fn1(fn2(pp1))
elseif @Op2 == 2
pp2 = p1*fn1(fn2(pp1))
elseif @Op2 == 3
pp2 = p1/fn1(fn2(pp1))
else
pp2 = p1^fn1(fn2(pp1))
endif
if (@r1 == 2 || @r1 == 3)
if pp2 == 0
pp2 = 1e-20
endif
pp2 = 1/pp2
endif
z=pp2
bailout:
|z|<=@bailout
default:
title="DM0"
method = multipass
periodicity = 0
param p1
caption="Parameter 1"
default=(0.5,0.0)
endparam
param Op1
caption = "Operator 1"
enum = "Addition" "Subtraction" "Multiplication" "Division" "Exponent"
hint = "P1 [Op2] fn1(fn2(z [Op1] P1))"
default = 0
endparam
param Op2
caption = "Operator 2"
enum = "Addition" "Subtraction" "Multiplication" "Division" "Exponent"
hint = "P1 [Op2] fn1(fn2(z [Op1] P1))"
default = 2
endparam
param r1
caption="Reciprocate"
enum = "None" "Recip Oper1" "Recip Oper2" "Both"
default = 0
endparam
param je
caption = "Julia Component"
default = false
endparam
param seed
caption = "Julia Seed"
default = (0,0)
endparam
param bailout
caption="Bailout"
default=4.0
endparam
func fn1
caption = "Function 1"
default = sinh()
endfunc
func fn2
caption = "Function 2"
default = sqr()
endfunc
func fn3
caption = "Function 3"
default = ident()
endfunc
func fn4
caption = "Julia Function"
default = ident()
endfunc
}
check it out it was created with ultrafractal