




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、/BP神經(jīng)網(wǎng)絡(luò)算法,c語言版本/VS2010下,無語法錯誤,可直接運行/添加了簡單注釋/歡迎學(xué)習(xí)交流#include #include #include #include #define N_Out 2 /輸出向量維數(shù)#define N_In 3/輸入向量維數(shù)#define N_Sample 6 /樣本數(shù)量/BP人工神經(jīng)網(wǎng)絡(luò)typedef struct int LayerNum;/中間層數(shù)量double vN_In50;/中間層權(quán)矩陣i,中間層節(jié)點最大數(shù)量為50double w50N_Out;/輸出層權(quán)矩陣double StudyRate;/學(xué)習(xí)率double Accuracy;/精度控制參數(shù)
2、int MaxLoop;/最大循環(huán)次數(shù) BPNet;/Sigmoid函數(shù)double fnet(double net) return 1/(1+exp(-net);/初始化int InitBpNet(BPNet *BP);/訓(xùn)練BP網(wǎng)絡(luò),樣本為x,理想輸出為yint TrainBpNet(BPNet *BP, double xN_SampleN_In, int yN_SampleN_Out) ;/使用BP網(wǎng)絡(luò)int UseBpNet(BPNet *BP);/主函數(shù)int main()/訓(xùn)練樣本double xN_SampleN_In = 0.8,0.5,0, 0.9,0.7,0.3,1,0.8
3、,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網(wǎng)絡(luò)結(jié)構(gòu)TrainBpNet(&BP, x, y); /訓(xùn)練BP神經(jīng)網(wǎng)絡(luò)UseBpNet(&BP); /測試BP神經(jīng)網(wǎng)絡(luò)return 1; /使用BP網(wǎng)絡(luò)int UseBpNet(BPNet *BP) double InputN_In;double Out150; double Out2N_Out; /Out1為中間層輸出,Out2為輸出層輸出/持續(xù)執(zhí)行
4、,除非中斷程序while (1) printf(請輸入3個數(shù):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;Ou
5、t2i = fnet(Tmp);printf(結(jié)果: );for (i = 0; i N_Out; i+)printf(%.3f , Out2i);printf(n);return 1;/訓(xùn)練BP網(wǎng)絡(luò),樣本為x,理想輸出為yint TrainBpNet(BPNet *BP, double xN_SampleN_In, int yN_SampleN_Out) double f = (*BP).Accuracy; /精度控制參數(shù)double a = (*BP).StudyRate; /學(xué)習(xí)率int LayerNum = (*BP).LayerNum; /中間層節(jié)點數(shù)double vN_In50,
6、w50N_Out; /權(quán)矩陣double ChgH50, ChgON_Out; /修改量矩陣double Out150, Out2N_Out; /中間層和輸出層輸出量int MaxLoop = (*BP).MaxLoop; /最大循環(huán)次數(shù)int i, j, k, n;double Tmp;for (i = 0; i N_In; i+)/ 復(fù)制結(jié)構(gòu)體中的權(quán)矩陣 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= 0;
7、 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);/計算輸出層的權(quán)修改量 for (j = 0; j N_Out; j+) ChgOj = Out2j * (1 - Out2
8、j) * (yij - Out2j);/計算輸出誤差for (j = 0; j N_Out ; j+) e = e + (yij - Out2j) * (yij - Out2j);/計算中間層權(quán)修改量for (j = 0; j LayerNum; j+) Tmp = 0;for (k = 0; k N_Out; k+)Tmp = Tmp + wjk * ChgOk;ChgHj = Tmp * Out1j * (1 - Out1j);/修改輸出層權(quán)矩陣for (j = 0; j LayerNum; j+) for (k = 0; k N_Out; k+)wjk = wjk + a * Out1j
9、 * 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)次數(shù):%dn, n);printf(調(diào)整后的中間層權(quán)矩陣:n);for (i = 0; i N_In; i+) for (j = 0; j LayerNum; j+)printf(%f , vij); printf(n);printf(調(diào)整后的輸出層權(quán)矩陣:n);for (i = 0; i LayerNum; i+) for (
10、j = 0; j N_Out; j+)printf(%f , wij); printf(n);/把結(jié)果復(fù)制回結(jié)構(gòu)體 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網(wǎng)絡(luò)訓(xùn)練結(jié)束!n);return 1;/初始化int InitBpNet(BPNet *BP) printf(請輸入中間層節(jié)點數(shù),最大數(shù)為100:n); scanf_s(%d, &(*BP).LayerNum);printf(請輸入學(xué)習(xí)率:n);scanf_s(%lf, &(*BP).StudyRate); /(*BP).StudyRate為double型數(shù)據(jù),所以必須是lfprintf(請輸入精度控制參數(shù):n);scanf_s(%lf, &(*BP).Accuracy);printf(請輸入最大循環(huán)次數(shù):n);scanf_s(%d, &(*BP).MaxLoop);int i, j;srand(unsigned)time(NULL);for (i = 0; i N_In; i+) for (j = 0;
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 江西外語外貿(mào)職業(yè)學(xué)院《非政府組織管理》2023-2024學(xué)年第一學(xué)期期末試卷
- 煙臺汽車工程職業(yè)學(xué)院《日本文學(xué)作品讀》2023-2024學(xué)年第一學(xué)期期末試卷
- 安徽警官職業(yè)學(xué)院《風(fēng)景園林設(shè)計1》2023-2024學(xué)年第一學(xué)期期末試卷
- 江蘇護理職業(yè)學(xué)院《數(shù)字邏輯與微處理器》2023-2024學(xué)年第一學(xué)期期末試卷
- 湖南第一師范學(xué)院《醫(yī)學(xué)臨床基本技能學(xué)實驗》2023-2024學(xué)年第一學(xué)期期末試卷
- 重慶輕工職業(yè)學(xué)院《攝影與攝像》2023-2024學(xué)年第一學(xué)期期末試卷
- 電工考試題及答案2018
- 黨知識考試試題及答案
- 2015食品安全法試題及答案
- 湖南郵電職業(yè)技術(shù)學(xué)院《朝鮮(韓國)語應(yīng)用文寫作》2023-2024學(xué)年第一學(xué)期期末試卷
- 電廠安規(guī)考試題庫及答案
- 2021-2022學(xué)年浙江省杭州市拱墅區(qū)英語小升初新生分班考試卷 附解析
- 2024-2025學(xué)年人教版(2024)初中英語七年級下冊教學(xué)工作總結(jié)(共4套)
- Unit 1 Happy Holiday 第5課時(Section B 2a-3c) 2025-2026學(xué)年人教版英語八年級下冊
- 2025年中國三元乙丙橡膠市場調(diào)查研究報告
- 常見耐藥菌感染診療與防控
- 征兵體檢外科標(biāo)準(zhǔn)
- 小學(xué)生預(yù)防拐騙教育課件
- 2025-2030年中國基于細(xì)胞的人源化小鼠模型行業(yè)市場現(xiàn)狀供需分析及投資評估規(guī)劃分析研究報告
- 2025至2030中國無線通訊檢測行業(yè)市場發(fā)展分析及競爭格局與投資機會報告
- 2025年上海徐匯區(qū)高一(下)信息技術(shù)合格考試題及答案
評論
0/150
提交評論