曼德博集合:修订间差异
小 那个分号还是删掉为好,更符合最新版本的Mathematica的语法 |
小 修正筆誤 |
||
(未显示21个用户的23个中间版本) | |||
第1行: | 第1行: | ||
{{Refimprove|time=2020-09-23T04:50:42+00:00}} |
|||
{{NoteTA|G1=Math|1=zh-hans:复 |
{{NoteTA|G1=Math|1=zh-hans:复;zh-hant:複;|2=zh-hans:迭代;zh-hant:疊代;}} |
||
[[File:Mandelset hires.png |
[[File:Mandelset hires.png|right|thumb|250px| 如果c点属于曼德博集合M则为黑色,反之为白色]] |
||
'''曼德博集合''' |
'''曼德博集合'''({{lang-en|Mandelbrot set}},或译為'''曼德布洛特复数集合''')是一种在[[复平面]]上组成[[分形]]的点的集合,以數學家[[本華·曼德博]]的名字命名。曼德博集合與[[朱利亚集合]]有些相似的地方,例如使用相同的复二次多项式來进行[[迭代]]。 |
||
== 定义 == |
== 定义 == |
||
曼德博集合可以用 |
曼德博集合可以用複二次多项式来定义: |
||
:<math>f_c(z) = z^2 + c \,</math> |
:<math>f_c(z) = z^2 + c \,</math> |
||
第27行: | 第28行: | ||
不同的参数 <math>c</math> 可能使[[序列]]的[[绝对值]]逐漸發散到无限大,也可能[[收斂]]在有限的區域内。 |
不同的参数 <math>c</math> 可能使[[序列]]的[[绝对值]]逐漸發散到无限大,也可能[[收斂]]在有限的區域内。 |
||
曼德博集合 <math>M</math> 就是使[[序列]]不延伸至无限大的所有复数 <math>c</math> 的[[集合 |
曼德博集合 <math>M</math> 就是使[[序列]]不延伸至无限大的所有复数 <math>c</math> 的[[集合 (数学)|集合]]。 |
||
==特性== |
==特性== |
||
*自相似 |
*自相似 |
||
*面积为{{gaps|1.506|591|856|1}}<ref>{{Cite web |url=http://www.mrob.com/pub/muency/pixelcounting.html |title=Mrob.com pixel counting |accessdate=2012-01-01 |archive-date=2019-08-10 |archive-url=https://web.archive.org/web/20190810111304/http://www.mrob.com/pub/muency/pixelcounting.html |dead-url=no }}</ref><ref>{{Cite web |url=http://mrob.com/pub/muency/areahistory.html |title=Mrob.com area history |access-date=2012-04-29 |archive-date=2020-09-22 |archive-url=https://web.archive.org/web/20200922130536/http://mrob.com/pub/muency/areahistory.html |dead-url=no }}</ref> |
|||
*面积为{{gaps|1.506|591|77}} ± {{gaps|0.000|000|08}}.<ref>[http://www.mrob.com/pub/muency/pixelcounting.html Mrob.com]</ref> |
|||
== 相關的定理 == |
== 相關的定理 == |
||
第158行: | 第159行: | ||
== 计算的方法 == |
== 计算的方法 == |
||
曼德博集合一般用[[计算机程序]]计算。对于大多数的分形软件,例如[[Ultra fractal]],内部已经有了比较成熟的例子。下面的程序是一段[[伪代码]],表达了曼德博集合的计算思路。 |
曼德博集合一般用[[计算机程序]]计算。对于大多数的分形软件,例如[[Ultra fractal]],内部已经有了比较成熟的例子。下面的程序是一段[[伪代码]],表达了曼德博集合的计算思路。 |
||
< |
<syntaxhighlight lang="VB"> |
||
For Each c in Complex |
For Each c in Complex |
||
repeats = 0 |
repeats = 0 |
||
第165行: | 第166行: | ||
z = z^2 + c |
z = z^2 + c |
||
repeats = repeats + 1 |
repeats = repeats + 1 |
||
Loop until abs(z) > EscapeRadius or repeats > MaxRepeats '根 |
Loop until abs(z) > EscapeRadius or repeats > MaxRepeats '根据定理三,EscapeRadius可设置为2。 |
||
If repeats > MaxRepeats Then |
If repeats > MaxRepeats Then |
||
Draw c,Black '如果迭代次 |
Draw c,Black '如果迭代次数超过MaxRepeats,就将c认定为属于曼德博集合,并设置为黑色。 |
||
Else |
Else |
||
Draw c,color(z,c,repeats) 'color函 |
Draw c,color(z,c,repeats) 'color函数用来决定颜色。 |
||
End If |
End If |
||
Next |
Next |
||
</syntaxhighlight> |
|||
</source> |
|||
=== 決定顏色的一些方法 === |
|||
# 直接利用循环终止时的Repeats |
# 直接利用循环终止时的Repeats |
||
# 综合利用z和Repeats |
# 综合利用z和Repeats |
||
第179行: | 第180行: | ||
=== [[Mathematica]]代码 === |
|||
<syntaxhighlight lang="VB"> |
|||
mand = Compile[{{z0, _Complex}, {nmax, _Integer}}, Module[{z = z0, i = 1}, While[i < nmax && Abs[z] <= 2, z = z^2 + z0; i++]; i]]; |
mand = Compile[{{z0, _Complex}, {nmax, _Integer}}, |
||
Module[{z = z0, i = 1}, |
|||
While[i < nmax && Abs[z] <= 2, z = z^2 + z0; i++]; i]]; |
|||
ArrayPlot[Reverse@Transpose@Table[mand[x + y I, 500], {x, -2, 2, 0.01}, {y, -2, 2, 0.01}]] |
ArrayPlot[ |
||
Reverse@Transpose@ |
|||
Table[mand[x + y I, 500], {x, -2, 2, 0.01}, {y, -2, 2, 0.01}]] |
|||
</syntaxhighlight> |
|||
== 各種圖示 == |
== 各種圖示 == |
||
⚫ | |||
[[File:Fractal-zoom-1-15-rupture.ogg|thumb|270px|動畫]] |
|||
[[File:Mandelbrotzoom Wiki h265 CRF04 20210412 006GANZ.webm|thumb|270px|動畫]] |
|||
[[Image:Mandelbrot sequence new.gif|thumb|right|點擊此圖像可觀看動態影像。]] |
|||
{| border=0 |
{| border=0 |
||
第209行: | 第217行: | ||
|} |
|} |
||
== |
== 參考資料 == |
||
{{reflist}} |
|||
⚫ | |||
{{分形}} |
{{分形}} |
||
[[Category:分形]] |
[[Category:分形]] |
||
[[Category:带有伪代码示例的条目]] |
|||
{{Link GA|de}} |
|||
{{Link GA|lv}} |
|||
[[ar:مجموعة ماندلبرو]] |
|||
[[ca:Conjunt de Mandelbrot]] |
|||
[[cs:Mandelbrotova množina]] |
|||
[[da:Mandelbrotmængden]] |
|||
[[de:Mandelbrot-Menge]] |
|||
[[en:Mandelbrot set]] |
|||
[[eo:Aro de Mandelbrot]] |
|||
[[es:Conjunto de Mandelbrot]] |
|||
[[fa:مجموعه مندلبرو]] |
|||
[[fi:Mandelbrotin joukko]] |
|||
[[fr:Ensemble de Mandelbrot]] |
|||
[[gl:Conxunto de Mandelbrot]] |
|||
[[he:קבוצת מנדלברוט]] |
|||
[[hr:Mandelbrotov skup]] |
|||
[[hu:Mandelbrot-halmaz]] |
|||
[[is:Mandelbrot mengið]] |
|||
[[it:Insieme di Mandelbrot]] |
|||
[[ja:マンデルブロ集合]] |
|||
[[kk:Мандельброт фракталы]] |
|||
[[ko:만델브로 집합]] |
|||
[[lv:Mandelbrota kopa]] |
|||
[[nl:Mandelbrotverzameling]] |
|||
[[no:Mandelbrotmengden]] |
|||
[[pl:Zbiór Mandelbrota]] |
|||
[[pt:Conjunto de Mandelbrot]] |
|||
[[ro:Mulțimea lui Mandelbrot]] |
|||
[[ru:Множество Мандельброта]] |
|||
[[sh:Mandelbrotov skup]] |
|||
[[simple:Mandelbrot set]] |
|||
[[sk:Mandelbrotova množina]] |
|||
[[sl:Mandelbrotova množica]] |
|||
[[sv:Mandelbrotmängden]] |
|||
[[te:మేండెల్బ్రాట్ సెట్]] |
|||
[[th:เซตมานดัลบรอ]] |
|||
[[tr:Mandelbrot kümesi]] |
|||
[[uk:Множина Мандельброта]] |
|||
[[vi:Tập hợp Mandelbrot]] |
2023年6月10日 (六) 13:49的最新版本
此條目需要补充更多来源。 (2020年9月23日) |
曼德博集合(英語:Mandelbrot set,或译為曼德布洛特复数集合)是一种在复平面上组成分形的点的集合,以數學家本華·曼德博的名字命名。曼德博集合與朱利亚集合有些相似的地方,例如使用相同的复二次多项式來进行迭代。
定义
[编辑]曼德博集合可以用複二次多项式来定义:
其中 是一个复数參数。
从 开始对 进行迭代:
每次迭代的值依序如以下序列所示:
不同的参数 可能使序列的绝对值逐漸發散到无限大,也可能收斂在有限的區域内。
特性
[编辑]相關的定理
[编辑]定理一
[编辑]若 ,則
證明:
[编辑]假設 為真
則
第一步:
[编辑]當 時
因為
由以上可得知
第二步:
[编辑]假設 成立
由上式可得知
由數學歸納法可得知對於所有的n(n=1,2,...), 皆比 小。
當n趨近無限大時 依然沒有發散,所以 ,故得證。
定理二
[编辑]若 ,則
證明:
[编辑]假設
則
第一步:
[编辑]當 時
由 ,左右同乘 再減去 可得到下式
由以上可得知
第二步:
[编辑]假設 成立,則
因為
由 ,左右同乘 再減去 可得到下式
由以上可得知
由數學歸納法可得知 ,可看出隨著迭代次數增加 逐漸遞增並發散。
假如不发散,则收敛于某个常数,
由 再取极限得 即 。
又 ,矛盾,故发散。
所以若 ,則 ,故得證。
定理三
[编辑]若 ,則
證明:
[编辑]要證明若 ,則
首先分別探討 與 兩種情形
由定理二可知道 且 時, 。
接著要證明 時的情況:
假設 ,因為 ,所以 ,而
因為
由 ,左右同乘 再減去 可得到下式
由以上可得知
由數學歸納法可得知 ,可看出隨著迭代次數增加 逐漸遞增並發散。
所以在 且 的情況下也是 。
綜合上述可得知不論 為多少
若 ,則 ,故得證。
利用定理三可以在程式計算時快速地判斷 是否會發散。
计算的方法
[编辑]曼德博集合一般用计算机程序计算。对于大多数的分形软件,例如Ultra fractal,内部已经有了比较成熟的例子。下面的程序是一段伪代码,表达了曼德博集合的计算思路。
For Each c in Complex
repeats = 0
z = 0
Do
z = z^2 + c
repeats = repeats + 1
Loop until abs(z) > EscapeRadius or repeats > MaxRepeats '根据定理三,EscapeRadius可设置为2。
If repeats > MaxRepeats Then
Draw c,Black '如果迭代次数超过MaxRepeats,就将c认定为属于曼德博集合,并设置为黑色。
Else
Draw c,color(z,c,repeats) 'color函数用来决定颜色。
End If
Next
決定顏色的一些方法
[编辑]- 直接利用循环终止时的Repeats
- 综合利用z和Repeats
- Orbit Traps
Mathematica代码
[编辑]mand = Compile[{{z0, _Complex}, {nmax, _Integer}},
Module[{z = z0, i = 1},
While[i < nmax && Abs[z] <= 2, z = z^2 + z0; i++]; i]];
ArrayPlot[
Reverse@Transpose@
Table[mand[x + y I, 500], {x, -2, 2, 0.01}, {y, -2, 2, 0.01}]]
各種圖示
[编辑]參考資料
[编辑]- ^ Mrob.com pixel counting. [2012-01-01]. (原始内容存档于2019-08-10).
- ^ Mrob.com area history. [2012-04-29]. (原始内容存档于2020-09-22).