12
返回列表 回复 发帖

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
53 
精华
0 
积分
193 
11#
柳烟发表于 2020-6-5 00:34 | 只看该作者
肖老师好，怎么我老是整来不对劲，干了好多遍，整来相差甚远，消老师算法如何的？
回复 引用

TOP

教授

Rank: 3

UID
30376 
帖子
527 
精华
1 
积分
6520 
来自
湖南湘潭 
12#
xklppp发表于 2020-6-5 00:49 | 只看该作者
11# 柳烟
与柳老师给出的UF代码一模一样：
001.jpg
2020-6-5 00:49

可能是柳老师的画板文件中有输入性错误，仔细检查一下应该能找出问题。
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
53 
精华
0 
积分
193 
13#
柳烟发表于 2020-6-5 07:36 | 只看该作者
是一步计算出错，
新建图片.jpg
2020-6-5 07:36

HiskersBant.gsp (26.39 KB)
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
53 
精华
0 
积分
193 
14#
柳烟发表于 2020-6-5 23:05 | 只看该作者
IFB11 {
init:
z=pixel
loop:
z=p6*z+@p7
float a=real(z)
float b=imag(z)
if a*imag(p1)+real(p1)*b<0
z=z*sin(p1)+p2
z=z*tanh(p1)+@p9
endif

if 0<=a*imag(p1)+real(p1)*b
z=z*acosh(p1)+p3
z=z*cos(p1)+@p11
endif
bailout:
|z|<=@bail
default:
title="IFB 11"
center=(1.235,-2.171)
magn=0.25
periodicity=0
param p1
caption="IFB Parameter a1"
default=(1,-0.75)
endparam
param p2
caption="IFB Parameter a2"
default=(-0.37,2.68)
endparam
param p3
caption="IFB Parameter a3"
default=(0,-0.5)
endparam
param p9
caption="IFB Parameter a4"
default=(1,0)
endparam
param p11
caption="IFB Parameter a5"
default=(1,0)
endparam

param p6
caption="Loop Parameter 1"
default=(1,0)
endparam
param p7
caption="Loop Parameter 2"
default=(0,0)
endparam
param bail
caption="Bailout"
default=10000000.0
endparam
}
34.jpg
2020-6-5 23:14
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
53 
精华
0 
积分
193 
15#
柳烟发表于 2020-6-5 23:14 | 只看该作者
新建图片.jpg
2020-6-5 23:14

新建图片.jpg
2020-6-6 01:18

0606.jpg
2020-6-6 20:05

IFB11.gsp (22.12 KB)
回复 引用

TOP

教授

Rank: 3

UID
30376 
帖子
527 
精华
1 
积分
6520 
来自
湖南湘潭 
16#
xklppp发表于 2020-6-6 13:16 | 只看该作者
15# 柳烟
有点像海螺
008.jpg
2020-6-6 13:16

009.jpg
2020-6-6 13:16
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
53 
精华
0 
积分
193 
17#
柳烟发表于 2020-6-7 01:36 | 只看该作者
BivarIFB1 {
init:
z=pixel
k=pixel
loop:
z=p6*z+@p7
k=@p8*k+@p9


z=z-4.748*(-4.748/(z-0.646))+0.646
k=k+1.044*sqrt(1.044/(k+2.382))-2.382

float a=real(z)
if a<p4
k=k*p1+p2
endif
if p5<=a
k=k*conj(p1)+p3
endif
z=K*(1+flip(@p10))
bailout:
|z|<=@bail
default:
title="Bivar IFB 1"
center=(-0.269,-0.202)
magn=1.77
angle=270
periodicity=0

p1=(0.616,-0.251)
p2=(0.352111,-0.442944)
p3=(-0.04,-0.5)
p4=0.0
p5=0
P6=(-0.252,-0.507)
endparam
p7=0.0
p8=(1,-1.58745)
p9=(0,0)



p10=0.0
endparam
param bail
caption="Bailout"
default=10000000.0
endparam

}
Fractal2.png
2020-6-7 01:36
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
53 
精华
0 
积分
193 
18#
柳烟发表于 2020-6-7 01:36 | 只看该作者
0606.jpg
2020-6-7 01:36
回复 引用

TOP

12
返回列表