标题:
(z^2-Q^2)(z^2-c^2)系列分形
[打印本页]
作者:
lnszdzg
时间:
2015-1-28 20:49
标题:
(z^2-Q^2)(z^2-c^2)系列分形
前几天,老师们完了(z-1)(z+1)(z-b+a)(z-b-a) 的牛迭M集征解(越玩越有趣)
今天,在Mathcad中也实现了这个,而且发现:这一系列的结构是相似的,可以统一在一个分形之中。
下载
(14.48 KB)
2015-1-28 21:49
下载
(12.52 KB)
2015-1-28 21:49
下载
(17.06 KB)
2015-1-28 21:49
下载
(19.34 KB)
2015-1-28 21:49
下载
(17.87 KB)
2015-1-28 21:49
下载
(18.75 KB)
2015-1-28 21:49
下载
(17.72 KB)
2015-1-28 21:49
下载
(17.75 KB)
2015-1-28 21:50
下载
(18.83 KB)
2015-1-28 21:49
下载
(17.78 KB)
2015-1-28 21:49
图片附件:
1.jpg
(2015-1-28 21:49, 14.48 KB) / 下载次数 1923
http://www.inrm3d.cn/attachment.php?aid=23631&k=e2d93a6956fe7caf658540d3cc5d7056&t=1714841163&sid=w166sS
图片附件:
2.jpg
(2015-1-28 21:49, 12.52 KB) / 下载次数 1956
http://www.inrm3d.cn/attachment.php?aid=23632&k=61b781c9e4945fb7209af06f55f4a145&t=1714841163&sid=w166sS
图片附件:
3.jpg
(2015-1-28 21:49, 17.06 KB) / 下载次数 1918
http://www.inrm3d.cn/attachment.php?aid=23633&k=55a4808432349c49d1942f15de0b20a6&t=1714841163&sid=w166sS
图片附件:
4.jpg
(2015-1-28 21:49, 19.34 KB) / 下载次数 1951
http://www.inrm3d.cn/attachment.php?aid=23634&k=d53af28d9879473ca1977bc5091c765e&t=1714841163&sid=w166sS
图片附件:
5.jpg
(2015-1-28 21:49, 18.75 KB) / 下载次数 1906
http://www.inrm3d.cn/attachment.php?aid=23635&k=2f32aac75d841fc8ba6e4e64e015eb6c&t=1714841163&sid=w166sS
图片附件:
6.jpg
(2015-1-28 21:49, 17.87 KB) / 下载次数 1928
http://www.inrm3d.cn/attachment.php?aid=23636&k=de2f2202c2a9b9468195c69d2fc00322&t=1714841163&sid=w166sS
图片附件:
7.jpg
(2015-1-28 21:49, 17.72 KB) / 下载次数 1892
http://www.inrm3d.cn/attachment.php?aid=23637&k=f3699a96352d3215d197bb12dd104882&t=1714841163&sid=w166sS
图片附件:
a.jpg
(2015-1-28 21:50, 17.75 KB) / 下载次数 1956
http://www.inrm3d.cn/attachment.php?aid=23638&k=63c8010705b654bdabd97bf654e3370b&t=1714841163&sid=w166sS
图片附件:
8.jpg
(2015-1-28 21:49, 18.83 KB) / 下载次数 1943
http://www.inrm3d.cn/attachment.php?aid=23639&k=24dfc6345a399913eb129c17f2955a70&t=1714841163&sid=w166sS
图片附件:
9.jpg
(2015-1-28 21:49, 17.78 KB) / 下载次数 1954
http://www.inrm3d.cn/attachment.php?aid=23640&k=60c68577e854a72a38644bef37237ad7&t=1714841163&sid=w166sS
作者:
lnszdzg
时间:
2015-1-28 20:53
而且,还有一些很有意思的变种
下载
(15.04 KB)
2015-1-28 22:01
下载
(18.69 KB)
2015-1-28 22:01
下载
(20.18 KB)
2015-1-28 22:01
应剑客之约,让我邀请大家到Mathcad吧做客。
希望几位老师能到Mathcad吧看看
http://tieba.baidu.com/f?kw=mathcad&fr=ala0
图片附件:
b.jpg
(2015-1-28 22:01, 15.04 KB) / 下载次数 1857
http://www.inrm3d.cn/attachment.php?aid=23641&k=14a0215405aadb9e0b4c502c227f46d2&t=1714841163&sid=w166sS
图片附件:
c.jpg
(2015-1-28 22:01, 18.69 KB) / 下载次数 1953
http://www.inrm3d.cn/attachment.php?aid=23642&k=7e640109ea96dc6d825867d7b14b1cf9&t=1714841163&sid=w166sS
图片附件:
d.jpg
(2015-1-28 22:01, 20.18 KB) / 下载次数 1907
http://www.inrm3d.cn/attachment.php?aid=23643&k=d539500f53054a39759fc2cc5fc44741&t=1714841163&sid=w166sS
作者:
lnszdzg
时间:
2015-1-28 21:20
下载
(14.9 KB)
2015-1-28 22:03
UF变种
图片附件:
e.jpg
(2015-1-28 22:03, 14.9 KB) / 下载次数 1920
http://www.inrm3d.cn/attachment.php?aid=23644&k=1de466a447445244b278d8c80b57d73e&t=1714841163&sid=w166sS
作者:
lnszdzg
时间:
2015-1-28 21:25
下载
(18.12 KB)
2015-1-28 22:04
下载
(17.3 KB)
2015-1-28 22:04
下载
(25.46 KB)
2015-1-28 22:04
图片附件:
f.jpg
(2015-1-28 22:04, 18.12 KB) / 下载次数 1898
http://www.inrm3d.cn/attachment.php?aid=23645&k=55e10e0e0b27fc6450bb925e48fdc14d&t=1714841163&sid=w166sS
图片附件:
g.jpg
(2015-1-28 22:04, 17.3 KB) / 下载次数 1948
http://www.inrm3d.cn/attachment.php?aid=23646&k=c86f2b92ad22fc5dc8b89279e792d6f8&t=1714841163&sid=w166sS
图片附件:
h.jpg
(2015-1-28 22:04, 25.46 KB) / 下载次数 1915
http://www.inrm3d.cn/attachment.php?aid=23647&k=4cc4c054d2b3d1cb3a581f834afd54e0&t=1714841163&sid=w166sS
作者:
lnszdzg
时间:
2015-1-28 22:35
下载
(30.65 KB)
2015-1-28 22:44
图片附件:
3.jpg
(2015-1-28 22:44, 30.65 KB) / 下载次数 1917
http://www.inrm3d.cn/attachment.php?aid=23650&k=1afed1c503da8d9cc414f01da68bea0a&t=1714841163&sid=w166sS
作者:
柳烟
时间:
2015-1-28 22:45
杜老兄越玩越高超,快入化境了,祝贺。
作者:
lnszdzg
时间:
2015-1-29 15:52
下载
(51.17 KB)
2015-1-29 15:52
也是变种
图片附件:
捕获201501291.PNG
(2015-1-29 15:52, 51.17 KB) / 下载次数 1927
http://www.inrm3d.cn/attachment.php?aid=23654&k=22ddfa7277de03367c772398c6cad7c2&t=1714841163&sid=w166sS
作者:
lnszdzg
时间:
2015-1-29 15:54
UF代码,很简单,却很有效哈
Newton_Mandelbrot1 {
init:
complex Q = @Q
int p = @power
c = #pixel
z = sqrt((Q^2+c^p)/6 )
oop:
err = (z^4-(c^p+Q^2)*z^2+c^p)/(4*z^3-2*(c^p+Q^2)*z)
z = z - err
bailout:
|err| > @bailout
default:
title = "Newton_Mandelbrot1"
maxiter = 2000
periodicity = 0
center = (0,0)
magn = 1.0
param power
caption = "power"
default = 1
endparam
param Q
caption = "Q"
default = (1.0,0.0)
endparam
param bailout
caption = "Bailout"
default = 0.000001
endparam
}
作者:
lnszdzg
时间:
2015-1-29 15:57
“蝴蝶结”的个数有p确定,如果增加变换,得到的图形也很美。
作者:
lnszdzg
时间:
2015-1-29 16:03
邀请大家到Mathcad吧做客。
http://tieba.baidu.com/f?kw=mathcad&fr=ala0
作者:
lnszdzg
时间:
2015-1-29 23:19
最近画板论坛老是打不开,郁闷啊!
作者:
lnszdzg
时间:
2015-2-1 21:53
下载
(11.37 KB)
2015-2-1 22:16
不会平滑啊
图片附件:
3.jpg
(2015-2-1 22:16, 11.37 KB) / 下载次数 1678
http://www.inrm3d.cn/attachment.php?aid=23685&k=0234b4973f0a253f0e84394eee990698&t=1714841163&sid=w166sS
作者:
xiaongxp
时间:
2015-2-1 22:02
12#
lnszdzg
好图!
杜老师,N集不平滑才美呢,其等et圈的密度反映了根的收敛速度。
作者:
xklppp
时间:
2015-3-2 18:37
(z^m-q^a)(z^m-c^b)
z0=[m!m!(q^a+c^b)/(2m)!]^(1/m)
z^m[c^b(z^m-c^b)-q^a]+c^b
z0={m!m![q^a+c^(2b)]/(2m)!}^(1/m)
参数平面:c=d*c^f+e/c^g
动力平面:z=d*z^f+e/z^g
作者:
xiaongxp
时间:
2015-3-9 23:39
邀请大家到Mathcad吧做客。
http://tieba.baidu.com/f?kw=mathcad&fr=ala0
lnszdzg 发表于 2015-1-29 16:03
MC吧的学习氛围令人羡慕,无私、热情、有深度、……
作者:
lnszdzg100
时间:
2015-3-20 19:30
15#
xiaongxp
我上不去画板论坛原来是被学校屏蔽了
作者:
lnszdzg100
时间:
2015-3-21 20:27
下载
(27.81 KB)
2015-3-21 20:27
图片附件:
捕获12101.jpg
(2015-3-21 20:27, 27.81 KB) / 下载次数 1497
http://www.inrm3d.cn/attachment.php?aid=23990&k=473016e0862e87ff7f3c7302b1fe1ce4&t=1714841163&sid=w166sS
作者:
zhongba
时间:
2015-3-21 20:43
17#
lnszdzg100
赞!
这个几何画板办不到啰。
作者:
榕坚
时间:
2015-3-22 09:58
18#
zhongba
可以尝试:
图片附件:
捕获.JPG
(2015-3-22 09:58, 40.82 KB) / 下载次数 1595
http://www.inrm3d.cn/attachment.php?aid=23992&k=760079ffac3a6f1a3637af1491d4214b&t=1714841163&sid=w166sS
作者:
lnszdzg100
时间:
2015-3-22 20:21
19#
榕坚
这个不错,很好啊!
作者:
榕坚
时间:
2015-3-22 21:41
头像的大小可以随着迭代过程变化 了,但都是正放的,怎么让它随着旋转呢?
作者:
xiaongxp
时间:
2015-3-22 22:50
21#
榕坚
用三点粘贴图片,可保图片跟随旋转。
圆形图片太难找了
下载
(36.6 KB)
2015-3-22 23:00
图片的逆迭代J集.gsp
(84.64 KB)
下载次数: 3289
2015-3-22 23:00
图片附件:
图片的逆迭代J集.jpg
(2015-3-22 23:00, 36.6 KB) / 下载次数 1878
http://www.inrm3d.cn/attachment.php?aid=23993&k=f99e524bb86bfeafc543744c2595ebde&t=1714841163&sid=w166sS
附件:
图片的逆迭代J集.gsp
(2015-3-22 23:00, 84.64 KB) / 下载次数 3289
http://www.inrm3d.cn/attachment.php?aid=23994&k=7397e9f4f859629fa9fd33bb726c0b3d&t=1714841163&sid=w166sS
作者:
榕坚
时间:
2015-3-24 16:24
可以转了:
图片附件:
2.JPG
(2015-3-24 16:24, 40.12 KB) / 下载次数 1808
http://www.inrm3d.cn/attachment.php?aid=24001&k=14c79d555e0d35b9e3de9ff82a485ac9&t=1714841163&sid=w166sS
作者:
榕坚
时间:
2015-3-24 20:28
有点像了:
图片附件:
1.jpg
(2015-3-24 20:40, 27.05 KB) / 下载次数 1796
http://www.inrm3d.cn/attachment.php?aid=24002&k=ad8aacb796f0bd6f74efe5edb913e556&t=1714841163&sid=w166sS
作者:
lnszdzg100
时间:
2015-3-27 10:32
22#
xiaongxp
图片是经过加工才呈圆形的。
作者:
lnszdzg100
时间:
2015-3-27 10:34
24#
榕坚
榕老师厉害啊!
作者:
lnsz_dzg
时间:
2021-5-20 16:41
已经忘完了
作者:
lnsz_dzg
时间:
2021-5-20 16:43
Circlesbelt {
init:
int iter = 0
float num = @cnum
float Xabs = 0
float Yabs = 0
float Dsgd0 = 0
float Circle = 0
float ZtoPsqd = 0
float Rc = @r;/#magn
float Rm = @Rr
float RcSqd = Rc
bool Trapped = false
loop:
if (@tran==0 &&!Trapped) || @tran==1
iter = iter + 1
if iter > @skip
Xabs = real(#z)
Yabs = imag(#z)
Dsgd0 = abs(sqrt((Xabs+0.0)^2 + (Yabs -0)^2) - Rm)
if Dsgd0 < RcSqd
Trapped = true
ZtoPsqd= Dsgd0
Circle = iter
float argz = atan2(#z)
if argz<0
argz = argz + 2*#pi
endif
argz = argz/(2*#pi)
endif
endif
endif
final:
if !trapped
#solid = true
else
Circle = ((Circle -1 + @off) % num)/num
float Ratio = sqrt(ZtoPsqd/Rcsqd)
; float ColorIndex = 110 * Ratio + Circle * 140
;#index = (ColorIndex + 1) % 256 /256
#color = hsl(argz*6.0 ,Ratio*0.5 +0.5,(0.90-0.6*Ratio)*0.9)
endif
default:
title = "1 belt"
param tran
caption="type Trap"
default=1
enum="first" "last"
endparam
param cnum
caption = "color num"
default = 6.0
endparam
param r
caption = "Circle radius"
default = 0.3
endparam
param Rr
caption = "Out radius"
default = 1.5
endparam
param skip
caption = "Iters to skip"
default = 0
hint = "Iterations to skip."
endparam
param off
caption = "Hue cycle"
default = 0
min = 0
max = 7
hint = "This rotates the coloring order of the balls."
endparam
}
;忘了,忘完了,贴出代码,为了纪念
作者:
lnsz_dzg
时间:
2021-5-20 16:57
下载
(68.86 KB)
2021-5-20 16:57
下载
(70.88 KB)
2021-5-20 16:57
下载
(64.57 KB)
2021-5-20 16:57
下载
(89.47 KB)
2021-5-20 16:57
下载
(55.17 KB)
2021-5-20 16:57
下载
(58.54 KB)
2021-5-20 16:57
下载
(79.82 KB)
2021-5-20 16:57
下载
(94.52 KB)
2021-5-20 16:57
图片附件:
001.png
(2021-5-20 16:57, 68.86 KB) / 下载次数 1938
http://www.inrm3d.cn/attachment.php?aid=28916&k=0ca363512e6362ce0b58cb118f077bf7&t=1714841163&sid=w166sS
图片附件:
002.png
(2021-5-20 16:57, 70.88 KB) / 下载次数 1927
http://www.inrm3d.cn/attachment.php?aid=28917&k=9ea3981a84d24d7ff276e490de0037af&t=1714841163&sid=w166sS
图片附件:
003.png
(2021-5-20 16:57, 64.57 KB) / 下载次数 1902
http://www.inrm3d.cn/attachment.php?aid=28918&k=243bc4b2b9bc05319b9a12d7533bedef&t=1714841163&sid=w166sS
图片附件:
004.png
(2021-5-20 16:57, 89.47 KB) / 下载次数 1909
http://www.inrm3d.cn/attachment.php?aid=28919&k=c8d34769062a7a86a416f10c63800ee6&t=1714841163&sid=w166sS
图片附件:
005.png
(2021-5-20 16:57, 55.17 KB) / 下载次数 1937
http://www.inrm3d.cn/attachment.php?aid=28920&k=3d7300d550e98844c711bf1889ab590f&t=1714841163&sid=w166sS
图片附件:
006.png
(2021-5-20 16:57, 58.54 KB) / 下载次数 2002
http://www.inrm3d.cn/attachment.php?aid=28921&k=44872f26b17d22b170f0914028f9247a&t=1714841163&sid=w166sS
图片附件:
007.png
(2021-5-20 16:57, 79.82 KB) / 下载次数 1956
http://www.inrm3d.cn/attachment.php?aid=28922&k=7d57acaacef10c366fef345b533f1ccd&t=1714841163&sid=w166sS
图片附件:
008.png
(2021-5-20 16:57, 94.52 KB) / 下载次数 1940
http://www.inrm3d.cn/attachment.php?aid=28923&k=f8fdf88800d93d4292d6ccd67e8495d5&t=1714841163&sid=w166sS
欢迎光临 inRm3D: 画板论坛 (http://www.inrm3d.cn/)
Powered by Discuz! 7.0.0