module1.bas

小波分形算法源代码,写的不错,希望能给大家帮助!

Attribute VB_Name = "Public"
Option Explicit
'定义公共变量
Public Pn As Single
Public FormK2 As New FormK '用来做FormK的参数备份
Public PC As Boolean

'IFS方程的参数
Public W(0 To 10) As Boolean
Public A(0 To 10) As Double
Public B(0 To 10) As Double
Public C(0 To 10) As Double
Public D(0 To 10) As Double
Public E(0 To 10) As Double
Public F(0 To 10) As Double
Public P(0 To 10) As Double

Public DrawWidth As Long
Public Px1 As Double, Py1 As Double
Public Px2 As Double, Py2 As Double
Public Pxy() As Long, PxyT() As Boolean
Public Fa As Double, Fb As Double, Fc As Double

Public Whof As Long
Public HowHua As Long
Public Se1 As Long, Se2 As Long, Se3 As Long
Public Fx0 As Double, Fy0 As Double

'K2
Public K2a As Double, K2b As Double, K2c As Double
Public K2x0 As Double, K2y0 As Double
Public K2T As String, K2Tx As String, K2Ty As String, K2TError As String

Public PaoN As Double

Public Mang As Long

Public FmPSWidth
Public FmPSHeight


Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long