inRm3D: 画板论坛's Archiver

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中也实现了这个,而且发现:这一系列的结构是相似的,可以统一在一个分形之中。
[attach]23631[/attach][attach]23632[/attach][attach]23633[/attach][attach]23634[/attach][attach]23636[/attach][attach]23635[/attach][attach]23637[/attach][attach]23638[/attach][attach]23639[/attach][attach]23640[/attach]

lnszdzg 发表于 2015-1-28 20:53

而且,还有一些很有意思的变种

[attach]23641[/attach]
[attach]23642[/attach]
[attach]23643[/attach]



应剑客之约,让我邀请大家到Mathcad吧做客。
希望几位老师能到Mathcad吧看看
[url]http://tieba.baidu.com/f?kw=mathcad&fr=ala0[/url]

lnszdzg 发表于 2015-1-28 21:20

[attach]23644[/attach]
UF变种

lnszdzg 发表于 2015-1-28 21:25

[attach]23645[/attach][attach]23646[/attach][attach]23647[/attach]

lnszdzg 发表于 2015-1-28 22:35

[attach]23650[/attach]

柳烟 发表于 2015-1-28 22:45

杜老兄越玩越高超,快入化境了,祝贺。

lnszdzg 发表于 2015-1-29 15:52

[attach]23654[/attach]
也是变种

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吧做客。
[url]http://tieba.baidu.com/f?kw=mathcad&fr=ala0[/url]

lnszdzg 发表于 2015-1-29 23:19

最近画板论坛老是打不开,郁闷啊!:'(

lnszdzg 发表于 2015-2-1 21:53

[attach]23685[/attach]
不会平滑啊

xiaongxp 发表于 2015-2-1 22:02

[b] [url=http://www.inrm3d.cn/redirect.php?goto=findpost&pid=45263&ptid=4908]12#[/url] [i]lnszdzg[/i] [/b]
好图!
杜老师,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

[quote]邀请大家到Mathcad吧做客。
[url]http://tieba.baidu.com/f?kw=mathcad&fr=ala0[/url]
[size=2][color=#999999]lnszdzg 发表于 2015-1-29 16:03[/color][url=http://www.inrm3d.cn/redirect.php?goto=findpost&pid=45235&ptid=4908] [img]http://www.inrm3d.cn/images/common/back.gif[/img][/url][/size][/quote]
MC吧的学习氛围令人羡慕,无私、热情、有深度、……

lnszdzg100 发表于 2015-3-20 19:30

[b] [url=http://www.inrm3d.cn/redirect.php?goto=findpost&pid=45457&ptid=4908]15#[/url] [i]xiaongxp[/i] [/b]


我上不去画板论坛原来是被学校屏蔽了

lnszdzg100 发表于 2015-3-21 20:27

[attach]23990[/attach]

zhongba 发表于 2015-3-21 20:43

[b] [url=http://www.inrm3d.cn/redirect.php?goto=findpost&pid=45544&ptid=4908]17#[/url] [i]lnszdzg100[/i] [/b]
赞!
这个几何画板办不到啰。

榕坚 发表于 2015-3-22 09:58

[b] [url=http://www.inrm3d.cn/redirect.php?goto=findpost&pid=45545&ptid=4908]18#[/url] [i]zhongba[/i] [/b]


可以尝试:

lnszdzg100 发表于 2015-3-22 20:21

[b] [url=http://www.inrm3d.cn/redirect.php?goto=findpost&pid=45546&ptid=4908]19#[/url] [i]榕坚[/i] [/b]


这个不错,很好啊!

页: [1] 2

Powered by Discuz! Archiver 7.0.0  © 2001-2009 Comsenz Inc.