已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
精品文档/BP神经网络算法,c语言版本/VS2010下,无语法错误,可直接运行/添加了简单注释/欢迎学习交流#include #include #include #include #define N_Out 2 /输出向量维数#define N_In 3/输入向量维数#define N_Sample 6 /样本数量/BP人工神经网络typedef struct int LayerNum;/中间层数量double vN_In50;/中间层权矩阵i,中间层节点最大数量为50double w50N_Out;/输出层权矩阵double StudyRate;/学习率double Accuracy;/精度控制参数int MaxLoop;/最大循环次数 BPNet;/Sigmoid函数double fnet(double net) return 1/(1+exp(-net);/初始化int InitBpNet(BPNet *BP);/训练BP网络,样本为x,理想输出为yint TrainBpNet(BPNet *BP, double xN_SampleN_In, int yN_SampleN_Out) ;/使用BP网络int UseBpNet(BPNet *BP);/主函数int main()/训练样本double xN_SampleN_In = 0.8,0.5,0, 0.9,0.7,0.3,1,0.8,0.5,0,0.2,0.3,0.2,0.1,1.3,0.2,0.7,0.8; /理想输出int yN_SampleN_Out = 0,1,0,1,0,1,1,1,1,0,1,0; BPNet BP;InitBpNet(&BP); /初始化BP网络结构TrainBpNet(&BP, x, y); /训练BP神经网络UseBpNet(&BP); /测试BP神经网络return 1; /使用BP网络int UseBpNet(BPNet *BP) double InputN_In;double Out150; double Out2N_Out; /Out1为中间层输出,Out2为输出层输出/持续执行,除非中断程序while (1) printf(请输入3个数:n);int i, j;for (i = 0; i N_In; i+)scanf_s(%f, &Inputi);double Tmp;for (i = 0; i (*BP).LayerNum; i+) Tmp = 0;for (j = 0; j N_In; j+)Tmp += Inputj * (*BP).vji;Out1i = fnet(Tmp);for (i = 0; i N_Out; i+) Tmp = 0;for (j = 0; j (*BP).LayerNum; j+)Tmp += Out1j * (*BP).wji;Out2i = fnet(Tmp);printf(结果: );for (i = 0; i N_Out; i+)printf(%.3f , Out2i);printf(n);return 1;/训练BP网络,样本为x,理想输出为yint TrainBpNet(BPNet *BP, double xN_SampleN_In, int yN_SampleN_Out) double f = (*BP).Accuracy; /精度控制参数double a = (*BP).StudyRate; /学习率int LayerNum = (*BP).LayerNum; /中间层节点数double vN_In50, w50N_Out; /权矩阵double ChgH50, ChgON_Out; /修改量矩阵double Out150, Out2N_Out; /中间层和输出层输出量int MaxLoop = (*BP).MaxLoop; /最大循环次数int i, j, k, n;double Tmp;for (i = 0; i N_In; i+)/ 复制结构体中的权矩阵 for (j = 0; j LayerNum; j+)vij = (*BP).vij;for (i = 0; i LayerNum; i+)for (j = 0; j f & n MaxLoop; n+) e = 0;for (i= 0; i N_Sample; i+) /计算中间层输出向量for (k= 0; k LayerNum; k+) Tmp = 0;for (j = 0; j N_In; j+)Tmp = Tmp + xij * vjk; Out1k = fnet(Tmp);/计算输出层输出向量for (k = 0; k N_Out; k+) Tmp = 0;for (j = 0; j LayerNum; j+)Tmp = Tmp + Out1j * wjk;Out2k = fnet(Tmp);/计算输出层的权修改量 for (j = 0; j N_Out; j+) ChgOj = Out2j * (1 - Out2j) * (yij - Out2j);/计算输出误差for (j = 0; j N_Out ; j+) e = e + (yij - Out2j) * (yij - Out2j);/计算中间层权修改量for (j = 0; j LayerNum; j+) Tmp = 0;for (k = 0; k N_Out; k+)Tmp = Tmp + wjk * ChgOk;ChgHj = Tmp * Out1j * (1 - Out1j);/修改输出层权矩阵for (j = 0; j LayerNum; j+) for (k = 0; k N_Out; k+)wjk = wjk + a * Out1j * ChgOk; for (j = 0; j N_In; j+)for (k = 0; k LayerNum; k+)vjk = vjk + a * xij * ChgHk; if (n % 10 = 0)printf(误差 : %fn, e);printf(总共循环次数:%dn, n);printf(调整后的中间层权矩阵:n);for (i = 0; i N_In; i+) for (j = 0; j LayerNum; j+)printf(%f , vij); printf(n);printf(调整后的输出层权矩阵:n);for (i = 0; i LayerNum; i+) for (j = 0; j N_Out; j+)printf(%f , wij); printf(n);/把结果复制回结构体 for (i = 0; i N_In; i+) for (j = 0; j LayerNum; j+)(*BP).vij = vij;for (i = 0; i LayerNum; i+)for (j = 0; j N_Out; j+)(*BP).wij = wij;printf(BP网络训练结束!n);return 1;/初始化int InitBpNet(BPNet *BP) printf(请输入中间层节点数,最大数为100:n); scanf_s(%d, &(*BP).LayerNum);printf(请输入学习率:n);scanf_s(%lf, &(*BP).StudyRate); /(*BP).StudyRate为double型数据,所以必须是lfprintf(请输入精度控制参数:n);scanf_s(%lf, &(*BP).Accuracy);printf(请输入最大循环次数:n);scanf_s(%d, &(*BP).MaxLoop);int i, j;srand(unsigned)time(NULL);for (i = 0; i N_In; i+) for (j = 0; j (*BP).LayerNum; j+)(*BP).vij = rand() / (double)(RA
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 内蒙古行政职业能力真题2015年
- 四川省申论模拟200
- 河南申论模拟74
- 建筑与小区海绵城市建设项目评分表
- 2010年3月6日山西省公务员面试真题
- 建筑工程弱电基础培训课件
- 2024年幼儿园转让合同
- 2024年棋牌室承包经营协议
- 2024年信用借款合同书范本
- 河北省公务员面试模拟178
- 中华民族共同体概论课件专家版4第四讲 天下秩序与华夏共同体的演进(夏商周时期)
- 五年级道德与法治下册第一单元单元整体教学设计
- 小班体育活动《跳圈圈》含反思
- 基于情境的小学语文学习任务群设计与实施
- 及发包人、的监理及的设计人的配合
- 污水管网巡查及养护 投标方案(技术方案)
- 鞋子试穿报告
- 《个人所得税问题》课件
- 大学生职业生涯规划书数学与应用数学
- VRAR技术在音像文化中的应用
- 劳务派遣安全知识培训课件
评论
0/150
提交评论