inRm

这个好看。

changxde

191#的谢氏图，在极坐标系即可。

下载 (13.01 KB)

2010-6-13 22:59

changxde

191#中的图2不知咋做

柳烟

191#中的图2不知咋做
changxde 发表于 2010-6-14 17:04

changxde老师的扫描法作谢氏三角形，方法新颖，下裁学习一下，感谢发放原文件，柳某有礼。

榕坚

柳老师说的没错，可变的参数非常多。变一下就有一个新花样，因此说一个简单的M集也不怕被人全部扫完了：

下载 (77.05 KB)

2010-6-20 17:49

榕坚

UF中的carr系列一直不敢问津，今天试作一个虽然不成功但感觉也不错：
Carr3527(YAXIS) {
; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op = pixel2^3
  b3a=.1+|.018/pixel2|, b2=op*cabs(pixel2+.125)^4
  b2a=b2^2+.004/pixel2, b3=b2a+|op|*b2*pixel2/2+b3a
  b3c=abs(b3^2.85)/flip(.035/pixel2)
  z=b3c-flip(.035/pixel2)^3.9-.005/pixel2+.068124
  zmod = (-.748823289672,-.1350036189)
  l1 = round(real(p1)),l2 = round(imag(p1))
  l3 = round(real(p2)),l4 = round(imag(p2))
  float bailout=16,int iter=0, float zro=0
loop:
  IF ((iter == l1) || (iter==l2) || (iter==l3) || (iter==l4))
    z = z*zro
  ENDIF
  z=z^2+zmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3527"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  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
}

榕坚

试一下把逃逸区都用等势线来画：

下载 (103.72 KB)

2010-8-8 19:04

xiaongxp

207# 榕坚
好一个高原湖泊——Mandelbrot湖!

榕坚

UF的色彩真是好：

榕坚

Z^3+C放大：