柳烟

这是大家熟悉的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
}

下载 (31.1 KB)

2016-8-27 22:57

柳烟

将上楼按NovaMandel分形造之，令（z^2-1）(z^2-c^2)=0,得z=1或-1,z=c或z=-c，放大后，均可得小M。
定位于z=1,效果图如下

下载 (23.13 KB)

2016-8-28 09:18

定位于z=c.得：

下载 (48.6 KB)

2016-8-28 09:18

柳烟

此类分形确实漂亮，再扫一个：

下载 (34.01 KB)

2016-8-28 09:18

柳烟

扫得一美图：定位：-0.1962680668423+0.039689218342819 I
放大倍数：34984.675

下载 (34.85 KB)

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中扫一张

下载 (47.06 KB)

2016-8-29 20:38

20168290125M.gsp (15.83 KB)

下载次数: 2461

2016-8-29 01:26

柳烟

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
}

下载 (50.8 KB)

2016-8-29 20:40

定位：-0.546532667247111135675+0.0027467262320658779639 I
放大倍数：1.4394026E10

柳烟

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

下载 (34.07 KB)

2016-8-29 21:55

柳烟

下载 (22.66 KB)

2016-11-10 10:54

柳烟

下载 (21.14 KB)

2016-11-10 10:55

下载 (25.11 KB)

2016-11-10 10:55

柳烟

gnd-MandelJulia.gsp (15.1 KB)

下载次数: 2287

2016-10-3 22:17

lnszdzg100

问柳老师好，画板论坛最近很少有人来了，太可惜了1