changxde

下载 (22.82 KB)

2011-1-10 20:35

carr1964
仔细观察还是和UF不一样的。

changxde

还是要考虑终止循环。

changxde

UF中的carr1958缩小到全景后，再放大缩小，可得到下面几种不同的全景图，原因何在。不知画板如何。

changxde

又一副不同的结果（还是1958）。

changxde

1958的结构是对称的

changxde

与64#同...

changxde

UF程序是
Carr1958 (XYAXIS) { ; Updated for UF2 by Erik Reckase, March 2000
                    ; Modified Sylvie Gallet frm.   REVISED 4/12/96
                    ; iter <= limit ==> Mandelbrot set of  z^7+c
                    ; iter >  limit ==> Newton's method applied to  z^6-1 = 0
init:
  op = 1/pixel, z = 1/(pixel-sin(op)-tan(op))
  c = 1/(pixel-conj(op)-flip(op))
  float b1=64, float b2=.000001, zn=pixel
  float limit = real(p1), float iter = 1
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  n = z^6-1
  IF (iter<limit)
    z = z*n + z + c + (-.7456,.2)
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      d = 0
    ELSE
      d = 4*z^5
      z = z - n/d
    ENDIF
    float zfinal = b2
    float bfinal = |n|
  ENDIF
  iter = iter+2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1958"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}
检查一下为什么会是这样

changxde

72# 榕坚
能把其他几个图案都做出来么？