%RBF網絡，由chap10_3a調用，返回值B為誤差的和，和越小，說明得到的權值越好
function?[pBsJ]?=?rbf_gaf（pBsJ）
ts?=?0.001;

alfa?=?0.05;
xite?=?0.85;
x?=?[00]‘;
b?=?[p（1）;p（2）;p（3）];
c?=?[p（4）?p（5）?p（6）;
?????p（7）?p（8）?p（9）];
w?=?[p（10）;p（11）;p（12）];

w_1?=?w;w_2?=?w_1;
c_1?=?c;c_2?=?c_1;
b_1?=?b;b_2?=?b_1;
y_1?=?0;

for?k?=?1:1:400
????timef（k）?=?k*ts;
???????
????u（k）?=?sin（5*2*pi*k*ts）;
????
????y（k）?=?u（k）^3?+?y_1/（1?+?y_1^2）;
????
????x（1）?=?u（k）;
????x（2）?=?y（k）;
????for?j?=?1:1:3
????????h（j）?=?exp（-norm（x?-?c（:j））^2/（2*b（j）*b（j）））;
????end
????ym（k）?=?w_1‘*h‘;
????
????e（k）?=?y（k）?-?ym（k）;
????
????d_w?=?0*w;d_b?=?0*b;d_c?=?0*c;
????for?j?=?1:1:3
????????d_w（j）?=?xite*e（k）*h（j）;
????????d_b（j）?=?xite*e（k）*w（j）*h（j）*（b（j）^-3）*norm（x-c（:j））^2;
????????for?i?=?1:1:2
??????????

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

?????文件????????183??2009-02-02?09:47??111粒子群算法優化RBF網絡\Matlab中文論壇--助努力的人完成畢業設計.url

?????文件???????3543??2009-02-01?16:19??111粒子群算法優化RBF網絡\使用幫助：新手必看.htm

?????文件???????1265??2008-12-21?17:35??111粒子群算法優化RBF網絡\粒子群算法優化RBF網絡\chap10_3b.m

?????文件???????1353??2009-03-24?22:19??111粒子群算法優化RBF網絡\粒子群算法優化RBF網絡\chap10_3c.m

?????文件????????288??2009-03-24?22:19??111粒子群算法優化RBF網絡\粒子群算法優化RBF網絡\pfile1.mat

?????文件???????2815??2008-12-21?17:55??111粒子群算法優化RBF網絡\粒子群算法優化RBF網絡\PSO.m

?????目錄??????????0??2009-03-24?22:16??111粒子群算法優化RBF網絡\粒子群算法優化RBF網絡

?????目錄??????????0??2019-03-13?17:22??111粒子群算法優化RBF網絡

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

?????????????????9447????????????????????8