返回列表 回复 发帖
272# lnszdzg
[1-z2]/[z-z2cosZ]+CJ{

init:
  c =@e
  z=#pixel
loop:
  z1=z
  z2 = (1-z1^2)/(z1-z1^2*cos(z1))+c
  z=(1-z2^2)/(z2-z2^2*cos(z2))+c
bailout:
|z-z1| >= 0.00001
  default:
  title = "J"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\julia.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  param e
    caption = "M seed"
    default = (-1, 0)
    hint = "Use this parameter to create many different Julia sets. A good \
            way to set this parameter is with the Switch, Eyedropper, or \
            Explore features."
  endparam

  param bailout
    caption = "Bailout value"
    default = 120.0
    min = 1.0
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "This parameter defines how soon an orbit bails out while \
            iterating. Larger values give smoother outlines; values around 4 \
            give more interesting shapes around the set. Values less than 4 \
            will distort the fractal."
  endparam

}
bailout后面,这样的逃逸条件也行:|z|>10000&&|z-z1| >= 0.00001.J集里的圆柄不知如何让其消失,可能有高手知道,但不想教,只好在黑暗中再探索一阵子看能否碰巧了。
画板玩分形有几大毛病:1.迭代次数太受限;2.成图慢,特别是迭代次数大时的放大图,纯粹是与耐力比拼;3.搞一个分形化时多,调色太费周章……用程序造作分形,似乎优点多多。看到各位老师用编程法玩分形玩得风吼,也有点心动,但有点畏难情绪……
1.jpg
2015-1-29 08:39
277# lnszdzg
很有益探索,开阔了视野,我又有新的收获,谢谢。
289# xklppp
漂亮!请问复函数为何?
肖老师这几张彩图确实让人大饱眼福,漂亮。
298# xklppp
肖老师可要照顾好自已的身体啊,休息工作两不误。
239# 柳烟
此楼第二副图,是原来在UF中搞的,由于装机,硬盘中的分形文件由于误操作,毁了,找不到了。现在我重新在UF中造此M集,搞出的图中鱼的肛门处浑沌一片,得不到此图。那位高人,整一整,恢复一下我的 记忆,谢过再说。
静极光通达,寂照含虚空,
返回列表