混沌游戏

文章摘自《混沌与分形——科学的新疆界》（第二版）（一些德国人写的-_-）,国防工业出版社

这是由 Micheal F. Barnsley命名的混沌“游戏”。找一看，似乎与混沌和分形没有什么联系。。。

 

我简要说明一下，不把整篇文章打出来。有一个三角形，三个顶点。在平面内取一个随机点，任意一点，记住它的位置。扔骰子，有1、2、3，这些点数，6=1，5=2，4=3。点数对应一个顶点。设A=1、 B=2 、C=3。现取这个随机点与由骰子确定的点的连线的中点作为新的随机点（这点很重要，迭代，i=i+1这种）,记录这个点（就是画），再扔骰子，重复上述动作，当迭代很多次后（1500次是很好的选择），形成著名的Sierpinski垫片。

 

 

 

 

 

 

 

原文摘要

图1.17中的前几个游戏点根据其出现顺序用x0,x1,x2···表示。可以看出，混沌游戏是产生随机点序列的简单方法，其过程看起来挺简单的，不过随着这个反馈系统运行，这个初步的印象很快就会改变。

你能猜到游戏经过很多轮后的结果是什么吗？由小圆点x0,x1,···，x1000能组成什么样的图形？值得注意的是，一旦游戏点落到由三个基点组成的三角形内部，整个游戏就会一直在其内部进行。而且，即便我们在三角形外选择一个点作为起始点，游戏点也迟早会落到三角形内部。因此直觉告诉我们，由于游戏点是随机产生的，因而小圆点应该是均匀分布在几点1.2和3之间的。是的，小圆点的分布的却是随机的，但它们组成的图像不是随机的。我们可以清晰的看出Sierpinski垫片的图像，这种有序的结构绝不是随机图形

 

代码

 

Private Type POINT x As Double y As Double End Type Private A As POINT Private B As POINT Private C As POINT Private Function MidPoint(pt1 As POINT, pt2 As POINT) As POINT MidPoint.x = (pt1.x + pt2.x) / 2 MidPoint.y = (pt1.y + pt2.y) / 2 End Function Private Sub Give(pt As POINT, ByVal x As Double, ByVal y As Double) '********************* 'Assignment pt.x = x pt.y = y End Sub Private Sub Command1_Click() Cls Triangle Dim times As Long Dim pt As POINT Dim D As Integer ' Dices If IsNumeric(Text1.Text) Then times = CLng(Text1.Text) Give pt, Rnd * 100, Rnd * 100 Randomize For i = 1 To times D = Int(Rnd * 3) + 1 If D = 1 Then pt = MidPoint(pt, A) ElseIf D = 2 Then pt = MidPoint(pt, B) Else pt = MidPoint(pt, C) End If PSet (pt.x, pt.y) Next End If End Sub Private Sub Form_Activate() 'p1(0,80) 'p2(-80,-80) 'p3(80,-80) Triangle End Sub Private Sub Form_Load() Give A, 0, 80 Give B, -80, -80 Give C, 80, -80 Me.Scale (-100, 100)-(100, -100) End Sub Private Sub Triangle() Me.Line (0, 80)-(-80, -80) Me.Line (0, 80)-(80, -80) Me.Line (-80, -80)-(80, -80) End Sub