clear?all;
%x=[1.582.32-5.8;0.671.58-4.78;1.041.01-3.63;-1.492.18-3.39;-0.411.21-4.73;1.393.162.87;1.201.40-1.89;-0.921.44-3.22;0.451.33-4.38;-0.760.84-1.96;0.210.03-2.21;0.370.28-1.8;0.181.220.16;-0.240.93-1.01;-1.180.39-0.39;0.740.96-1.16;-0.381.94-0.48;0.020.72-0.17;0.441.31-0.14;0.461.490.68];
xa=[1.582.32-5.8;0.210.03-2.21;0.671.58-4.78;0.370.28-1.8;1.041.01-3.63;0.181.220.16;-1.492.18-3.39;-0.240.93-1.01;-0.411.21-4.73;-1.180.39-0.39;1.393.162.87;0.740.96-1.16;1.201.40-1.89;-0.381.94-0.48;-0.921.44-3.22;0.020.72-0.17;0.451.33-4.38;0.441.31-0.14;-0.760.84-1.96;0.461.490.68];
x=xa（1:20:）;
o=-（-1）.^（1:20）;
t=0.1;?w=2*rand（14）-1;
aj=0.1;?ak=0.1;
for?i=1:20
????%輸入模式順傳播
????sj（i）=w（1:3）*x（i:）‘-aj;
????bj（i）=（2*1.716/（1+exp（-（2/3）*sj（i））））-1.716;????%隱含層輸出
????sk（i）=w（4）*sj（i）‘-ak;
????yk（i）=（2*1.716/（1+exp（-（2/3）*sk（i））））-1.716;????%輸出層輸出
????%輸出誤差逆?zhèn)鞑?br/>????deltak（i）=yk（i）*（1-yk（i））*（o（i）-yk（i））;???%輸出層修正值
????deltaj（i）=bj（i）*（1-bj（i））*（w（4）*deltak（i））;?????%隱含層修正值
????w（4）=w（4）+t*deltak（i）*bj（i）;
????w（1:3）=w（1:3）+t*deltaj（i）*x（i:）;
????ak=t*deltak（i）;
????aj=t*deltaj（i）;
????e（i）=（o（i）-yk（i））;
end
plot（e）;

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????1268??2008-11-23?21:37??神經(jīng)網(wǎng)絡(luò)\myPB.m

?????文件???????1417??2008-11-29?10:25??神經(jīng)網(wǎng)絡(luò)\myPB1.m

?????文件???????1225??2008-11-30?21:36??神經(jīng)網(wǎng)絡(luò)\myPB2.m

?????文件???????1350??2008-11-30?21:18??神經(jīng)網(wǎng)絡(luò)\myPB3.m

?????文件????????433??2008-11-29?10:35??神經(jīng)網(wǎng)絡(luò)\myrbf.m

?????目錄??????????0??2009-02-11?20:30??神經(jīng)網(wǎng)絡(luò)

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

?????????????????5693????????????????????6