1234
返回列表 回复 发帖

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
1#
打印
tT
柳烟发表于 2010-8-17 07:14 | 只看该作者

UF分形中的画板实现第3集

未命名1.JPG
未命名2.JPG
未命名3.JPG
General_Sterling_18.gsp (110 KB)
收藏 分享 评分
回复 引用

订阅 TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
2#
柳烟发表于 2010-8-17 11:02 | 只看该作者
附UF中的代码：
General_Sterling_18 {

; Original: z=z-(z*z2+z2*c-z+c-zsin)/(3*z2+2*c*z-1-zcos)

init:
  float zds
  complex z1
  complex z2

if @usepixel
    z = #pixel*@seed
  else
    ;Original From Sterling
    z = @seed
  endif
  
loop:
  z1 = z
  z2 = z^2
  
  z = z - (@p1*z*z2+@p2*z2*#pixel-z+@p4*#pixel-@p3*@fn1(z))/(@p5*z2+@p6*#pixel*z-1-@p7*@fn2(z))
  zds = |z1-z|
  
bailout:
  (zds > 1e-25) && (zds < 1e20)
  
default:
  title = "General_Sterling_18"
  periodicity = 0
  maxiter = 190
  
  float param Seed
    caption = "Seed"
    default = -1/3
  endparam
  
  complex func fn1
    caption = "Fn1"
    hint = "This is the first function."
    default = sin()
  endfunc
  
  complex func fn2
    caption = "Fn2"
    hint = "This is the Second function."
    default = cos()
  endfunc
  
  complex param p1
    caption = "p1"
    default = 1
  endparam
  
  complex param p2
    caption = "p2"
    default = 1
  endparam

  complex param p3
    caption = "p3"
    default = 1
  endparam

  complex param p4
    caption = "p4"
    default = 1
  endparam

  complex param p5
    caption = "p5"
    default = 3
  endparam

  complex param p6
    caption = "p6"
    default = 2
  endparam
  
  complex param p7
    caption = "p7"
    default = 1
  endparam
  
  Bool param usepixel
    caption = "Use Pixels (C*Seed)"
    default = True
  endparam
}
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
3#
柳烟发表于 2010-8-17 11:13 | 只看该作者
将就一楼的文件，改变参数，再扫一图：
未命名1.JPG
回复 引用

TOP

院士

Rank: 5Rank: 5Rank: 5

UID
64 
帖子
2885 
精华
13 
积分
6081 
来自
重庆万州 
4#
xiaongxp发表于 2010-8-17 12:41 | 只看该作者
看不懂源代码，只有欣赏的份儿哟。
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
5#
柳烟发表于 2010-8-17 19:29 | 只看该作者
看不懂源代码，只有欣赏的份儿哟。
xiaongxp 发表于 2010-8-17 12:41
我也不太懂代码,因为天天看代码,对合面板上的东西,能悟之三四.
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
6#
柳烟发表于 2010-8-17 19:48 | 只看该作者
代码如下:
bwp4 {
init:
  z = @InitValue
  t = #pixel
loop:
  z = sin(z) - t
  t = 1 / (z * @Value)
bailout:
  |z| < @Bailout  
default:
  title = "BWP 04"
  param InitValue
    caption = "Initial Value"
    default = (0, 0)
  endparam
  param Value
    caption = "Value"
    default = (50, 0)
  endparam
  param Bailout
    caption = "Bailout Value"
    default = 4.0
  endparam
}

未命名1.JPG
未命名2.JPG
BWP 04.gsp (34.31 KB)
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
7#
柳烟发表于 2010-8-18 00:37 | 只看该作者
未命名3.JPG 将上楼文件放大后，扫出一图：
回复 引用

TOP

院士

Rank: 5Rank: 5Rank: 5

UID
7 
帖子
2888 
精华
10 
积分
2836 
8#
榕坚发表于 2010-8-18 11:34 | 只看该作者
3# 柳烟


怎么会有那小宝贝出现？改了哪些参数呢？
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
9#
柳烟发表于 2010-8-18 15:15 | 只看该作者
8# 榕坚
将源文件中的有关sinz、cosz的系数，好象是p3与p7设置为0
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
10#
柳烟发表于 2010-8-18 15:17 | 只看该作者
代码如下：
bwp7 {
init:
  z = @InitValue
  t = #pixel
loop:
  z = tanh(z) - t
  t = 1 / (z * @Value)
bailout:
  |z| < @Bailout  
default:
  title = "BWP 07"
  param InitValue
    caption = "Initial Value"
    default = (0, 0)
  endparam
  param Value
    caption = "Value"
    default = (50, 0)
  endparam
  param Bailout
    caption = "Bailout Value"
    default = 4.0
  endparam
}
未命名1.JPG
未命名1.JPG
BWP07.gsp (11.47 KB)
回复 引用

TOP

1234
返回列表