clrna.m

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

function [t6,cunna,kk8,kk9]=clrna(cunna,kk8,kk9)

k1=0;
k2=0;
k1=kk8+1;
k2=kk9+1;
if  cunna(kk8,k2)>0
    t6=cunna(kk8,k2);
    cunna(kk8,kk9)=0;  
    t223=cunna(kk8,kk9);
kk8=kk8;
kk9=k2;
elseif  cunna(k1,kk9)>0
    t6=cunna(k1,kk9);
    cunna(kk8,kk9)=0;  
    t223=cunna(kk8,kk9);
kk8=k1;
kk9=kk9;
else cunna(k1,k2)>0 
    t6=cunna(k1,k2);
    cunna(kk8,kk9)=0;
    t223=cunna(kk8,kk9);
kk8=k1;
kk9=k2;

end