function y=mmdigit(x,n,b,t)
% 演示輸入輸出參數(shù)個(gè)數(shù)判斷函數(shù)
% 舍入函數(shù)，以b為底，將x舍入到n
% 若b未給定，那么b=10，以十進(jìn)制舍入
% 如果x為復(fù)數(shù)，那么實(shí)部和虛部分別進(jìn)行舍入
% 其他的舍入選項(xiàng)，fix, ceil, floor

% 判斷輸入?yún)?shù)的個(gè)數(shù)
if nargin<2
    error('輸入?yún)?shù)個(gè)數(shù)太少')
elseif nargin==2
    b=10;
    t='round';
elseif nargin==3
    t='round';
end

n=round(abs(n(1)));
if isempty(b), b=10;
else b=round(abs(b(1)));
end

if isreal(x)
    y=abs(x)+(x==0);
    e=floor(log(y)./log(b)+1);
    p=repmat(b,size(x)).^(n-e);
    if strncmpi(t,'round',1)
        y=round(p.*x)./p;
    elseif strncmpi(t,'fix',2)
        y=fix(p.*x)./p;
    elseif strncmpi(t,'ceil',2)
        y=ceil(p.*x)./p;        
    elseif strncmpi(t,'floor',2)
        y=floor(p.*x)./p; 
    else
        error('未知舍入錯(cuò)誤');
    end
else
    y=complex(mmdigit(real(x),n,b,t),mmdigit(imag(x),n,b,t));
end