c语言人工神经网络程序.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
c语言人工神经网络程序

#include stdlib.h #include math.h #include stdio.h #include time.h #define out_cout 2 //输出向量维数 #define in_cout 3 //输入向量维数 #define cout 6 //样本数量 typedef struct { //bp人工神经网络结构 int h; //实际使用隐层数量 double v[in_cout][50]; //隐藏层权矩阵i,隐层节点最大数量为100 double w[50][out_cout]; //输出层权矩阵 double a; //学习率 double b; //精度控制参数 int LoopCout; //最大循环次数 } bp_nn; double fnet(double net) { //sigmoid函数,神经网络激活函数 return 1/(1+exp(-net)); } int initbp(bp_nn *bp) { //初始化bp网络 printf(请输入隐层节点数,最大数为100:\n); scanf(%d,(*bp).h); printf(请输入学习率:\n); scanf(%lf,(*bp). a); //(*bp).a为double型数据,所以必须是lf printf(请输入精度控制参数:\n); scanf(%lf,(*bp).LoopCout ); int i, j; srand((unsigned)time(NULL)); for (i=0; iin_cout; i++) for(j=0; j(*bp).h; j++) (*bp).v[i][j]=rand()/(double)(RAND_MAX); for(i=0; i(*bp).h; i++) for (j=0; jout_cout; j++) (*bp).w[i][j]=rand()/(double)(RAND_MAX); return 1; } int trainbp(bp_nn*bp,float x[cout][in_cout],int y[cout][out_cout]) { //训练bp网络,样本为x,理想输出为y double f=(*bp).b; //精度控制参数 double a=(*bp).a; //学习率 int h=(*bp).h; //隐层节点数 double v[in_cout][50],w[50][out_cout]; //权矩阵 double ch_v[in_cout][50],ch_w[50][out_cout];//权矩阵修改量 double chgH[50],chgO[out_cout]; //修改量矩阵 double 01[50],02[out_cout]; //隐层和输出层输出量 int LoopCout=(*bp).LoopCout; //最大循环次数 int i,j,k,n; double temp; for (i=0;iin_cout;i++) //复制结构体中的权矩阵 for(j=0;ih;j++) w[i][j]=(*bp).w[i][j]; double e=f+1; for (n=0;efnLoopCout;n++) { //对每个样本训练网络 e=0; for(j=0;jout_cout;j++) chgO[j]=0; for(j=0;jh;j++) chgH[j]=0; for(j=0;jh;j++) for(k=0;kout_cout;k++) ch_w[j][k]=0; for(j=0;jin_cout;j++) for (k=0;kh;k++) { //计算隐层输出向量 temp=0; for(j=0;jin_cout;j++) temp=temp+x[i][j]*v[j][k]; 01[k]=fnet(temp); } for(k=0;kout_cout;k++) { //计算输出层输出向量 temp=0; for (j=0;jh;j++) temp=temp+01[j]*w[j][k]; 02[k]=fnet(

文档评论(0)

2017ll + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档