分享BP神经网络VC源代码.doc

[分享]BP神经网络VC源代码 #include conio.h #include math.h #include stdlib.h #include stdio.h #define Beta 1.0 #define NAME_MAX 80 double bp(w_ih,w_ho,patt,targ,nn,hh,pp,mm,fin,fileW, resultF,crition,total,sa)； double **w_ih;/* weight from input to hidden */ double **w_ho;/* weight from hidden to output */ double **patt;/* input patterns */ double **targ;/* desired outputs */ intnn;/* input dim */ int hh;/* hidden dim */ int pp;/* output dim */ int mm;/* training patterns number */ int*fin;/* flag for terminate */ char*fileW;/* weightFile */ char*resultF;/* resultFile Name */ doublecrition;/* minimum mean square */ int total; int sa;/* flag for saving weights */ { double *output; int i,j,s,num_p,num_d,mis,mis_tr,mis_te; double err; char Msg[NAME_MAX],Msg1[NAME_MAX],Msg2[NAME_MAX], Msg3[NAME_MAX],Msg4[NAME_MAX],Msg5[NAME_MAX]; FILE *fp; FILE *cor; extern int maximum(double *,int); //extern void drawbp(double **,double **,int,int,int); void feedward(double **,double **,double *,double *,int,int,int); double errSqu(double *,double *,int); output=(double *)calloc(pp,sizeof(double)); err=0.0; for (i=0;imm;i++) { feedward(w_ih,w_ho,patt,output,nn,hh,pp); err +=errSqu(output,targ,pp); } /* err=sqrt(err/(pp*mm)); mean-square-root */ err=err/(pp*mm); /* mean-square */ if ((err=crition)||(sa==1)) { /* draw bp */ //drawbp(w_ih,w_ho,nn,hh,pp); if (err=crition) *fin=1; if ((fp=fopen(fileW,wt))==NULL) { fprintf(stderr,cannot open %s file for writing\n,fileW); exit(1); } sprintf(Msg,weight from input to hidden); fprintf(fp,%s\n,Msg); for (j=0;jhh;j++) { for (s=0;s(nn+1);s++) fprintf(fp,%f\t,w_ih[j][s]); fprintf(fp,\n); } sprintf(Msg,weight from hidden to output); fprintf(fp,%s\n,Msg); for (j=0;jpp;j++) { for (s=0;s(hh+1);s++) fprintf(fp,%f\t,w_ho[j][s]); fprintf(fp,\n); } fclose(fp); if ((cor=fopen(resultF,wt))==NULL) { fprintf(stderr,cannot open %s for writing\n,resultF); exit(1); } sprintf(Msg,Index); sprintf