返回列表 回复 发帖
感谢向老师不厌其烦详细解说此工具的用法要义。工具完美方便实用,前面的CX扫描框的中心与坐标系原点中心合并的原因导致使用此工具操作上的一些麻烦,现将矩形框中心与坐标系中心分离,对原CX扫描框进行了更新,结果用起来更顺手了。大家可用用并验证,看看有无问题并提出改进建议,扫图一幅:
New.jpg
2014-7-25 23:12

CX扫描框更新(20140511).gsp (41.99 KB)
881# 柳烟
柳老师客气了,其实我从你的贴子和文件中学到了许多,例如多年来我一直没有搞清庞盘的原理,而你的“双曲几何学习工具征解”一下子让我悟出了其中的道理。
反演变换下的M集,见前面楼层向老师原创意。今将其编成UF代码,在UF中玩了一把,颇有意思的。将z^2+c中对c换成1/c,只不过是其特例。大家有兴趣,可将其代码拿到Uf中玩玩。
反演变换下的Mandelbrot {

init:
  z = @start
  a=real(@O)
  b=imag(@O)
  xc=real(14*#pixel)
  yc=imag(14*#pixel)
  x1=a+@r^2*(xc-a)/((xc-a)^2+(yc-b)^2)
  y1=b+@r^2*(yc-b)/((xc-a)^2+(yc-b)^2)
  m=x1+flip(y1)
loop:
  z = z^@power +m
bailout:
  |z| <= @bailout
default:
  title = "反演变换下的Mandelbrot"
  center = (1.5, 0)
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\mandelbrot.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  param start
    caption = "Starting point"
    default = (0,0)
    hint = "The starting point parameter can be used to distort the Mandelbrot \
            set. Use (0, 0) for the standard Mandelbrot set."
  endparam
  param power
    caption = "Power"
    default = (2,0)

  endparam
  param O
    caption = "O"
    default = (-2,0)

  endparam
param r
    caption = "r"
    default =2.00

  endparam
  float param bailout
    caption = "Bailout value"
    default = 123.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

}
New.jpg
2014-7-25 23:12
反演变换+“万花筒”变换
New.jpg
2014-7-25 23:13
浩渺星空,太漂亮了!
学习柳老师863#文件
New.jpg
2014-7-25 23:13
New.gif
2014-7-25 23:14

网络球.gsp (7.94 KB)
New.jpg
2014-7-25 23:14

J集8.5[点陷阱].gsp (11.57 KB)
889# xiaongxp


突发奇想:能否从一个圆出发按规则迭代出这些曲线来?
返回列表