返回列表 回复 发帖
bwp24 {
init:
  z = @InitValue
loop:
  z = (z ^ @Exponent + #pixel) / (@Value + #pixel)
bailout:
  |z| < @Bailout  
default:
  title = "BWP 24"
  param InitValue
    caption = "Initial Value"
    default = (0, 0)
  endparam
  param Exponent
    caption = "Exponent"
    default = (2, 0)
  endparam
  param Value
    caption = "Value"
    default = (1, 0)
  endparam
  param Bailout
    caption = "Bailout Value"
    default = 4.0
  endparam
switch:
  type = "bwp25"
  Seed = #pixel
  Exponent = @Exponent
  Value = @Value
  Bailout = @Bailout
}

BWP24.gsp (17.88 KB)
未命名5.JPG
2010-8-20 11:48
a115 {
;Natural symmetric fractals
init:
  z = c = #pixel
  if @modeJ == "Mandel"
   ;z = @seed   ;optional settings for
   ;c = #pixel  ;mandel mode
  endif
  if @modeM == "Julia"
   z = pixel   ;Now julia mode is active
   c = @seed
  endif
loop:
  z=@fn1(@fn2(z*c)^@p2)^@p1 / @fn3(@fn4(c*z)^@p4)^@p3
  z=z^@p5*c
bailout:
        |z| < @bailo
default:
  param modeM  ;Mode holder
    caption="switchmode"
    enum = "Mandel""Julia"
    default = 0
    enabled = false
  endparam
  param modeJ  ;Mode holder
    caption="switchto"
    enum = "Mandel""Julia"
    default = 1
    enabled = false
  endparam

float param bailo
        caption="bailout"
  default = 50
endparam
func fn1
        default = sin()
endfunc
float param p1
  caption="powerFn1"
  default=0
endparam
func fn2
        default = asin()
endfunc
float param p2
  caption="powerFn2"
  default=1
endparam
func fn3
        default = sin()
endfunc
float param p3
  caption="powerFn3"
  default=1
endparam
func fn4
        default = sqr()
endfunc
float param p4
  caption="powerFn4"
  default=1
endparam
float param p5
  caption="powerOfZ"
  default=1
endparam
param seed
  caption = "Seed"
  visible=(@modeM == "Julia")
  default = (1,0)
endparam
switch:
  type= "a115"
  seed= #pixel
  bailo=bailo
  modeJ=@modeM ;Everytime when switched occured
  modeM=@modeJ ;values of modeM and modeJ will be
  fn1=fn1      ;exchanged.
  p1=p1
  fn2=fn2
  p2=p2
  fn3=fn3
  p3=p3
  fn4=fn4
  p4=p4
  p5=p5

}
mset1.jpg
2010-8-26 00:58

由于误读了程序中的一个细微地方,没造出UF中的那图,但造出的图仍然美不胜收。
a115分形的变种.gsp (17.57 KB)
接着造,仍未达目的,但扫出这张,也美,那里出问题,还不知。
mset1.jpg
2010-8-26 01:27
23# 柳烟


问题是否出在那个asin函数上,复数的反三角是怎么定义的呢?
24# 榕坚
我曾用此站上的老师造的此工具,用来作其他的分形,没问题呀。
UF的效果图是这样的:
未命名.JPG
2010-8-30 00:46
这个代码很是奇怪,那个@seed根本没有作用。面板上的开关项有些是灰色不能选择的,读代码可不能按步就班。
我感觉到代码中给出的一长串函数表达式有问题.
28# 柳烟


表达式应该没有问题,我试过了。就是Z与C的问题了,还有就是visible=(@modeM == "Julia")这个代码可能就是造成面板上开关项的灰色。
上午试了一下出来的结果还有点象,只是有些空白而且中间的圆圈没有连完整。接下来想把空白弄掉,就把隐藏的点显示出来想继续修改,结果跳出一个几何画板内部文件出错,眼睁睁地看着弄了一个上午的文件泡汤了。下午继续从头开始弄了两遍都是与楼主类似的结果。感到莫名其妙。
    谁有什么好办法可以解决几何画板跳出出错对画框后类似office那样可以恢复的,我已经遇到好多次了。都是在显示隐藏的点时出现的,特别是当要显示合并后的隐藏点时经常出问题。我用的是英文5.01版
捕获a115.JPG
捕获1.JPG
捕获2.JPG
返回列表