%%%%%?利用GA優化BP網絡的權值，然后利用該權值進行BP網絡的訓練和仿真
clear?all;
tic?%開始計時
%首先進行遺傳算法
[PTRS1S2S]=nninit;%初始化網絡
aa=ones（S1）*[-1?1];
popu=30;%種群規模
initPpp=initializega（popuaa‘gabpEval‘）;%初始化種群
gen=80?%遺傳代數
%遺傳計算尋求最優解x
[x?endPop?bPop?trace]=ga（aa‘gabpEval‘[]initPpp[1e-6?1?1]‘maxGenTerm‘gen‘normGeomSelect‘[0.09][‘arithXover‘][2]‘nonUnifMutation‘[2?gen?3]）;
figure（1）;
subplot（211）;
plot（trace（:1）1./trace（:3）‘r-‘）;
hold?on;
plot（trace（:1）1./trace（:2）‘b-‘）;
xlabel（‘Generation‘）;
ylabel（‘Sum-Squared?Error‘）;
subplot（212）;
plot（trace（:1）trace（:3）‘r-‘）;
hold?on;
plot（trace（:1）trace（:2）‘b-‘）;
xlabel（‘Gener