Perceptron Multicapa para XOR en c

#include"stdio.h" #include"conio.h" #include"dos.h" #include"math.h"  //VersionPMV1.0 //ENTRENAMIENTOPERCEPTRONMULTICAPA:(Parala //ENTRENAMIENTOPERCEP TRONMULTICAPA:(ParalafuncionlogicaXOR funcionlogicaXOR ) //2neuronasdeentradas //1capaocultacon2neuronas //1neuronadesalida  voidmain() { //*************************************INICIOPASO1(Inicializaciónde //*************************************INICIO PASO1(Inicializacióndevariables) variables) **************************************//  //ValoresinicialesALEATORIOSpesosyumbrales //Pesosdelacapadeentradaalacapaoculta //Pesosdelacapaocultaalacapadesalida //Umbralesdelacapaoculta(u12,u22)ycapadesalida(u3) /////////////////////////////////////////// /////////////////// ///////////////////////////////////////////// ///////////////////// floatw11=.1,w12=.3,w21=.1,w22=.5; floatv1=.5,v2=.2; floatu21=.2,u22=.5,u3=.4; /////////////////////////////////////////// /////////////////// ////////////////////////////////////////////// //////////////////////    floatdelta3=0,delta21=0,delta22=0;//D floatdelta3=0,delt a21=0,delta22=0;//Deltasparalamodificacio eltasparalamodificaciondelos ndelos pesosyumbrales floatalfa=0;//A floatalfa=0; //Alfa=Razondeaprendizaje lfa=Razondeaprendizaje

floatx1=0,x2=0;//Inicializaciónde floatx1=0,x2=0; //Inicializacióndevariables variables delPatrondeentradaalared floata11=0,a12=0; floata11=0,a12=0; //Activacionesdel //Activacionesdelasneuron asneuron asdelacapadeentrada(c=1) floata21=0,a22=0; floata21=0,a22=0; //Activacionesdel //Activacionesdelasneuron asneuron asdelacapaoculta(c=2) floata31=0; floata31=0; //Activacionesdel //Activacionesdelasneuron asneuron asdelacapadesalida(c=3) floaty=0; floaty=0; //Salidadelared //Salidadelared floats=0; floats=0; //Salidadeseada //Salidadeseada floatsum=0;//Variableusada floatsum=0; //Variableusadaparacalcularpartedel paracalcularpartedelerrrorto errrorto tal  floate=0;//Errorcuadraticoparaelpatronn floatE=0;//Errortotalcometidoporlared  intn=1;//n= intn=1; //n=#depatrondeentrada #depatrondeentrada floatN=0;//N= floatN=0; //N=Cantidadtotaldepatron Cantidadtotaldepatrones(Nmay es(Nmay uscula)

intm=1;//m=#deciclodeaprendizaje(unsign intm=1;//m=#deci clodeaprendizaje(unsignedparav edparav aloresmayoresde32000) intM=0;//M=Cantida intM=0; //M=Cantidadtotaldeciclosdeapre dtotaldeciclosdeaprendizaje(u ndizaje(u nsignedparavaloresmayoresde32000) //FININICIALIZACIONDEVARIABLES(FINPASO1) //************************************INICIOPASO2(Calculodelasali //************************************INICIOP ASO2(Calculodelasalidadela dadela red)**********************************// FILE*stream;// // clrscr();// // stream=fopen("c:prueba1","w"); stream=fopen("c: prueba1","w");//segeneraela //segeneraelarchivo"p rchivo"p rueba1"seguardaenC:TC/bin/prueba1  fprintf(stream,"VALORESINICIALESDELOSPESOSYUMBRALES\n\n"); fprintf(stream,"VALORESINICIALESDELOSPES OSYUMBRALES\n\n");//Seguar //Seguar dael"titulo"en"prueba1" fprintf(stream,"w11=%.6f\n",w11);// fprintf(stream,"w12=%.6f\n",w12);// fprintf(stream,"w21=%.6f\n",w21);// fprintf(stream,"w22=%.6f\n",w22);// fprintf(stream,"v1=%.6f\n",v1);//S fprintf(stream,"v1= %.6f\n",v1);//Seguardaelvalorytexto eguardaelvalorytextodelosp delosp esosyumbralesiniciales fprintf(stream,"v2=%.6f\n",v2);//( fprintf(stream,"v2= %.6f\n",v2);//(6decimales)en"prueba1" 6decimales)en"prueba1" fprintf(stream,"u21=%.6f\n",u21);// fprintf(stream,"u22=%.6f\n",u22);// fprintf(stream,"u3=%.6f\n\n",u3);//

printf("\nDameel#totaldepatrones(teclea4)N=\n"); printf("\nDameel#totaldepatrones(te clea4)N=\n");/ / / scanf("%f",&N); scanf("%f",&N); // //Cantidad Cantidad totaldepatrones printf("\n\nCantidadtotaldepatrones% printf("\n\nCant idadtotaldepatrones%f\n",N);// f\n",N);// fprintf(stream,"\n*****************************************\n"); fprintf(stream,"\n********************** *******************\n");//Seguar //Seguar daunalineadeasteriscosen"prueba1" fprintf(stream,"Cantidadtotaldepatron fprintf(stream," CantidadtotaldepatronesN=%f\n",N); esN=%f\n",N);//Seguar //Seguar daelvalorytextodeNenarchivo"prueba1" fprintf(stream,"************************ fprintf(stream," *****************************************\n"); *****************\n");//Seguar //Seguar daunalineadeasteriscosen"prueba1" printf("\nDameel#totaldeciclosM=\n");// printf("\nDameel#totaldeciclosM=\n ");// scanf("%i",&M); scanf("%i",&M); // //Cantidad Cantidad totaldeciclos printf("\n\nCantidadtotaldeciclos%i printf("\n\nCant idadtotaldeciclos%i\n",M);// \n",M);// fprintf(stream,"\n*****************************************\n"); fprintf(stream,"\n********************** *******************\n");//Seguar //Seguar daunalineadeasteriscosen"prueba1" fprintf(stream,"Cantidadtotaldeciclos fprintf(stream," CantidadtotaldeciclosM=%i\n",M); M=%i\n",M);//Seguar //Seguar daelvalorytextodeMenarchivo"prueba1" fprintf(stream,"************************ fprintf(stream," *****************************************\n"); *****************\n");//Seguar //Seguar daunalineadeasteriscosen"prueba1"

printf("\nDamelarazondeaprendizajealfa(Positivaentre0y1) printf("\nDamelarazondeaprendizajea lfa(Positivaentre0y1)=\n"); =\n"); // scanf("%f",&alfa); scanf("%f",&alfa );   //Razondeaprendizaje printf("\n\nAlfa=%f\n",alfa); printf("\n\nAlfa =%f\n",alfa);   // fprintf(stream,"\n*****************************************\n"); fprintf(stream,"\n********************** *******************\n");//Segu //Segu ardaunalineadeasteriscosen"prueba1" fprintf(stream,"Razondeaprendizajealf fprintf(stream," Razondeaprendizajealfa=%f\n",alfa); a=%f\n",alfa);//Segu //Segu ardaelvalorytextodealfaenarchivo"prueba1" fprintf(stream,"************************ fprintf(stream," *****************************************\n"); *****************\n");//Segu //Segu ardaunalineadeasteriscosen"prueba1"

printf("\n\nVALORESINICIALESDELOSPESOSYUMBRALES\n");// printf("\n\nVALORESINICIALESDELOSPES OSYUMBRALES\n");// printf("ValorW11=%.6f\n",w11); printf("ValorW1 1=%.6f\n",w11);// // printf("ValorW12=%.6f\n",w12); printf("ValorW1 2=%.6f\n",w12);// // printf("ValorW21=%.6f\n",w21); printf("ValorW2 1=%.6f\n",w21);// // printf("ValorW22=%.6f\n",w22); printf("ValorW2 2=%.6f\n",w22);//S //Sepresent epresent anenpantallalosvaloresiniciales printf("Valorv1=%.6f\n",v1); printf("Valorv1 =%.6f\n",v1);//d //delospes elospes osyumbralesdelared printf("Valorv2=%.6f\n",v2); printf("Valorv2 =%.6f\n",v2);// // printf("Valoru12=%.6f\n",u21); printf("Valoru1 2=%.6f\n",u21);// // printf("Valoru22=%.6f\n",u22); printf("Valoru2 2=%.6f\n",u22);// // printf("Valoru3=%.6f\n",u3); printf("Valoru3 =%.6f\n",u3);// //  for(m=1;m<=M;m++){//CicloFOR1 fprintf(stream,"############################################## fprintf(stream,"##################### ################################## ######### ############\n");//Lineade#en"prueba1" printf("\n#deciclom=%i\n",m); fprintf(stream,"#deciclom=%i\n\n\n",m); sum=0;//Seresetealavariablesumparacalcularel sum=0;//Seresetealavari ablesumparacalcularelerrorto errorto talparacadaciclo for(n=1;n<=N;n++){//CicloFor2  switch(n)  { case1:// x1=0;// x2=0;// s=0;// break;// // case2:// x1=0;// x2=1;//

s=1;//Seintroducenlospatrones(x1, s=1;//Sein troducenlospatrones(x1,x2,s)uno x2,s)uno porunoalincrementarsendelciclofor2 break;// // case3:// x1=1;// x2=0;// s=1;// break;// // case4:// x1=1;// x2=1;// s=0;// break;// } /////////////////////////////////////////////////// a11=x1;// a11=x1; // a12=x2; a12=x2; // //Calculod Calculod elasactivacionesdelasneuronasde printf("\n\nActivaciondelacapadeentra printf("\n\nActiva ciondelacapadeentradaa11=%f\n",a11);// daa11=%f\n",a11);//lacapad lacapad eentrada(c=1) printf("Activaciondelacapadeentradaa printf("Activacion delacapadeentradaa12=%f\n",a12);// 12=%f\n",a12);// a21=1/(1+exp(-(w11*a11+w21*a12+u21)));// a21=1/(1+exp(-(w11*a11+w21*a12+u21))); // a22=1/(1+exp(-(w12*a11+w22*a12+u22))); a22=1/(1+exp(-(w12 *a11+w22*a12+u22)));// //Calculod Calculod elasactivacionesdelasneuronasde printf("\n\nActivaciondelacapaocultaa printf("\n\nActiva ciondelacapaocultaa21=%f\n",a21);// 21=%f\n",a21);//lacapao lacapao culta(c=2) printf("Activaciondelacapaocultaa22= printf("Activacion delacapaocultaa22=%f\n",a22);// %f\n",a22);// a31=1/(1+exp(-(v1*a21+v2*a22+u3))); a31=1/(1+exp(-(v1*a21+v2*a22+u3))); //Calcul //Calcul odelaactivaciondelaneuronade printf("\n\nActivaciondelacapadesalid printf("\n\nActiva ciondelacapadesalidaa31=%f\n",a31); aa31=%f\n",a31);//lacap //lacap adesalida(c=3)  y=a31; y=a31;  //Salida //Salida delared printf("\n\nSalidadelaredy=%f\n",y); printf("\n\nSalida delaredy=%f\n",y); // //

fprintf(stream,"PATRONn=%i\n\n",n);//Seguardaelvalory fprintf(stream,"PATRONn=%i\n\n",n); //Seguardaelvalorytextode textode n(entero)enarchivo"prueba1" fprintf(stream,"valordex1=%.6f\n",x1); fprintf(stream,"valo rdex1=%.6f\n",x1);//Seguardaelvalory //Seguardaelvalorytextode textode x1(6decimales)en"prueba1" fprintf(stream,"valordex2=%.6f\n",x2); fprintf(stream,"valo rdex2=%.6f\n",x2);//Seguardaelvalory //Seguardaelvalorytextode textode x2(6decimales)en"prueba1" fprintf(stream,"valordes=%.6f\n",s); fprintf(stream,"valo rdes=%.6f\n",s);//Seguardaelvalory //Seguardaelvalorytextode textode lasalidadeseadasen"prueba1" fprintf(stream,"valordea11=%.6f\n",a11); fprintf(stream,"valo rdea11=%.6f\n",a11);//Seguardaelvalory //Seguardaelvalorytextode textode a11(6decimales)en"prueba1" fprintf(stream,"valordea12=%.6f\n",a12); fprintf(stream,"valo rdea12=%.6f\n",a12);//Seguardaelvalory //Seguardaelvalorytextode textode a12(6decimales)en"prueba1" fprintf(stream,"valordea21=%.6f\n",a21); fprintf(stream,"valo rdea21=%.6f\n",a21);//Seguardaelvalory //Seguardaelvalorytextode textode a21(6decimales)en"prueba1" fprintf(stream,"valordea22=%.6f\n",a22); fprintf(stream,"valo rdea22=%.6f\n",a22);//Seguardaelvalory //Seguardaelvalorytextode textode

a22(6decimales)en"prueba1" fprintf(stream,"valordea31=%.6f\n",a31); fprintf(stream,"valo rdea31=%.6f\n",a31);//Seguardaelvalory //Seguardaelvalorytextode textode a31(6decimales)en"prueba1" fprintf(stream,"valordey=%.6f\n\n\n",y); fprintf(stream,"valo rdey=%.6f\n\n\n",y);//Seguardaelvalo //Seguardaelvalorytexto rytexto dey(6decimales)en"prueba1"   //FINPASO2 //FINPASO2 //*****************************INICIOPASO3(Calculodelerrorcuadrat //*****************************INICIOPASO3( Calculodelerrorcuadraticodela icodela redparaelpatronn)****************// e=((s-y)*(s-y))/2; e=((s-y)*(s-y))/2; //Secalcu //Secalculaelerr laelerr orcuadratico printf("\n\nErrorcuadratico%f\n",e); printf("\n\nErrorcu adratico%f\n",e);//Seprese //Sepresentaeen ntaeen pantalla fprintf(stream,"Errorcuadraticoe=%.6f\n\ fprintf(stream,"Erro rcuadraticoe=%.6f\n\n\n",e);//Seguard n\n",e);//Seguardaeen"P aeen"P rueba1" sum=sum+e;//Guardando sum=sum+e; //Guardandolasumad lasumad elerroracumulado fprintf(stream,"sum=%.6f\n\n\n",sum); fprintf(stream,"sum= %.6f\n\n\n",sum);//Seguardasumen"Pru //Seguardasumen"Prueba1" eba1" //**********************************INICIOPASO4(Modificarpesosyum //**********************************INICIOPAS O4(Modificarpesosyumbralesde bralesde lared)******************************//  //CalculodelosDeltas delta3=-(s-y)*y*(1-y);//Delta3 delta21=a21*(1-a21)*delta3*v1;//Delta21 delta22=a22*(1-a22)*delta3*v2;//Delta22

v1=v1-(alfa*delta3*a21);// v2=v2-(alfa*delta3*a22);// u3=u3-(alfa*delta3);// // w11=w11-(alfa*delta21*a11); w11=w11-(alfa*delt a21*a11);//Calculodelosnu //Calculodelosnuevospeso evospeso syumbrales w12=w12-(alfa*delta22*a11);// w21=w21-(alfa*delta21*a12);// w22=w22-(alfa*delta22*a12);// u21=u21-(alfa*delta21);// u22=u22-(alfa*delta22);//

fprintf(stream,"VALORESDELOSPESOSYUMBRALESMODIFICADOS\n"); fprintf(stream,"VALORESDELOSPESOSYUMBRA LESMODIFICADOS\n");//Seguar //Seguar dael"titulo"en"prueba1" fprintf(stream,"Delta3=%.6f\n",delta3);// fprintf(stream,"Delta21=%.6f\n",delta21); fprintf(stream,"Delt a21=%.6f\n",delta21);//Seguardanen"pr //Seguardanen"prueba1"V ueba1"V aloresdelosdeltas fprintf(stream,"Delta22=%.6f\n",delta22);// fprintf(stream,"w11=%.6f\n",w11);// fprintf(stream,"w12=%.6f\n",w12);// fprintf(stream,"w21=%.6f\n",w21);// fprintf(stream,"w22=%.6f\n",w22);// fprintf(stream,"v1=%.6f\n",v1);//S fprintf(stream,"v1= %.6f\n",v1);//Seguardaelvalorytexto eguardaelvalorytextodelosp delosp esosyumbralesMODIFICADOS

fprintf(stream,"v2=%.6f\n",v2);//(6decimales)en"prueba1" fprintf(stream,"v2=%.6f\n",v2);//( 6decimales)en"prueba1" fprintf(stream,"u21=%.6f\n",u21);// fprintf(stream,"u22=%.6f\n",u22);// fprintf(stream,"u3=%.6f\n",u3);// fprintf(stream,"\n************************** fprintf(stream,"\n** ***************************************\n"); ***************\n");//Segua //Segua rdaunalineadeasteriscosen"prueba1" }//Finciclofor2 //*****************************************PAS //******************** *********************PASO5(Eselanteriorciclo O5(Eselanteriorciclo"for2") "for2") ****************************************//

//*********************************PASO6(CalculodelErrortotalcome //*********************************PASO6(Cal culodelErrortotalcometidopor tidopor lared)*******************************// fprintf(stream,"sum=%.6f\n\n\n",sum);//Seguardasumen"Pr fprintf(stream,"sum=%.6f\n\n\n",sum); //Seguardasumen"Prueba1" ueba1" E=(1/N)*(sum); E=(1/N)*(sum); //Se //Secalcula calcula elerrortotaldelared printf("\n\nErrortotaldelared%f\n",E) printf("\n\nErrort otaldelared%f\n",E);//Se ;//Sepresenta presenta eenpantalla fprintf(stream,"ErrortotalE=%.6f\n\n\n" fprintf(stream,"Err ortotalE=%.6f\n\n\n",E);//Se ,E);//Seguardae guardae en"Prueba1" }//Finciclofor1 //*****************************************PASO7(Eselanteriorciclo //*****************************************PAS O7(Eselanteriorciclo"for1") "for1") ****************************************// getch(); }