function?net=RBFnet_creat

for?i=1:4
????m=strcat（‘train‘int2str（i）‘.jpg‘）;???%?將訓(xùn)練樣本的文件名合并成字符串
????x=imread（m）;???????????????????????????%?讀入樣本圖片
????level=graythresh（x）;???????????????????%?自動計算灰度閾值
????BW=im2bw（xlevel）;?????????????????????%?將讀入的圖片變成二值圖像
????theta=0:179;???????????????????????
????R=radon（BWtheta180）;
????[vd]=eig（R）;??????????????????????????%?計算h的特征值

????for?j=1:180
????????p（ji）=real（d（jj））;???????????????%?將特征值作為網(wǎng)絡(luò)的輸入
????end

????switch?i???????????????????????????????%?形成網(wǎng)絡(luò)的目標向量
????????case?1
????????????T（:1）=[0?0?1]‘;
????????case?2
????????????T（:2）=[0?0?1]‘;
????????case?3
????????????T（:3）=[0?1?0]‘;
????????case?4
????????????T（:4）=[0?1?0]‘;
????end
end??????????????
net=newrbe（pT100）;?????%?創(chuàng)建RBF網(wǎng)絡(luò)并訓(xùn)練，訓(xùn)練次數(shù)應(yīng)適當大，否則會識別錯誤

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

?????文件????????893??2008-01-04?15:00??RBF\RBFnet_creat.m

?????文件???????1677??2008-01-04?15:00??RBF\RBFnet_main.m

?????文件???????1139??2005-04-07?19:21??RBF\S.JPG

?????文件???????1326??2005-04-07?21:38??RBF\T.JPG

?????文件???????1660??2005-04-05?01:49??RBF\test1.JPG

?????文件???????1664??2005-04-03?02:02??RBF\test2.JPG

?????文件???????1709??2005-04-03?01:36??RBF\test3.JPG

?????文件???????1806??2005-04-05?01:54??RBF\test4.JPG

?????文件???????1865??2005-04-05?01:43??RBF\test5.JPG

?????文件???????1826??2005-04-05?01:45??RBF\test6.JPG

?????文件???????1940??2005-04-05?01:48??RBF\test7.JPG

?????文件???????1822??2005-04-05?01:52??RBF\test8.JPG

?????文件???????1974??2006-04-22?00:02??RBF\train1.JPG

?????文件???????1821??2005-04-05?15:24??RBF\train2.JPG

?????文件???????1792??2005-04-05?15:21??RBF\train3.JPG

?????文件???????1843??2005-04-07?18:20??RBF\train4.JPG

?????目錄??????????0??2008-12-01?10:30??RBF

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

????????????????26757????????????????????17