www.gusucode.com > 高等数学问题求解源码程序 > CH02/print_matrix.m

    function print_matrix(c)                                                             
%PRINT_MATRIX   打印如右形式的矩阵                                            A               
% PRINT_MATRIX(C)  根据输入的整数或字符生成右边形式的字符矩阵              B B B                          
%                                                                           C C C C C
% 输入参数：                                                                  B B B       
%     ---C：任意整数或大小写字母                                                A               
%                                                                                    
% See also fprintf                                                                   
                                                                                     
if isnumeric(c)                                                                      
    c=char(mod(fix(c)-1,26)+'A');                                                    
elseif ischar(c)                                                                     
    if length(c)>1 || ~((c>'a' && c<'z') || (c>'A' && c<'Z'))                        
        error('Input argument must be a letter.')                                    
    else                                                                             
        c=upper(c);                                                                  
    end                                                                              
end                                                                                  
N=c-'A'+1;                                                                           
str=blanks(4*N-3);                                                                   
S=[];                                                                                
for k=1:N                                                                            
    str(2*N-1-2*(k-1):2:2*N-1+2*(k-1))=repmat(char('A'+k-1),1,2*k-1);                
    S=[S;str];                                                                       
end                                                                                  
for kk=1:2*N-1                                                                       
    if kk<=N                                                                         
        fprintf('%s\n',S(kk,:))                                                      
    else                                                                             
        fprintf('%s\n',S(2*N-kk,:))                                                  
    end                                                                              
end                                                                                  
web -broswer http://www.ilovematlab.cn/forum-221-1.html