function ssbm(str)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%           算術編碼過程實例ssbm.m
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
l=0;r=1;d=1;
%初始間隔
about={...
        '本實例說明：=====>>'
    '字符串不能太長，程序不加判斷，請注意溢出；'
    '本實例只限定少數字符串；'
    '實例只是說明一下算術編碼過程。'};
disp(about);
%程序限定字符為：a、b、c、d、e
p=[0.2 0.3 0.1 0.15 0.25];
%字符的概率分布，sum(p)=1
n=length(str);
disp('a b c d e')
disp(num2str(p))
for i=1:n
    switch str(i)
        case 'a' 
            m=1;
        case 'b'
            m=2;
        case 'c'
            m=3;
        case 'd'
            m=4;
        case 'e'
            m=5;
        otherwise
            error('請不要輸入其它字符！');
    end
    %判斷字符
    pl=0;pr=0;
    for j=1:m-1 
        pl=pl+p(j);
    end
    for j=1:m 
        pr=pr+p(j);
    end
    %概率統計
    l=l+d*pl;
    r=l+d*(pr-pl);
    strl=strcat('輸入第',int2str(i),'符號的間隔左邊界：');    
    disp(strl);
    format long
    disp(l)
    strr=strcat('輸入第',int2str(i),'符號的間隔右邊界：');
    disp(strr);
    disp(r)
    d=r-l;
end