📄 rbfnet_main.m
字号:
close all
clear all
net=RBFnet_creat;
theta=0:179;
while(1)
num=input('Please input the images name :','s'); % 提示输入待识别的图片的名称(输入1~8的数字即可)
if abs(num)<abs('1') || abs(num)>abs('8') % 输入不存在的图片名称时退出程序
close all
clear all
return
else
m=strcat('test',num,'.jpg'); % 将样本图片的文件名合并成字符串
x=imread(m); % 读入样本图片
subplot(2,2,1);
imshow(x); % 显示原始图
title('原始图像');
level=graythresh(x); % 自动计算灰度阈值
bw=im2bw(x,level); % 将读入的图片变成二值图像
subplot(2,2,2);
imshow(bw); % 显示二值图
title('二值图像');
[R,xp]=radon(bw,theta,180);
subplot(2,2,3);
imagesc(theta,xp,R) % 显示radon变换的图
title('radon变换图像');
[v,d]=eig(R); % 计算ht的特征值
for k=1:180
p(k,1)=real(d(k,k)); % 将特征值作为网络的输入
end
r=sim(net,p) ; % 对网络进行仿真
r=round(r);
subplot(2,2,4); % 画出识别出的图
if r(1,1)==0 && r(2,1)==0 && r(3,1)==1
tr=imread('T.jpg');
imshow(tr);
title('识别结果');
elseif r(1,1)==0 && r(2,1)==1 && r(3,1)==0
sq=imread('S.jpg');
imshow(sq);
title('识别结果');
else
error('wrong');
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -