柳烟

看这个帖子，长学问。问好楼主。

柳烟

8# 柳烟

柳老师好，你的作品我也学了不少。
changxde 发表于 2010-5-27 19:39

呵呵，我是菜鸟，没弄几个月。在论坛上学了不少东西，也悟出了不少东西，大家彼此学习。我最希望的是这论坛上的朋友们大家携手，共创画板分形明天。所以我真诚希望朋友们有好的想法，与好的作品，无私奉献，大家不要藏着腋着。最好在美丽图形下，帖上源文件，方便坛友们学习。坛友们有问题请教时，能知道的给予解决，玩分形的人气旺，各人发明一点点（因为画板玩分形，这坛子是独一无二的），贡献一点点，对大家都有利。大家有什么要我柳烟帮忙的，我一定热诚服务。藏着腋着，没啥意思。
这论坛有几位大师我柳某深深佩服。我所知道的飞扬老师、向老师，梅老师几位，不愧是人民教师。向老师在他的大帖中，在大多数图片下都付上源文件，我从他的作品中，也学到不少东西，他也在我的帖子中丢过几句宝贵的话，让我进步。飞扬老师的粗论分形大帖，把我引入了分形的门槛，虽说路漫漫，毕竟走在这条路上来了，没有回头路。梅老师的帖子中的精典M集等文件，让我受益非浅，还有此人研究出的画板3D陷阱，也将源文件帖在论坛上，虽说对我们这些入门未久的人来说，或者深了点，或者看不懂，但随着岁月的流逝，说不定那天就看懂了也说不一定。单就这点不怕别人偷学技术，我就深为敬佩。玩分形的人越多，智慧越多，可以使我们在漫漫分形路上更快地达到目标，免得一人单打独斗，死很多脑细胞。当我们不久后成为高手时，让那些后学者除了佩服我们的才干外，也让它们感觉到大师的风范，在这里享受到浊世已绝灭的友谊的温暖。当然，你有保守技术的权利，没有非献出来的义务。我只是觉得这样对大家都有利，既然大师们都散发出无私的光辉，我们这些新学菜鸟，有什么好保守的呢？现在社会中，不是主张合作吗？因为爱迪生一个人搞发明的时代已经过去了，现在的发明都是多人合作的结果。
成就别人中，也就成就着我们自已！
问好各位同好。说不定我柳某那天不玩了，操起老本行，到原来的文学坛子上写诗著文，研究乾、坤、屯、蒙……哈哈！

柳烟

柳老师说的太好了，固步自封只能使自己更加落后。我是从feiyang老师的“粗论分形”发表一段时间后开始抱着试一试的感觉开始学习的，之前也有很多关于分形的源文件。我只看过后就算了，因为不能明白其做图原理。如果f ...
榕坚 发表于 2010-5-28 09:07

榕坚兄最近在你的分形奇图赏评中出的几个题,我在制作中得到了很大的提高,在此感谢你帖子中对程序中的英文的解释.我的英文除了认识二十几个英语字母外,差得很.我八O年高中毕业的.握手榕坚兄.

柳烟

对于复数分形，首先要考虑复变函数（或说复变换）F(z)在迭代Z=F(z)下是否有收敛域，收敛域的整体结构是否美观，局部结构是否美观，如何着色才能使其更美观，这每一个问题都需要理论的支持，但现在我缺乏理论，只是就 ...
changxde 发表于 2010-5-28 18:57

实践丰富理论，理论指导实践。说漫长也不漫长，说不漫长也漫长，勇于实践，勇于开拓，不怕困难，意志如钢就成。共勉共勉。

柳烟

我试了试此扫描框，不错。此扫描框挺新鲜，挺有意思，下载学习。问好常老师

柳烟

此扫描框好象没有到软件中的直角坐标系，这就好，免得坐标系障眼。
用新扫描框，将UF中的一分形的所有数据，整个抬进这新扫描框，扫图：

下载 (189.95 KB)

2012-4-26 00:26

将UF中的代码，用大刀阔斧砍掉后的精简代码作成，大家闲遐时可整整，颇有意思的。
gnd-slope-sierpinski2 {
; Based on a formula by Ramiro Perez
; Slope version by Gilles Nadeau, 2007
init:
  z1 = #pixel
  z2 = #pixel + @offset
  z3 = #pixel + flip(@offset)
  int done = 2

loop:

  IF ((imag(z1)>=.575*real(z1)) && (-.575*real(z1)<=imag(z1)))
    z1 = 2*z1-1i
  ELSEIF (real(z1)<=0)
    z1 = 2*z1+(.8660254, 0.5)
  ELSEIF (real(z1)>0)
    z1 = 2*z1+(-.8660254, 0.5)
  ELSE
    z1 = 2*z1
  ENDIF

  IF ((imag(z2)>=.575*real(z2)) && (-.575*real(z2)<=imag(z2)))
    z2 = 2*z2-1i
  ELSEIF (real(z2)<=0)
    z2 = 2*z2+(.8660254, 0.5)
  ELSEIF (real(z2)>0)
    z2 = 2*z2+(-.8660254, 0.5)
  ELSE
    z2 = 2*z2
  ENDIF

  IF ((imag(z3)>=.575*real(z3)) && (-.575*real(z3)<=imag(z3)))
    z3 = 2*z3-1i
  ELSEIF (real(z3)<=0)
    z3 = 2*z3+(.8660254, 0.5)
  ELSEIF (real(z3)>0)
    z3 = 2*z3+(-.8660254, 0.5)
  ELSE
    z3 = 2*z3
  ENDIF
  e1=  exp^(-cabs(z1))
  e2 =  exp^(-cabs(z2))
  e3 =  exp^(-cabs(z3))
  done = done + 1         ; increment iteration counter

  IF (modz > @bailout ||       \
      @everyiter ||            \
      done == 149 + 2)      ; done, or every iteration, or last
    ; determine continuous iteration (height) for each point
      vx = e2-e1
      vy = e3-e1
      vz = -@offset
      z = vx + flip(vy)         ; fudge z from vector
  ELSE               ; didn't compute z this time
    z = z1            ; use primary iteration value to keep                 ; periodicity working
  ENDIF
  IF (modz > @bailout)         ; we're done
    done = 0
  ENDIF

bailout:
  (done > 0)
default:
  title = "Slope Sierpinski Triangle II"
  center = (0.0, 0.0)
  magn = 1.1538
  maxiter = 149
  method = multipass
  periodicity = 0

  float param version
    default = 1.1
    visible = false
  endparam

  param bailout
    caption = "Bailout value"
    default = 127
    min = 1
  endparam

  param offset
    caption = "Orbit Separation"
    default = 0.01
    hint = "Defines how far apart the simultaneous orbits are.  Smaller \
            distances will produce more accurate results."
  endparam
  param everyiter
    caption = "Every Iteration"
    default = false
    hint = "If set, the surface normal will be computed at every \
            iteration.  If you are using a coloring algorithm which \
       processes every iteration, you will need this."
  endparam
}

柳烟

这几天试用这扫描框，感觉一个字：爽。但不知要放大一个复分形，如何定位点，比如定位于（0.233,1）

柳烟

馨扫描框铅垂的那个隐藏的单位点B一撇这步可减少，使扫描框更简洁。

柳烟

49# changxde
原来如此，那就保留此点。我发现，这扫描框与以前的扫描框相较，定位的坐标与放大倍数得到的图形与以前扫描框放大的图形不一致，如何调整参数，使其一致，这样，UF中的图形的定位与方大与GSP大致一致？

柳烟

调整了一下馨扫描框，定位放大与以前一致了。
馨扫描框调整.gsp (8.09 KB)

下载次数: 2570

2013-11-21 00:02