BP神經網絡算法的C語言實現代碼

1、可編輯/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,中間層節(jié)點最大數量為50double w50N_Out;/輸出層權矩陣double StudyRate;/學習率double Accuracy;/精度控

2、制參數int MaxLoop;/最大循環(huán)次數 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,

3、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為輸出層輸出/持

4、續(xù)執(zhí)行，除非中斷程序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

5、;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; /中間層節(jié)點數double vN_In5

6、0, w50N_Out; /權矩陣double ChgH50, ChgON_Out; /修改量矩陣double Out150, Out2N_Out; /中間層和輸出層輸出量int MaxLoop = (*BP).MaxLoop; /最大循環(huán)次數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=

7、 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 - O

8、ut2j) * (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 * Ou

9、t1j * 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(總共循環(huán)次數：%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+) fo

10、r (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(請輸入中間層節(jié)點數，最大數為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(請輸入最大循環(huán)次數：n);scanf_s(%d, &(*BP).MaxLoop);int i, j;srand(unsigned)time(NULL);for (i = 0; i N_In; i+) for (j = 0; j (