返回列表 回复 发帖

分形图征解

1片.jpg
20211107.gsp (14.43 KB)
感觉到好象是啥枚瑰线类似曲线陷阱整出的,具体我也不明瞭
新建图片.jpg


Testing.gsp (13.96 KB)
无标题.png 此图的扫描版如何作?
新建图片.jpg 在迭代过程中,由外向内的正方形边宽度不断变小,如何在迭代过程中,各正方形边的宽度不变?UF中由外向内正方形边的宽度都不变,UF中的代码太长,开关项又多,不好解读,所以我打算直接用画板造

Fractal2.png (161.68 KB)

Fractal2.png

好象我那个造法是正确的,正方形宽度越往里逐渐递减
我整出的效果
新建图片.jpg
UF中的效果 Fractal2.png
交接处不同,不知怎么弄才能整出这种交果
新建图片.jpg
正方形分形扫描版202112012337.gsp (14.92 KB)
IFB79 {
init:
z=pixel

loop:

z=p6*z
float a=real(z)

if a<0
z=sqrt(1i)*z*flip(p1)+p2
endif
z=flip(z)*conj(@p8)+@p11
if 0<=a
z=sqrt(1i)*z*p1+p3
endif
z=z*@p8+@p13


bailout:
|z|<=@bail
default:
title="IFB 79"
center=(0.001,0.001)
periodicity=0


param p1
caption="IFB Parameter a1"
default=(-1.036,0.235)
endparam
param p8
caption="IFB Parameter a2"
default=(0.948,-0.367)
endparam
param p2
caption="IFB Parameter b1"
default=(2.657,0.487)
endparam
param p11
caption="IFB Parameter b2"
default=(-1.099,0.471)
endparam
param p3
caption="IFB Parameter b3"
default=(-0.04,-0.5)
endparam
param p13
caption="IFB Parameter b4"
default=(-2.202,0.183)
endparam



param p6
caption="Z Parameter 1"
default=(1.118,0.028)
endparam


param bail
caption="Bailout"
default=10000000.0
endparam
}
无标题.jpg
这个分形图用画板一直造来不对头,代码在上楼
试试这五个仿射变换

未命名1.gsp (5.42 KB)

返回列表