lieb.m

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

function [lbhss,lbhww]=lieb(lb)
G=[0;-2;2;0];
H=[0.125;0.375;0.375;0.125];
[m2,n2]=size(lb);
for j=1:(n2)
 aa=zeros(1,4);
for i=2:(m2-2) 
    kk=1;
    for kkk=(i-1):(i+2)
        aa(1,kk)=lb(kkk,j);
        kk=kk+1;
    end
    SSl(i,j)=aa*H;
    WWl(i,j)=aa*G;
end
end

lbhss=SSl;
lbhww=WWl;