返回列表 回复 发帖
Carr1605.gsp (36.09 KB)
扫一图:
未命名.jpg
Carr1997(XAXIS) {
; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*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)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ELSEIF (iter==l4)
    z = 0, c = c4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 1997"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}
制作过程视频在这里:
http://u.115.com/file/f6336e267#
Carr1997(XAXIS).gsp (34.49 KB)
重调色彩,扫几幅图:
Carr1997.jpg
Carr1997(1).jpg
改变等势圈形状,再扫图:

未命名.jpg (46.88 KB)

未命名.jpg

Carr1880 {
; Updated for UF2 by Erik Reckase, March 2000
init:
  op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*.924))
  c=1/(pixel-sin(op)-exp(2*op))
loop:
  z=z*z+c+(-.6,.05)
bailout:
  |z| <= 4
default:
  title = "Carr 1880"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (-1,0)
}
制作过程的视频地址:
http://u.115.com/file/f629abfa21#
Carr1880.gsp (26.12 KB)
以上分形,均选自UF著名系列中的一些典型的具有代表性的作品,一通百通,你可以再选其余的,独自操作,熟能生巧后,你就成大师级的人物了。
Carr1880这分形,初看不怎样,但放大后,扫出的图缤纷色彩,你先在UF中放大看看,确实美。我扫Carr1880一图:
Carr1880.jpg
利用76楼已作好的Carr1997(XAXIS) 快速造作Carr1994(XAXIS)分形:
Carr1994(XAXIS) {
; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=1/pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z
  l1=round(real(p1)), l2=round(imag(p1)), l3=round(real(p2))
  float bailout=16, int iter=0
(红色式子在原Carr1997(XAXIS)中是z=c=pixel)loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
(此式,在原Carr 1997中,是|real(z)|),此步可产生不同的等势曲线。两者除加色部分不同外,其余代码没什么区别,所以利用已造好的文件,只要改变这二步算式,其余原封不动,即可得到Carr1994分形。太省事了!!)

default:
  title = "Carr 1994"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (3,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limit 3"
    default = (200,0)
    hint = "0 < Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results ( Im(P2) not used )"
  endparam
}
http://u.115.com/file/f681a7d044#
利用Carr1997(XAXIS)造Carr1994(XAXIS).gsp (57.03 KB)
上楼文件扫出的图片:
未命名.jpg
81# 柳烟


赞一个,最近扫出的图形别具一番风味。最近迷于量产u盘很久没扫图形了。
榕坚 发表于 2011-2-14 16:59
量产u盘,还第一次听说,这是如何玩的?
Carr2000这个分形,大家看看与前面的那个视频类似,仿照造之即可。该分形不再制作视频,制作视频颇麻烦的,大家有何问题,可发在这,大家探讨。我扫一张图片:
未命名.jpg
返回列表