WPE|52wpe|我爱WPE

 找回密码
 注册会员
搜索
  • 1779查看
  • 0回复

主题

好友

4116

积分

论坛元老

发表于 2009-6-24 12:57:22 |显示全部楼层
#pragma   hdrstop
#include   <stdio.h>
#include   <iostream.h>

  const   A=30.0;
  const   B=10.0;
  const   MAX=500;               //最大训练次数
  const   COEF=0.0035;   //网络的学习效率
  const   BCOEF=0.001;//网络的阀值调整效率
  const   ERROR=0.002     ;   //   网络训练中的允许误差
  const   ACCURACY=0.0005;//网络要求精度
  double   sample[41][4]={{0,0,0,0},{5,1,4,19.020},{5,3,3,14.150},
                                                          {5,5,2,14.360},{5,3,3,14.150},{5,3,2,15.390},
                                                          {5,3,2,15.390},{5,5,1,19.680},{5,1,2,21.060},
                                                          {5,3,3,14.150},{5,5,4,12.680},{5,5,2,14.360},
                                                          {5,1,3,19.610},{5,3,4,13.650},{5,5,5,12.430},
                                                          {5,1,4,19.020},{5,1,4,19.020},{5,3,5,13.390},
                                                          {5,5,4,12.680},{5,1,3,19.610},{5,3,2,15.390},
                                                          {1,3,1,11.110},{1,5,2,6.521},{1,1,3,10.190},
                                                          {1,3,4,6.043},{1,5,5,5.242},{1,5,3,5.724},
                                                          {1,1,4,9.766},{1,3,5,5.870},{1,5,4,5.406},
                                                          {1,1,3,10.190},{1,1,5,9.545},{1,3,4,6.043},
                                                          {1,5,3,5.724},{1,1,2,11.250},{1,3,1,11.110},
                                                          {1,3,3,6.380},{1,5,2,6.521},{1,1,1,16.000},
                                                          {1,3,2,7.219},{1,5,3,5.724}};


  double   w[4][10][10],wc[4][10][10],b[4][10],bc[4][10];
  double   o[4][10],netin[4][10],d[4][10],differ;//单个样本的误差
  double   is;   //全体样本均方差
  int   count,a;

  void   netout(int   m,   int   n);//计算网络隐含层和输出层的输出
  void   calculd(int   m,int   n);   //计算网络的反向传播误差
  void   calcalwc(int   m,int   n);//计算网络权值的调整量
  void   calcaulbc(int   m,int   n);   //计算网络阀值的调整量
  void   changew(int   m,int   n);   //调整网络权值
  void   changeb(int   m,int   n);//调整网络阀值
  void   clearwc(int   m,int   n);//清除网络权值变化量wc

快速发帖

您需要登录后才可以回帖 登录 | 注册会员

手机版|Archiver|WPE|52wpe|我爱WPE ( 闽ICP备15009081号 )

GMT+8, 2024-5-15 13:34 , Processed in 0.057282 second(s), 16 queries .

返回顶部