changxde

22# 柳烟
这方法可以使死灰不再复燃。

changxde

在UF中修改L1的值为300就得到与上面类似的图形

下载 (72.64 KB)

2010-12-15 15:18

changxde

把源程序修改一如下
Carr3202'(YAXIS) {
; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  d=log(1/pixel-conj(cos(1/pixel)))
  c=(pixel^3-conj(.1/pixel-flip(.01/pixel)))/7.5
  z=abs(pixel^12)-flip(.01/pixel)-conj(.1/pixel)+.3
  zmod = (-.7456,-.132) + flip(|d/80*pixel|)
  cmod = |c| + zmod
  c1=0.2*z^1.2,c2=0.3*conj(z)
  c3=0.45*flip(z),c4=0.675*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    cmod = |c1| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3202'"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}
加载图像和原图没有差别，然后放大图像就发生了变化，缩小是下图

changxde

下载 (44.04 KB)

2010-12-19 16:41

changxde

放大一下

下载 (46.11 KB)

2010-12-19 17:17

下载 (41.17 KB)

2010-12-19 17:29

changxde

下载 (35.86 KB)

2010-12-22 20:51

changxde

下载 (80.04 KB)

2010-12-22 21:05

changxde

下载 (36.43 KB)

2010-12-22 21:07

changxde

下载 (12.53 KB)

2011-1-8 17:00

changxde

下载 (22.27 KB)

2011-1-10 16:56