module1.bas

一个用C语言编写的求混沌序列的源程序,挺好的!

Attribute VB_Name = "Module1"
Option Explicit

'======================================================================
'控制参数的定义、基本操作函数 和 Min()、Max()函数
'======================================================================

'控制参数表
Public Const SeDataLen As Long = 200
Public SeData(-2 To SeDataLen, 0 To 19) As Double
      ' 23组参数,每组19个参数值
      ' SeData(0,i)组 为初始值
      ' SeData(-1,i)或SeData(-2,i) 为临时值
      ' SeData(i,0)=1标志该组有效
      
' PSeData“指向”控制参数数组，以决定上一幅或下一幅图像的参数在数组中的位置
Public PSeData As Long


'控制参数压入
Public Sub SeDataIN()
    Dim i As Long
    Dim j As Long
    For i = SeDataLen - 2 To 0 Step -1
        For j = 0 To 19
            SeData(i + 1, j) = SeData(i, j)
        Next j
    Next i
    SeData(1, 5) = 0
End Sub
 '控制参数弹出
Public Sub SeDataOUT()
    Dim i As Long
    Dim j As Long
    
    For i = 1 To SeDataLen - 1
        For j = 0 To 19
            SeData(i - 1, j) = SeData(i, j)
        Next j
    Next i
    SeData(0, 5) = 0
End Sub

'最小值
Public Function Min(x0 As Single, x1 As Single) As Single
    If x0 > x1 Then
        Min = x1
    Else
        Min = x0
    End If
End Function
'最大值
Public Function Max(x0 As Single, x1 As Single) As Single
    If x0 < x1 Then
        Max = x1
    Else
        Max = x0
    End If
End Function

'=======================================================