lieb3.m

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

function [lbhss,lbhww]=lieb3(lb3)

G=[0;-2;2;0];
H=[0.125;0.375;0.375;0.125];
[mml,nnl]=size(lb3);
for j=1:nnl
 aa=zeros(1,4);
for i=5:(mml-8)
    kk=1;
    for kkk=(i-4):4:(i+8)
        aa(1,kk)=lb3(kkk,j);
        kk=kk+1;
    end
    SSl3(i,j)=aa*H;
    WWl3(i,j)=aa*G;
end
end
lbhss=SSl3;
lbhww=WWl3;