www.pudn.com > 牛顿法解方程之混沌情况1.32源代码.zip > Module1.bas

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 
 
'=======================================================