由于这种算法在本质上是一种神经网络学习的数学模型,所

《由于这种算法在本质上是一种神经网络学习的数学模型,所》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、反向传播算法也称BP算法。由于这种算法在本质上是一种神经网络学习的数学模型，所以，有时也称为BP模型。BP算法是为了解决多层前向神经网络的权系数优化而提出来的；所以，BP算法也通常暗示着神经网络的拓扑结构是一种无反馈的多层前向网络，它含有输人层、输出层以及处于输入输出层之间的中间层。中间层有单层或多层，由于它们和外界没有直接的联系，故也称为隐层。在隐层中的神经元也称隐单元。隐层虽然和外界不连接．但是，它们的状态则影响输入输出之间的关系。这也是说，改变隐层的权系数，可以改变整个多层神经网络的性能。   '程序实现功能：模拟QQ截屏    Priv

2、atemW1()AsDouble            '隐含层的权值          S1  X  RPrivatemW2()AsDouble            '输出层的权值          S2  X  RPrivatemB1()AsDouble            '隐含层的偏置值        S1  X  1PrivatemB2()AsDouble            '输出层的偏置值        S2  X  1PrivatemErr()AsDouble            '均方误差PrivatemMinMax(

3、)AsDouble        '输入向量的上下限      R  X  2PrivatemS1AsLong                '隐含层的神经元个数    S1PrivatemS2AsLong                '输出层的神经元个数    S2PrivatemRAsLong                  '输入层神经元个数      RPrivatemGoalAsDouble            '收敛的精度PrivatemLrAsDouble              '学习速度PrivatemGamaAsDo

4、uble            '动量系数PrivatemMaxEpochsAsLong          '最大的迭代次数PrivatemIterationAsLong          '实际的迭代次数'****************************************  中间变量  *******************************************PrivateHiddenOutput()AsDouble    '隐含层的输出PrivateOutOutput()AsDouble      '输出层的输出P

5、rivateHiddenErr()AsDouble      '隐含层各神经元的误差PrivateOutPutErr()AsDouble      '输出层各神经元的误差PrivatePdealing()AsDouble        '当前正在处理的输入PrivateTdealing()AsDouble        '当前正在处理的输入对应的输出PrivateOldW1()AsDouble          '旧权值数组PrivateOldW2()AsDouble          '旧权值数组PrivateOldB1()AsDouble 

6、         '旧偏置值数组PrivateOldB2()AsDouble          '旧偏置值数组PrivateTsAsLong                  '输入向量的总个数PrivateInitializedAsBoolean      '是否已初始化'****************************************  属性  *******************************************PublicEventUpdate(iteration)PublicPropertyGetW1(

7、)AsDouble()    W1=mW1EndPropertyPublicPropertyGetW2()AsDouble()    W2=mW2EndPropertyPublicPropertyGetB1()AsDouble()    B1=mB1EndPropertyPublicPropertyGetB2()AsDouble()    B2=mB2EndPropertyPublicPropertyGetErr()AsDouble()    Err=mErrEndPropertyPublicPropertyGetS1()AsLong    S

8、1=mS1EndPropertyPublicPropertyLetS1(ValueAsLong)    mS1=ValueEndPropertyPub