#include?“stdlib.h“
#include?“math.h“
#include?“conio.h“
#include?“stdio.h“
#include?“time.h“

#define?N?1?/*學習樣本個數(shù)（測試樣本個數(shù)）*/
#define?IN?4?/*輸入層神經(jīng)元數(shù)目*/
#define?HN?3?/*隱層神經(jīng)元數(shù)目*/
#define?HN1?2/*隱層神經(jīng)元數(shù)目*/
#define?ON?1?/*輸出層神經(jīng)元數(shù)目*/
float?P[IN];?/*單個樣本輸入數(shù)據(jù)*/
float?T[ON];?/*單個樣本教師數(shù)據(jù)*/
float?W[HN][IN];?/*輸入層至隱層權值*/
float?W1[HN1][HN];?/*輸入層至隱層權值*/
float?V[ON][HN1];?/*隱層至輸出層權值*/
float?X[HN];?/*隱層的輸入*/
float?X1[HN1];?/*隱層的輸入*/
float?Y[ON];?/*輸出層的輸入*/
float?H[HN];?/*隱層的輸出*/
float?H1[HN1];?/*隱層的輸出*/
float?O[ON];?/*輸出層的輸出*/
float?YU_HN[HN];?/*隱層的閾值*/
float?YU_HN1[HN1];?/*隱層的閾值*/
float?YU_ON[ON];?/*輸出層的閾值*/
float?err_m[N];?/*第m個樣本的總誤差*/
float?a1;?/*輸出層至隱層學習效率*/
float?a;?/*（輸出）yi層至隱層學習效率*/
float?b;?/*隱層至輸入層學習效率*/
float?alpha;??/*/動量因子，改進型bp算法使用*/
float?d_err[ON];/*δk*/
float?e_err1[HN1];/*δj*/
float?e_err[HN];/*δj*/
FILE?*fp;
/*定義一個放學習樣本的結(jié)構(gòu)*/
struct?{
float?input[IN];
float?teach[ON];
???????}Study_Data[N];
/*定義一個放測試樣本的結(jié)構(gòu)*/
struct?{
float?input[IN];
float?expect[ON];
???????}Test_Data[N];
/*改進型bp算法用來保存每次計算的權值*/
float?old_W[HN][IN];
float?old_V[ON][HN];
float?old_W1[ON][HN];

int?Start_Show（）
{
//clrscr（）;
	system（“cls“）;?
printf（“\n???????????????????????***********************?\n“）;
printf（“???????????????????????*????Welcome?to?use???*\n“）;
printf（“???????????????????????*??this?program?of????*\n“）;
printf（“???????????????????????*??calculating?the?BP?*\n“）;
printf（“???????????????????????*??????model!?????????*\n“）;
printf（“???????????????????????*???Happy?every?day!??*\n“）;
printf（“???????????????????????***********************\n“）;
printf（“\n\nBefore?startingplease?read?the?follows?carefully:\n\n“）;
printf（“????The?program?of?BP?can?study?itself?for?no?more?than?200000?times.\nAnd?surpassing?the?numberthe?program?will?be?ended?by?itself?in\npreventing?running?infinitely?because?of?error!\n“）;
printf（“\n\n\n“）;
printf（“Now?press?any?key?to?start...\n“）;
getch（）;
//clrscr（）;
system（“cls“）;?
return?1;
}
int?End_Show（）
{
printf（“\n\n---------------------------------------------------\n“）;
printf（“The?program?has?reached?the?end?successfully!\n\nPress?any?key?to?exit!\n\n“）;
printf（“\n???????????????????????***********************\n“）;
printf（“???????????????????????*????This?is?the?end??*\n“）;
printf（“???????????????????????*?of?the?program?which*\n“）;
printf（“???????????????????????*?can?calculate?the?BP*\n“）;
printf（“???????????????????????*??????model!?????????*\n“）;
printf（“???????????????????????***********************\n“）;
printf（“???????????????????????*??Thanks?for?using!??*\n“）;
printf（“???????????????????????*???Happy?every?day!??*\n“）;
printf（“???????????????????????***********************\n“）;
getch（）;
exit（0）;
}


/*讀取訓練樣本*/
GetTrainingData（）
{int?ijm;
?float?datr;
?if（（fp=fopen（“sample.txt““r“））==NULL）
?????{
??????printf（“Cannot?open?file?strike?any?key?exit!“）;
??????getch（）;
??????exit（1）;
?????}
?for（i=0;i?????{j=0;
??????while（j!=（

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????529??2009-05-06?15:34??bp.dsw

?????文件??????50176??2009-05-07?21:53??bp.ncb

?????文件?????????88??2009-05-07?21:24??sample.txt

?????文件????????440??2009-05-07?21:50??weight.txt

?????文件????????867??2009-05-07?21:50??bp.plg

?????文件????????174??2009-05-07?21:50??limit.txt

?????文件??????????9??2009-05-07?20:33??test.txt

?????文件??????48640??2009-05-07?21:53??bp.opt

?????文件??????41984??2009-05-07?21:50??Debug\vc60.idb

?????文件??????53248??2009-05-07?21:49??Debug\vc60.pdb

?????文件?????235464??2009-05-07?20:49??Debug\bp.pch

?????文件?????295408??2009-05-07?21:50??Debug\bp.ilk

?????文件?????258097??2009-05-07?21:50??Debug\bp.exe

?????文件?????615424??2009-05-07?21:50??Debug\bp.pdb

?????文件??????43773??2009-05-07?21:49??Debug\bp.obj

?????文件??????????0??2009-05-06?15:34??bp.asp

?????文件??????15299??2009-05-07?21:52??bp.cpp

?????文件???????4230??2009-05-07?21:53??bp.dsp

?????目錄??????????0??2009-05-06?15:34??Debug

-----------?---------??----------?-----??----

??????????????1663850????????????????????19