napos.m

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

function [t2,kk8,kk9]=napos(na,kk8,kk9)

k1=0;k2=0;
k1=kk8+1;
k2=kk9+1;
if na(k1,k2)>0 
    t2=na(k1,k2);
    na(kk8,kk9)=0;
kk8=k1;
kk9=k2;

elseif  na(kk8,k2)>0
    t2=na(kk8,k2);
     na(kk8,kk9)=0;
kk8=kk8,
kk9=k2;
elseif  na(k1,kk9)>0
    t2=na(k1,kk9);
     na(kk8,kk9)=0;
kk8=k1;
kk9=kk9;
else
    t2=0;
end