返回列表 回复 发帖
有三种定位法
定位.jpg
2016-8-27 21:49
静极光通达,寂照含虚空,
好象也可定位为f(z)的零点,我正在UF中尝试,大家可研究看看。
静极光通达,寂照含虚空,
NovaMandel {
init:
    z =sqrt(1-#pixel)
loop:
    z=z^2+#pixel
    zold=z
    z = z - (z^3-1) / (3*z^2) + #pixel
bailout:
  |z - zold| > @bailout

default:
  title = "Nova (Mandelbrot)"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\nova.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  maxiter = 1000
  periodicity = 0
  center = (-0.5,0)
  magn = 1.5

  param bailout
    caption = "Bailout"
    default = 0.00001
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "Bailout value; smaller values will cause more \
            iterations to be done for each point."
  endparam


switch:
  type = "NovaJulia"
  seed = #pixel
  power = @power
  bailout = @bailout
  relax = @relax
}
此是复合函数,定位于z=0或者z=sqrt(1-c)或z=-sqrt(1-c)或者z=sqrt(-0.5-.866025403784439I-c)或者z=sqrt(-0.5-.866025403784439I-c)
静极光通达,寂照含虚空,
定位于z=0的情形
1.png
2016-8-27 22:13
静极光通达,寂照含虚空,
定位于z=sqrt(1-c)
2.png
2016-8-27 22:15
静极光通达,寂照含虚空,
定位于z=sqrt(-0.5-.866025403784439I-c)
3.png
2016-8-27 22:25
静极光通达,寂照含虚空,
这是大家熟悉的N集:
Mandel {
init:
    z=sqrt(1/6*(#pixel^2+1))
loop:
    zold=z
    z = z - (z^2-1)*(z^2-#pixel^2) /(4*z^3-2*(#pixel^2+1)*z)
bailout:
  |z - zold| > @bailout

default:
  title = "Nova (Mandelbrot)"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\nova.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  maxiter = 1000
  periodicity = 0
  center = (0,0)
  magn = 1.5

  param bailout
    caption = "Bailout"
    default = 0.00001
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "Bailout value; smaller values will cause more \
            iterations to be done for each point."
  endparam


switch:
  type = "NovaJulia"
  seed = #pixel
  power = @power
  bailout = @bailout
  relax = @relax
}
4.png
2016-8-27 22:57
静极光通达,寂照含虚空,
将上楼按NovaMandel分形造之,令(z^2-1)(z^2-c^2)=0,得z=1或-1,z=c或z=-c,放大后,均可得小M。
定位于z=1,效果图如下
6.jpg
2016-8-28 09:18

定位于z=c.得:
8.jpg
2016-8-28 09:18
静极光通达,寂照含虚空,
此类分形确实漂亮,再扫一个:
12.jpg
2016-8-28 09:18
静极光通达,寂照含虚空,
扫得一美图:定位:-0.1962680668423+0.039689218342819 I
放大倍数:34984.675
13.jpg
2016-8-28 09:19

附UF程序:
NovaMandel {
init:
    z=1
loop:
    zold=z
    z = z - (z^2-1)*(z^2-#pixel^2) /(4*z^3-2*(#pixel^2+1)*z)  + #pixel
bailout:
  |z - zold| > @bailout

default:
  title = "Nova (Mandelbrot)"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\nova.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  maxiter = 1000
  periodicity = 0
  center = (0,0)
  magn = 1.5

  param bailout
    caption = "Bailout"
    default = 0.00001
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "Bailout value; smaller values will cause more \
            iterations to be done for each point."
  endparam


switch:
  type = "NovaJulia"
  seed = #pixel
  power = @power
  bailout = @bailout
  relax = @relax
}
GSP中扫一张
4.jpg
2016-8-29 20:38

20168290125M.gsp (15.83 KB)
静极光通达,寂照含虚空,
返回列表