lieb2.m

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

function [lbhss,lbhww]=lieb2(lb2)
[mmh,nnh]=size(lb2);
G=[0;-2;2;0];
H=[0.125;0.375;0.375;0.125];
[mml,nnl]=size(lb2);
for j=1:nnl
 aa=zeros(1,4);
for i=3:(mml-4)
    kk=1;
    for kkk=(i-2):2:(i+4)
        aa(1,kk)=lb2(kkk,j);
        kk=kk+1;
    end
    SSl2(i,j)=aa*H;
    WWl2(i,j)=aa*G;
end
end
lbhss=SSl2;
lbhww=WWl2;