1 ...11121314151617181920... 22
返回列表 回复 发帖

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
121#
柳烟发表于 2013-2-26 20:28 | 只看该作者
118楼的代码如下：
单圆环轨迹ID 后来居上{
init:
  int iter = 0
  float Circle=0
  float t = 0
  float x = 0
  float y = 0
  float Dsgd1 = 0
  float ZtoPsqd = 0
  float Rc = @r
  float H=@h
  float k=0
  float k1=0
  float ID=0
  bool Trapped = false
loop:
  iter= iter + 1
  x = real(#z)
  y = imag(#z)
  Dsgd1 =abs(sqrt((x-@o1x)^2+(y-@o1y)^2)-Rc)
  if Dsgd1 <H
     k=iter
     ZtoPsqd= Dsgd1
     Trapped= true
  else
     k1=t
  endif
final:
  if !Trapped
    #solid=true
  else
    ID=k+k1
    Circle = (@off+ID)%3
    float Ratio = 1-ZtoPsqd/H
    float ColorIndex = 29 * Ratio + Circle * 30
    #index = (ColorIndex +1) % 256 /256
  endif
default:
  title = "单圆环轨迹ID"
  param r
    caption = "Circle radius"
    default = 1.3
  endparam
    param h
    caption = "h"
    default = 0.2
  endparam
param o1x
    caption = "o1x"
    default =0
  endparam
param o1y
    caption = "o1y"
    default =0
endparam
param off
    caption = "off"
    default =1
  endparam
}
此代码乃柳烟之作品。
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
122#
柳烟发表于 2013-2-26 20:30 | 只看该作者
UF中的先上后下的问题，已解决，整一个图片。
Fractal2.jpg
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
123#
柳烟发表于 2013-2-27 22:38 | 只看该作者
单圆环陷阱整合，用调色板上色，包括先上后下，后来居上，揭掉一个个圆环，各轨迹线轮换作色等等功能，与1－2楼常老师的轨迹算法属不同算法，各有千秋，成图的次弟不同，这大家可通过迭代次数上看出来。另外，要得到所提楼层的同样的图片，可将作色参数中的q拿掉就可扫出同样之图。扫两张图片。
未命名.jpg
未命名.jpg
单圆环陷阱整合.gsp (28.02 KB)
UF中，再调一个：
Fractal2.jpg
回复 引用

TOP

助教

Rank: 1

UID
254 
帖子
75 
精华
1 
积分
138 
来自
江苏常州 
124#
yandongtai发表于 2013-2-28 08:54 | 只看该作者
精彩！柳烟辛苦！
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
125#
柳烟发表于 2013-3-1 21:21 | 只看该作者
2楼changxde轨迹ID算法中所提问题,结合新近对UF代码的研究,加进部分UF代码功能后,已经解决.一是当n从0逐渐变大时,圆环个数从陷阱环带,一个个增多,二是可改变t1值,实现颜色的交替更换,三是改变参数skif的值,可将圆环从上到下一个个揭掉.但是乌龟不能弄到各环带的上面来.
2楼层问题.gsp (22.97 KB)
就另一种情形,当时拿掉一个圆环,加进了对ID的一个判断,而今拿掉的方法,先进得多.
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
126#
柳烟发表于 2013-3-2 11:08 | 只看该作者
3楼与4楼所帖GSP文件中,拿掉圆环办法不好,麻烦而不能随意,今加进UF部分算法,使功能更先进.文件中,改变skip的值,可揭掉最早迭代出的一个个圆环,改变t1值,可实现八色更替,n从小到大时,可看到一个个环带迭代而出.
陷阱轨迹IDchangxde-UF法(后来居上).gsp (24.93 KB)
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
127#
柳烟发表于 2013-3-2 11:12 | 只看该作者
如何将上二楼先上后下,后来居上两文件,整合在一起?
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
128#
柳烟发表于 2013-3-2 14:48 | 只看该作者
#127所提问题,已获得解决
陷阱轨迹IDchangxde-UF整合.gsp (35.28 KB)
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
129#
柳烟发表于 2013-3-4 15:31 | 只看该作者
柳烟的UF作品：
Fractal1.jpg
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
130#
柳烟发表于 2013-3-4 18:43 | 只看该作者
怪异曲线陷阱下的M集：
未命名.jpg
Some PWC Trap Types.gsp (27.31 KB)
改变参数值，可得到前面的单圆环陷阱M集。
回复 引用

TOP

1 ...11121314151617181920... 22
返回列表