form1.frm

神经网络算法

VERSION 5.00
Object = "{F5541DA3-ACA9-11D7-9B1A-5254AB129787}#1.0#0"; "ShenJ.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin SHENJLib.ShenJ ShenJ1 
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   735
      _Version        =   65536
      _ExtentX        =   1296
      _ExtentY        =   873
      _StockProps     =   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()

Dim i As Integer
'观测时间序列
For i = 1 To 2
ShenJ1.getday (i)
Next i
Dim v1(1 To 2) As Double
Dim v2(1 To 2) As Double
Dim v3(1 To 2) As Double
Dim v4(1 To 2) As Double
'Dim v6(1 To 600) As Double
'Dim v7(1 To 600) As Double
'Dim v8(1 To 600) As Double
'Dim v9(1 To 600) As Double
'Dim v10(1 To 600) As Double
Dim v5(1 To 2) As Double
Dim v51(1 To 10) As Double

'例如:神经元为4个,则每个神经元的观测值要与观测时间
'相对应(时间序列为6,则每个神经元的观测值为6个)
v1(1) = 0.929616323127222
v1(2) = 1.88929370311959
v2(1) = 40.1007915584537
v2(2) = 45.1120098224345
v3(1) = 0
v3(2) = 0
v4(1) = 1.49999996647239E-02
v4(2) = 1.49999996647239E-02
v5(1) = 459
v5(2) = 613

'initdata 第一个参数为已有观测期数,第二个参数为神经元个数,第三个预测期数,第四个为限差
'例如:已有观测期数6,神经元个数4,预测期数5(可变]),限差1
ShenJ1.initdata 2, 5, 1, 0.2

'合并神经元的观测值存放到一个数组,'4为神经元个数
For i = 1 To 2
  v51((i - 1) * 5 + 1) = v1(i)
  v51((i - 1) * 5 + 2) = v2(i)
  v51((i - 1) * 5 + 3) = v3(i)
  v51((i - 1) * 5 + 4) = v4(i)
  v51((i - 1) * 5 + 5) = v5(i)
'  v51((i - 1) * 10 + 6) = v6(i)
'  v51((i - 1) * 10 + 7) = v7(i)
'  v51((i - 1) * 10 + 8) = v8(i)
'  v51((i - 1) * 10 + 9) = v9(i)
'  v51((i - 1) * 10 + 10) = v10(i)
  
Next i

'getvalue 方法传递观测数据
For i = 1 To 10
ShenJ1.getvalue v51(i)
Next i
'运行神经网络
ShenJ1.runmbp
'返回运算结果
MsgBox ShenJ1.returndata
End Sub