返回列表 回复 发帖

UF分形的画板实现6

dmj-PhoenixJulia {
;
; This type implements the Phoenix types discovered by
; Shigehiro Ushiki.  It is somewhat generalized over
; the FractInt implementation.  The general equation is
; of the form
;
;     z(n+1) = z(n)^a + c*z(n)^b + p*z(n-1)
;
; In FractInt, choices for b are restricted to a-1 and
; a-2.  This implementation allows arbitrary choices
; for both a and b.
;
; If a=2 and b=0 (classic Phoenix) then this type will
; work with the dmj-Smooth and dmj-Triangle coloring
; types.
;
init:
  complex y = (0,0)
  complex newz = (0,0)

  z = #pixel
  
loop:
  newz = z^@power1  +  z^@power2 * @seed  +  @induct * y
  y = z
  z = newz
  
bailout:
  |z| < @bailout
  
default:
  title = "Phoenix (Julia)"
  helpfile = "dmj-pub\dmj-pub-uf-phoenix.htm"
  maxiter = 1000
  center = (0,0)
  
  param seed
    caption = "Julia Seed"
    default = (0.56667,0)
    hint = "This is the Julia seed, a constant parameter which \
            defines the shape of the fractal."
  endparam
  param power1
    caption = "Primary Exponent"
    default = (2,0)
    hint = "Defines the primary exponent for the fractal.  The classic \
            Phoenix curve uses exponent 2."
  endparam
  param power2
    caption = "Secondary Exponent"
    default = (0,0)
    hint = "Defines the secondary exponent for the fractal.  The classic \
            Phoenix curve uses exponent 0."
  endparam
  param induct
    caption = "Phoenix Distortion"
    default = (-0.5,0)
    hint = "Sets how 'strong' the previous iteration's effect should be \
            on the fractal."
  endparam
  param bailout
    caption = "Bailout"
    default = 1.0e20
    hint = "Defines how soon an orbit bails out, i.e. doesn't belong \
            to the Phoenix set anymore."
  endparam

switch:
  type = "dmj-PhoenixMandel"
  bailout = @bailout
  power1 = @power1
  power2 = @power2
  induct = @induct
}
未命名.JPG
dmj-PhoenixJulia.gsp (22.74 KB)
上面这个分形,好几个月前,我在此坛发过征解一帖,有板友做出来了,并帖了原文件,我研究了原文件,但是不知里面是如何迭代的,问之,答得有些模糊。今天,我坚持实践第一的观念,干了一天,终于干出来了,高兴。胡乱定位,并放大,结果免强。
未命名1.JPG
未命名.JPG
放大单个凤凰,如下。
未命名1.JPG
柳老师的画板分形技术越来越好了,定位妙、色调炫,令人羡慕。
4# xiaongxp
谢过和老师褒奖,只是有点进步罢了。这段时间,对分形狂热的人们,怎么一下就冷却了呢,想起不久前盛况空前,让人心潮涌起,而今有些落寞。
CubicRoots-Julia {
; Ron Barnett, September 2000
; Another Newton with mini-mandelbrot like regions
; Based on the Cubic formula (Ron Barnett circa 1993)
init:
  #z = @init + #pixel
  oldz = 0
  a = @p1
loop:
  oldz = #z
  #z = (2*#z*#z*#z - #z*#z +a -2) / (3*#z*#z - 2*#z - 1)
bailout:
  |#z - oldz| >= @bailout
default:
  title = "Cubic Roots-Julia"
  maxiter = 1000
  center = (0, 0)
  magn = 12
  method = multipass
  periodicity = 0
  heading
    caption = "Cubic Roots-Julia"
  endheading
$ifdef VER40
  heading
    text = "This is a 'convergent' fractal that \
            has Julia-like regions."
  endheading
$else
  heading
    caption = "This is a 'convergent' fractal"
  endheading
  heading
    caption = "that has Julia-like regions"
  endheading
$endif
  param version
    caption = "Formula Version"
    default = 1.0
    hint = "You should never see this parameter; it's used internally to track \
        which version of the formula was used to create your image, so that \
        if a bug is found which breaks backwards-compatibility, the formula \
        can adapt transparently."
    visible = false
  endparam
  param bailout
    caption = "Bailout value"
    default = 0.000001
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.522375, -0.002875)
  endparam
  param init
    caption = "Iteration Initialization"
    default = (0.33,0)
  endparam
switch:
  type = "CubicRoots-Mandel"
  bailout = @bailout
  init = @init
}
未命名.JPG
未命名1.JPG
CubicRoots-Julia.gsp (24.91 KB)
6# 柳烟


如果分块着色会怎样呢?
5# 柳烟
台上是高手交流切磋,台下是我等端坐观赏。
放大一张。
未命名.JPG
8# inRm
多谢方老师观赏,否则,台上的我们这班演员不来劲。
返回列表