module1.bas

基于VB语言的微粒群算法

Attribute VB_Name = "Module1"
Public Const DataNum = 20 '已知实验数据的数目,当数据点数改变时应当更改此数据点数
Public Const CompNum = 3 '已知每一相中的组分数

Public Type Individual
       v() As Double       '变量变化步长
       x() As Double       '变量值
       Value As Double     '目标函数值
End Type