chans.m

来自「计算注水算法的相关程序」· M 代码 · 共 26 行

function A=chans(str1,str2,str3); 
figure('position',[296 157 560 317],'Visible','on'); 
axes; 
text(-0.15,0.48,str1,'fontsize',208); 
axis off 
set(gcf,'Color','w'); 
saveas(gcf,'abc.bmp') 
close 
DD=imread('abc.bmp'); 
Dt=DD(10:309,1:560); 
if length(str1)==1; 
   DD=imread('abc.bmp'); 
   Dt=DD(10:309,1:560); 
   Dq=Dt(1:12:end,1:14:end); 
   Dqnew=255*ones(size(Dq)); 
   Dqnew(:,10:30)=Dq(:,1:21); 
   A=char(zeros(size(Dq))); 
   A(find(Dqnew==0))=str3; 
   A(find(Dqnew==255))=str2; 
else 
   Dq=Dt(1:12:end,1:14:end); 
   A=char(zeros(size(Dq))); 
   A(find(Dq==0))=str3; 
   A(find(Dq==255))=str2; 
end