包含一个隐层的一般bp网络.docVIP

//包含一个隐层的一般bp网络//输出不止一个单元//用此网络解决XOR问题的程序如下#include?stdio.h#include?math.h #define?TRAINNUM?3??????????//训练集总数#define?INPUTNUM?10??????????//输入层单元个数#define?OUTPUTNUM?1?????????//输出层单元个数#define?MASKNUM?5???????????//隐层单元个数#define?SWIT?1??????????????//洗牌开关#define?BETA?1??????????????//Segmiod函数中的参数Beta#define?ETA??0.08????????????//学习率#define?VAREPSILON?0.0000005???//误差控制#define?TIMES?50000??????????//迭代次数控制 double?E;??????????????????????????????????????????//误差int????Cycletimes;?????????????????????????????????//迭代次数int????RandomSequence[TRAINNUM];???????????????????//随机训练序列int????mll[TRAINNUM+1];int????Input[TRAINNUM+1][INPUTNUM+1];??????????????//输入向量int????Expectation[TRAINNUM+1][OUTPUTNUM+1];???????//期望输出向量double?Output[TRAINNUM+1][OUTPUTNUM+1];????????????//实际输出向量double?w_in[MASKNUM+1][INPUTNUM+1];????????????????//输入层和隐层之间的权值double?w_out[OUTPUTNUM+1][MASKNUM+1];??????????????//输出层和隐层之间的权值 /********************读取训练集********************/int?ReadData(){int?j,n,m;FILE?*fp; if((fp=fopen(dut.txt,r))==NULL){printf(cannot?open?this?file\n);return(1);}for(j=1;j=TRAINNUM;j++){for(n=1;n=INPUTNUM;n++)fscanf(fp,%d,Input[j][n]);//输入向量//fscanf(fp,%d,mll[j]);for(m=1;m=OUTPUTNUM;m++)fscanf(fp,%d,Expectation[j][m]);//期望输出向量}fclose(fp);return(0);}/********************输出结果********************/int?WriteData(){int?j,m;FILE?*fp; fp=fopen(result.txt,a+);if((Cycletimes==(TIMES+1))(EVAREPSILON)){fprintf(fp,失败!!!!!!!!\n);fprintf(fp,Don;;t?give?up,come?on!~?:)\n);}else{fprintf(fp,Success!!!!!!!!\n);fprintf(fp,You?did?a?good?job!~?:)\n);fprintf(fp,迭代次数:);fprintf(fp,%d\n,Cycletimes);fprintf(fp,误????差:);fprintf(fp,%f\n,E);fprintf(fp,实际输出:\n);for(j=1;j=TRAINNUM;j++){for(m=1;m=OUTPUTNUM;m++){fprintf(fp,%f\n,Output[j][m]);}}}fprintf(fp,/////////////////////////////////////\n);fclose(fp);return(0);}/********************随机赋初始权值********************/void?PrimalWeight(){int?i,j;double?RandomSgn; srand((unsigned)time(NULL));