相關鏈接
http://www.matrix67.com/blog/archives/500
http://www.cnblogs.com/zhuangzhuang1988/archive/2013/01/03/2843491.html
http://hyry.dip.jp:8000/pydoc/fractal_chaos.html#ifs
http://blog.csdn.net/waynebuaa/article/details/2762977
?
Mathematica code:
a[
1
] = {{
0.85
,
0.04
}, {-
0.04
,
0.85
}}.# + {
0
,
1.6
} &
;
a[
2
] = {{
0.2
, -
0.26
}, {
0.23
,
0.22
}}.# + {
0
,
1.6
} &
;
a[
3
] = {{-
0.2
,
0.26
}, {
0.26
,
0.24
}}.# + {
0
,
0.44
} &
;
a[
4
] = {{
0
,
0
}, {
0
,
0.16
}}.# + {
0
,
0
} &
;
iter
= a[RandomChoice[{
85
,
7
,
7
,
1
} -> {
1
,
2
,
3
,
4
}]][#] &
;
pts
= NestList[iter, N@{
0
,
0
},
5
10
^
5
];
Graphics[{Green, AbsolutePointSize@
1
, Point@pts}]
?
?
?
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
