main.frm

《宇宙为家》中的NK网络的VB实现。搞基因的可以一看

VERSION 5.00
Begin VB.Form main 
   Caption         =   "Form1"
   ClientHeight    =   4815
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6150
   LinkTopic       =   "Form1"
   ScaleHeight     =   321
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   410
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   5280
      Top             =   4200
   End
   Begin VB.CommandButton Command_go 
      Caption         =   "go"
      Height          =   1335
      Left            =   360
      TabIndex        =   0
      Top             =   3120
      Width           =   1335
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(1 To 49) As Boolean 'N=7*7
Dim b(1 To 49, 1 To 2) As Integer 'K=2
Dim n As Integer
Dim k As Integer
Dim step As Integer

Dim a1 As Long '存放数组a转为的整数
Dim a2 As Long


Private Sub Command_go_Click()

'初始化a
    Randomize
    Dim i As Integer
    
    Debug.Print "***"
    For i = 1 To n
        a(i) = Int(Rnd() * 1.4)
        Debug.Print a(i)
    Next i
    
    a1 = 0
    For i = 1 To 30
        a1 = a1 * 2 + a(i)
    Next i
    Debug.Print "a1:"
    Debug.Print -a1

'初始化b
    Randomize
    For i = 1 To n
        b(i, 1) = Int(Rnd() * n + 1)
        b(i, 2) = Int(Rnd() * n + 1)
        'Debug.Print b(i, 2)
    Next i

'开始迭代
    ScaleMode = 3
    DrawWidth = 15
    ForeColor = QBColor(5)
    
'第一副
    Dim j As Integer
    For i = 0 To 6
        For j = 1 To 7
            PSet ((i + 1) * 25, j * 25), a(i * 6 + j) * 1
            DoEvents
        Next j
    Next i

    Timer1.Enabled = True
    'Command_go.Visible = False
    
End Sub

Private Sub Form_Load()

    Timer1.Enabled = False
    Timer1.Interval = 250
    
    step = 1
    
    n = 49
    k = 2
    
    a1 = 0
    a2 = 0
        
End Sub

Private Sub Timer1_Timer()

    ScaleMode = 3
    DrawWidth = 15
    ForeColor = QBColor(5)
    
'后面的每一幅
    Dim i As Integer
    Dim j As Integer
    
    For i = 1 To n
        a(i) = a(b(i, 1)) Or a(b(i, 2)) 'or关系，即考夫曼所谓“疏导布尔作用”
    Next i
    
    For i = 0 To 6
        For j = 1 To 7
            PSet ((i + 1) * 25, j * 25), a(i * 6 + j) * 1
            DoEvents
        Next j
    Next i
    
    a2 = a1
    a1 = 0
    For i = 1 To 30
        a1 = a1 * 2 + a(i)
    Next i

'绘制a1
    step = step + 1
    'PSet (step, (-a1) / 10 ^ 7)
    
'判断稳定
    If a2 = a1 Then
        Timer1.Enabled = False
        a1 = 0
        Command_go_Click
    End If

End Sub