返回列表 回复 发帖
这是大家熟悉的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
静极光通达,寂照含虚空,
将上楼按NovaMandel分形造之,令(z^2-1)(z^2-c^2)=0,得z=1或-1,z=c或z=-c,放大后,均可得小M。
定位于z=1,效果图如下
6.jpg
定位于z=c.得:
8.jpg
静极光通达,寂照含虚空,
此类分形确实漂亮,再扫一个:
12.jpg
静极光通达,寂照含虚空,
扫得一美图:定位:-0.1962680668423+0.039689218342819 I
放大倍数:34984.675
13.jpg
附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
20168290125M.gsp (15.83 KB)
静极光通达,寂照含虚空,
201608291107NovaMandel {
init:
    c=1/(5*#pixel)
     z=c
loop:

     zold=z
     z = z - (z^2-1)*(z^2-c^2) /(4*z^3-2*(c^2+1)*z)  + c
     bailout:
  |z-zold|>=@bailout

default:
  title = "201608291107NovaMandelNova (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
}
829.jpg
定位:-0.546532667247111135675+0.0027467262320658779639 I
放大倍数:1.4394026E10

90.jpg (22.75 KB)

90.jpg

静极光通达,寂照含虚空,
201608292056NovaMandel {
init:
   c=#pixel
   z=asin(c)
loop:
  zold=z
  z = z - (sin(z)-c) /cos(z)+c
bailout:
  |z-zold|>=@bailout
default:
  title = "201608292056NovaMandelNova (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
}
定位:0.727105830556525+0.0014871720962649 I
放大倍数:46776.449
Fractal2.jpg
静极光通达,寂照含虚空,
91.jpg
静极光通达,寂照含虚空,
2.jpg
3.jpg
静极光通达,寂照含虚空,
gnd-MandelJulia.gsp (15.1 KB)
静极光通达,寂照含虚空,
问柳老师好,画板论坛最近很少有人来了,太可惜了1
返回列表