panduangzbj.m

来自「一个用matlab编写的 关于笔画提取的仿真试验程序」· M 代码 · 共 34 行

close all;
clear;
%A2=imread('D:\a实验用\nh1.bmp','bmp');
%figure(9),imshow(A2);
tic;
A1=imread('w1.bmp');%%%%  w1/117/a104  qw/126/a157  l2/85/a99   qq/79/a64 yn/78/a75   h2/59/a44 annnew/56/a123 l21
A=rgb2gray(A1);
k=25;[m,n]=size(A);
hui=0;
for j=1:m
for i=1:n
ah(1,i)=A(j,i);
end
bh(j)=mean2(ah);
%figure(j),imhist(a);
end 
bh;
bh1=round(std2(bh)^2)%%%%标准差

for i=1:n
for j=1:m
al2(1,j)=A(j,i);
end
bl(i)=mean2(al2);%%%%均值
%figure(j),imhist(a);
end 

round(bl);
bl1=round(std2(bl)^2)%%%%标准差


figure(10000),imshow(A);