function?[sol?val]?=?gabpEval（soloptions）
%?val?-?the?fittness?of?this?individual
%?sol?-?the?individual?returned?to?allow?for?Lamarckian?evolution
%?options?-?[current_generation]
load?date1
nntwarn?off
R=size（P1）;
S2=size（T1）;
S1=10;%?隱含層節點數
S=R*S1+S1*S2+S1+S2;%?遺傳算法編碼長度
for?i=1:S
????x（i）=sol（i）;
end
[W1?B1?W2?B2?P?T?A1?A2?SE?val]=gadecod（x）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2011-09-07?17:42??GA-BPNN完整實例\
?????文件?????????718??2011-09-06?09:34??GA-BPNN完整實例\date1.mat
?????文件?????????548??2011-09-06?09:34??GA-BPNN完整實例\date2.mat
?????文件?????????390??2011-08-29?15:11??GA-BPNN完整實例\gabpEval.m
?????文件????????2525??2011-09-08?08:52??GA-BPNN完整實例\gabpnn.m
?????文件?????????778??2011-08-29?15:11??GA-BPNN完整實例\gadecod.m
?????文件???????13824??2011-02-24?19:10??GA-BPNN完整實例\gap.xls
?????文件???????13824??2011-08-29?16:07??GA-BPNN完整實例\gat.xls
?????文件????????4188??2011-09-06?09:34??GA-BPNN完整實例\net51.mat
?????文件????????3738??2011-09-07?17:39??GA-BPNN完整實例\untitled.fig
?????文件???????10338??2011-09-07?17:40??GA-BPNN完整實例\untitled.m