gabpdemo.m

来自「nnToolKit 神经网络工具包是基于 MATLAB 神经网络工具箱自行开发的」· M 代码 · 共 42 行

%图像分割示例程序
function retstr = gabpdemo()
NNTWARN OFF

retstr=-1;

%用于产生样本文件
generatesample('data\sample.mat');  

%遗传神经网络训练示例
gaP = [100 0.00001];
bpP = [500 0.00001];
load('data\sample.mat');
gabptrain( gaP,bpP,p,t)

%神经网络分割示例
load('data\net.mat');
img = imread('image\a.bmp');
bw = segment( net,img ) ;
figure;
subplot(2,1,1);
imshow(img);
subplot(2,1,2);
imshow(bw);


%传统BP训练
%出现的结果，可能收敛不到目标值，或者收敛步数太长(356步)
epochs = 2000;
goal = 0.00001 ;
net = newcf([0 255],[6 1],{'tansig' 'purelin'});
net.trainParam.epochs = epochs;
net.trainParam.goal = goal ;
load('data\sample.mat');
net = train(net,p,t);

%遗传BP训练
%遗传算法寻找最优权值阈值会用一些时间，
%bp的训练还是非常快，38步就收敛到的目标值
gaP = [100 0.00001];
bpP = [500 0.00001];
gabptrain( gaP,bpP,p,t );