批处理神经网络.bas.txt

利用VB进行神经网络预测

Attribute VB_Name = "Module1"
Option Base 1
Dim RecordNumber As Integer '储存样本组组数

Dim InputNumber As Integer  '储存输入节点个数

Dim HideNumber As Integer  '储存隐含节点个数

Dim OutputNumber As Integer '储存输出节点个数

Dim wucha As Single  '储存容许误差

Dim pace As Single  '储存学习速率

Dim maxwucha As Single '储存各个误差平方和的最大值

Dim Temp0, Temp1, Temp2, Temp3, cishu

Dim wuchamatrix() As Single  '储存每组数据输出层误差

Dim max() As Single  '储存每列最大值

Dim Tempinputdata() As Single '储存临时输入数据

Dim standardinputdata() As Single '储存标准化输入数据

Dim WIH() As Single '储存输入隐含层间权重

Dim WHO() As Single '储存隐含输出层间权重

Dim Temphidedata() As Single '储存隐含节点临时输出值

Dim hidedata() As Single '储存隐含节点实际输出值

Dim Tempoutputdata() As Single '储存输出节点临时输出值

Dim outputdata() As Single '储存输出节点实际输出值

Dim wuchaoutput() As Single '储存输出层的误差

Dim wuchahide() As Single  '储存隐含层的误差

Dim thresholdhide() As Single '储存隐含节点的阈值

Dim thresholdoutput() As Single '储存输出节点的阈值


Dim expect() As Single '储存每组数据的期望输出值

Dim Temp123() As Single '储存隐含层节点临时误差加和