chaos_dimension.frm

修改过去混沌算法中的参数选择问题,使算法变得更准确.

VERSION 5.00
Begin VB.Form chaos_dimension 
   Caption         =   "dimension"
   ClientHeight    =   2688
   ClientLeft      =   56
   ClientTop       =   378
   ClientWidth     =   4368
   LinkTopic       =   "Form1"
   ScaleHeight     =   2688
   ScaleWidth      =   4368
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton 计算混沌相关维数 
      Caption         =   "计算混沌相关维数"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12.12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   481
      Left            =   1053
      TabIndex        =   0
      Top             =   819
      Width           =   2353
   End
End
Attribute VB_Name = "chaos_dimension"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub 计算混沌相关维数_Click()
    Dim X(1000) As Double
    Dim i As Long
    
    
    
    For i = 1 To 1000
        If i = 1 Then
          X(i) = 1
        Else
          X(i) = 4 * X(i - 1) * (1 - X(i - 1))
          X(i) = i * i
        End If
    Next i
    
    
    
    Dim flai As New correlation_dimension
    Call flai.computing_correlation_dimension(X())
End Sub