注册
登录
论坛
返回网络画板
搜索
inRm3D: 画板论坛
»
GSP (几何画板)
»
分形版
» UF分形的画板实现(第2集)
 
1
2
返回列表
回复
发帖
发新话题
发布投票
发布悬赏
发布辩论
发布活动
发布视频
发布商品
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
11
#
柳烟
发表于 2010-7-3 12:01
|
显示全部帖子
接着扫。
下载
(23.47 KB)
2010-7-3 12:01
下载
(23.81 KB)
2010-7-3 13:22
回复
引用
TOP
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
12
#
柳烟
发表于 2010-7-3 17:03
|
显示全部帖子
popcornjul {
; Written by Luke Plant
; Modified by Frederik Slijkerman
init:
float x = real(pixel)
float y = imag(pixel)
float h = @step
float temp = 0
loop:
temp=x
x=x-h*sin(y+tan(3*y))
y=y-h*sin(temp+tan(3*temp))
z = x+flip(y)
bailout:
|z| <= @bailout
default:
title = "Popcorn Julia"
maxiter = 149
magn = 0.66666666666666
param step
caption = "Step size"
default = 0.05
endparam
param bailout
caption = "Bailout value"
default = 4.0
min = 1
endparam
}
本想整出UF中的效果:
下载
(162.19 KB)
2010-7-3 17:03
结果弄出这个怪物,还没找到原因.
GSP
下载
(38.95 KB)
2010-7-3 17:24
Popcorn Julia变种.gsp
(15.2 KB)
下载次数: 2120
2010-7-3 17:24
回复
引用
TOP
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
13
#
柳烟
发表于 2010-7-6 00:12
|
显示全部帖子
扫一图片
下载
(47.14 KB)
2010-7-6 00:12
回复
引用
TOP
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
14
#
柳烟
发表于 2010-7-6 19:26
|
显示全部帖子
phoenixcplx {
init:
complex z = pixel
complex y = 0
complex oldz = 0
loop:
oldz = z
if @degree >= 2
z = z^@degree + p1 * z^(@degree - 1) + p2 * y
elseif @degree <= -3
z = z^(-@degree) + p1 * z^(-@degree - 2) + p2 * y
else
z = z^2 + p1 + p2 * y
endif
y = oldz
bailout:
(@test == 0 && |z| <= @bailout) || \
(@test == 1 && sqr(real(z)) <= @bailout) || \
(@test == 2 && sqr(imag(z)) <= @bailout) || \
(@test == 3 && (sqr(real(z)) <= @bailout && sqr(imag(z)) < @bailout)) || \
(@test == 4 && (sqr(real(z)) <= @bailout || sqr(imag(z)) < @bailout)) || \
(@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) || \
(@test == 6 && (sqr(real(z) + imag(z)) <= @bailout))
default:
title = "Phoenix (complex)"
maxiter = 149
param p1
caption = "Parameter 1"
default = (0.2, 0)
endparam
param p2
caption = "Parameter 2"
default = (0.3, 0)
endparam
param degree
caption = "Degree"
default = 0
endparam
param test
caption = "Bailout Test"
default = 0
enum = "mod" "real" "imag" "or" "and" "manh" "manr"
endparam
param bailout
caption = "Bailout value"
default = 4.0
min = 1.0
endparam
switch:
type = "mandphoenixclx"
degree = degree
test = test
bailout = bailout
}
GSP造好后,图片色彩实在太具诱惑力,让人难以抵挡,试扫几张。
下载
(27.99 KB)
2010-7-6 19:26
下载
(23.46 KB)
2010-7-6 19:43
下载
(20.82 KB)
2010-7-6 20:11
回复
引用
TOP
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
15
#
柳烟
发表于 2010-7-6 23:01
|
显示全部帖子
UF中的图片与我的图片有些许差别,不知何故。
下载
(30.93 KB)
2010-7-6 23:01
在UF中改变P1、P2后,出现的分形,我这带开关的J集与其不尽一致,也不知何故,而代码中不见丝毫信息。我将源文件发于此,大家研究,并批评。
Phoenix (complex)1.gsp
(38.31 KB)
下载次数: 2002
2010-7-6 23:01
回复
引用
TOP
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
16
#
柳烟
发表于 2010-7-7 17:28
|
显示全部帖子
照二位老师的建议,将p中的阈值加大成十万,得满屏卷纹,效果不错
下载
(52.49 KB)
2010-7-7 17:28
回复
引用
TOP
发短消息
加为好友
柳烟
(伍幻生)
当前离线
UID
539
帖子
53
精华
0
积分
193
威望
193
金钱
0
在线时间
2182 小时
注册时间
1970-1-1
最后登录
2024-5-2
版主
UID
539
帖子
53
精华
0
积分
193
17
#
柳烟
发表于 2010-7-8 21:22
|
显示全部帖子
[localimg=180,132]1[/localimg][
下载
(34.43 KB)
2010-7-8 21:22
下载
(38.84 KB)
2010-7-8 21:39
按UF中的开关项制作这广义的M集,胡乱扫两张,发于此.尔等有兴趣,自已打开我的文件,再扫其余的,并放大耍耍.
z^w+c的广义M集.gsp
(20.24 KB)
下载次数:2232
2010-7-8 21:22
回复
引用
TOP
 
1
2
返回列表