symbols_to_bits.m

另ㄧ筆SPIHT的寫法~~有一點複雜就是了

% code the dominant and subordinate pass symbols using AC
clear
%clc
load filename output
sym=sym(1:486);
lim=length(sym)+1;
sequence=[];
pass=0;

ii=1;
while ii<lim
    partial=[];
    while ii<lim & sym(ii)~='0' & sym(ii)~='1'
        partial=[partial sym(ii)];
        ii=ii+1;
    end
    
    sequence=[sequence entropy_code(partial,pass)];
    partial=[];
    
    while ii<lim & sym(ii)~='p' & sym(ii)~='n' & sym(ii)~='i' & sym(ii)~='r' 
        partial=[partial sym(ii)];
        ii=ii+1;
    end
    
    sequence=[sequence entropy_code(partial,~pass)];
end


save filename sequence
disp(' COMPLETE ')