柳烟

OldPhoenix.gsp (27.36 KB)

下载次数: 3136

2011-2-5 20:16

上面是制作视频文件中，搞出的画板原文件。这是制作的视频：
http://u.115.com/file/f6ed74bad7#

柳烟

将就上面文件，扫几张图片：

下载 (34.1 KB)

2011-2-5 21:52

柳烟

下载 (39.29 KB)

2011-2-5 21:53

下载 (41.39 KB)

2011-2-6 09:03

柳烟

将此分形的6个改变逃逃参数计算法的test全部造在一个画板文件中，就象操作UF一样方便，是可行的。作为习作，大家可试试。
test6:

下载 (41.17 KB)

2011-2-6 09:05

试试向老师的工具箱中的夸张作色法，再弄一张。

下载 (49.89 KB)

2011-2-6 09:05

test4

下载 (40.41 KB)

2011-2-6 09:05

柳烟

sam.ufm中的范例。
sierpinskimod {
; Written by Luke Plant
; Modified by Frederik Slijkerman
; Modified by Samuel Monnier
; (Twist functions added)
init:
  complex z = #pixel
loop:
  IF (imag(z)>0.5)
    z = @f1(2*real(z) + flip(2*imag(z)-1))
（满足条件imag(z)>0.5时，执行此语句z = @f1(2*real(z) + flip(2*imag(z)-1))
，按此算出的点进行迭代。）  
ELSEIF (real(z)>0.5)
    z = @f2(2*real(z)-1 + flip(2*imag(z)))
（如果imag(z)>0.5不成立，但是real(z)>0.5成立，则执行此语句进行迭代）
ELSE
    z = @f3(2*real(z) + flip(2*imag(z)))
（如果条件imag(z)>0.5与条件real(z)>0.5都不成立时，则执行z = @f3(2*real(z) + flip(2*imag(z))) ，并按此进行迭代。上面的f1,f2,f3均为不同的复函数，面板上点选不同的复函数，则产生不同的复分形。）  
ENDIF

bailout:
  |z| < @bailout

default:
  title = "Twisted Sierpinksi Triangle"
  center = (0.4, 0.4)
  magn = 1.1538
  maxiter = 149
  method = multipass
  periodicity = 0
  param bailout
    caption = "Bailout value"
    default = 127
    min = 1
  endparam
  func f1
    caption = "Function 1"
    default = ident()
  endfunc
  func f2
    caption = "Function 2"
    default = ident()
  endfunc
  func f3
    caption = "Function 3"
    default = ident()
  endfunc
}
UF面板上的图，是当f1=f2=f3=ident(z)=z的情形。我下面的视频文件中，除造此外，再造一个f1=f2=f3=abs(z)=|x|+|y|i,为此，我弄一个开关，以产生这二种情形。

柳烟

42# xiaongxp
向老师工具箱中的HSV着色工具中的D是什么。另梅老师好象提供过一个关于HSV的网站，外国的，向老师知道不，我把网址搞丢了。

柳烟

视频文件如下：
http://u.115.com/file/f6466edb4c#
造视频时的原文件，附上：
sierpinskimod.gsp (23.87 KB)

下载次数: 2799

2011-2-6 21:18

柳烟

扫图两幅：

下载 (22.13 KB)

2011-2-6 23:12

学习灰度作色，扫之：

下载 (25.8 KB)

2011-2-6 23:12

柳烟

46# xiaongxp
非常感谢。

柳烟

位于alt.ufm系列中。这程序短，易解读，结合前面的介绍，没问题了。
Mandlebot_Alternating_Inv {
init:
  z = @Start
  int n = @Offset
loop:
  if n % @Times == 0
    z = (z^@Power) + (1 / pixel)
  endif
  n = n + 1
  z = (z^@Power) + pixel
bailout:
  |z| < @BailOut
default:
  title = "Alternating(Mandelbrot*n, Mandlebrot_Inv)"
  center = (-0.5, 0)
  maxiter = 250
  periodicity = 0
  method = onepass
  param @Power
    default = (2, 0)
  endparam
  float param BailOut
    default = 4
  endparam
  param @Start
    caption = "Starting Point"
    default = (0,0)
  endparam
  param @Times
    caption = "Times"
    min = 1
    default = 1
  endparam
  param @Offset
    caption = "Offset"
    min = 0
    default = 0
  endparam
}
如有不明白的地方，可提出，大家探讨，一同提高。