返回列表 回复 发帖

闲扫怪异复分形

Function {
;Ronnie Jay
init:
  z=pixel^2
  f=z
  c=z
  sf=c
loop:
  zold=z
  z=((p1-1)*z^p1+@r)/(p1*z^(p1-1))
  z=z^@power+@seed/f+c-sf
  c=fn1(z)
  sf=fn2(z^c)



  bailout:
  |z-zold|>@bailout
default:
  title = "Variable fuction"

  magn=0.25
  maxiter=100


  func fn1
  caption="Varifunc 1"
  default=atanh()
  endfunc

  func fn2
  caption="Varifunc 2"
  default=cotanh()
  endfunc

  param bailout
  caption="Bailout"
  default=0.1
  endparam

  param r
  caption="Root Value"
  default =(1,0)
  endparam

  param p1
  caption="Exponent"
  default=(2,0)
  endparam

  param seed
  caption="Julia Seed"
  default= (-1.25,0)
  endparam

  param power
  caption="Init Power"
  default=(1,0)
  endparam

  param morph
caption="Morph to imag -Z"
default=false
endparam
无标题.jpg
  param invert
  caption="Z inversion"
  default=false
  endparam

}
经过几天奋战,堂试,整出了正品,新造了复变函数中双曲正切与反双曲余切工具,好象此坛中板友们的反双曲余切工具有些问题
Variable fuction.gsp (27.02 KB)
Variable fuction.jpg
新建图片.jpg
新建图片1.jpg
非正品分形,也十分好看
1910.jpg
1954.jpg
新建图片2.jpg
新建图片.jpg
06031318.jpg
非正品.gsp (24.72 KB)
问题找着了,原常老师分形工具中的atanh有问题,我重新造了该工具,则造的atanh工具,用常老师的工具造atanh(z^2)+c的M集,与UF造出的M集不象,而用我新造的atanh造该M集,与UF中的M集吻合
新建图片.jpg
新建图片1.jpg
新建图片2.jpg
23.jpg
atanh(z2)+c的M集20200603.gsp (19.72 KB)
上楼M集扫出
定位:-0.1888736301002+0.8791944715701 I
放大倍数:693.36677
2158.jpg
21592.jpg
0016.jpg
06040730.jpg
1522.jpg
HiskersBant {
Init:

z=pixel

c=pixel


Loop:


z=-c/z+p1
c=-c*z-p1


Bailout:
|z|<=@bail
Default:


param p1
caption="HB Parameter"
default=(0.27,0)
endparam

Fractal3.png
param bail
caption="Bailout"
default=1000000.0
endparam
}
这个代码多简单,可惜用画板造了五遍了,整来不对劲
按UF中的说法,这是M集
9# 柳烟
柳老师好,这是目前遇到的最简单最惊艳的模型了,它的J集更是无穷无尽:

001.jpg (103.45 KB)

001.jpg

002.jpg (149.81 KB)

002.jpg

返回列表