clrpie.m

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

function [t7,cunpie,kk10,kk11]=clrna(cunpie,kk10,kk11)

k1=0;
k2=0;
k1=kk10+1;
k2=kk11-1;
if  cunpie(kk10,k2)>0
    t7=cunpie(kk10,k2);
    cunpie(kk10,kk11)=0;  
   
kk10=kk10;
kk11=k2;
elseif  cunpie(k1,kk11)>0
    t7=cunpie(kk10,kk11);
    cunpie(kk10,kk11)=0;  
kk10=k1;
kk11=kk11;
else cunpie(k1,k2)>0 
    t7=cunpie(k1,k2);
    cunpie(kk10,kk11)=0;
kk10=k1;
kk11=k2;

end