%函數功用:利用GA算法來優化RBF網絡中的各種權值
%編寫時間:2009.3.17

clear?all
close?all

G?=?15;
Size?=?30;
CodeL?=?10;

for?i?=?1:3
????MinX（i）?=?0.1*ones（1）;
????MaxX（i）?=?3*ones（1）;
end
for?i?=?4:1:9
????MinX（i）?=?-3*ones（1）;
????MaxX（i）?=?3*ones（1）;
end
for?i?=?10:1:12
????MinX（i）?=?-ones（1）;
????MaxX（i）?=?ones（1）;
end

E?=?round（rand（Size12*CodeL））;??%Initial?Code!

BsJ?=?0;

for?kg?=?1:1:G
????time（kg）?=?kg
????
????for?s?=?1:1:Size
????????m?=?E（s:）;
????????
????????for?j?=?1:1:12
????????????y（j）?=?0;
????????????
????????????mj?=?m（（j-1）*CodeL?+?1:1:j*CodeL）;
????????????for?i?=?1:1:CodeL
????????????????y（j）?=?y（j）?+?mj（i）*2^（i-1）;
????????????end
????????????f（sj）?=?（MaxX（j）?-?MinX（j））*y（j）/1023?+?MinX（j）;
????????end
????????
????????%?************Step?1:Evaluate?BestJ?*******************
????????p?=?f（s:）;
????????
????????[pBsJ]?=?RBF（pBsJ）;
????????
????????BsJi（s）?=?BsJ;
????end
????
????[OderJiIndexJi]?=?sort（BsJi）;
????BestJ（kg）?=?OderJi（1）;
????BJ?=?BestJ（kg）;
????Ji?=?BsJi+1e-10;
?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????2548??2009-03-17?23:27??RBF網絡遺傳算法優化程序\GA.m
?????文件????????1279??2009-03-17?23:26??RBF網絡遺傳算法優化程序\RBF.m
?????文件????????1303??2009-03-18?00:20??RBF網絡遺傳算法優化程序\Test.m
?????文件?????????280??2009-03-15?23:40??RBF網絡遺傳算法優化程序\pfile.mat
?????目錄???????????0??2016-12-12?11:09??RBF網絡遺傳算法優化程序\