function [sqnr,a_quan,code]=u_pcm(a,n)

%U_PCM  	Uniform PCM encoding of a sequence.
%       	[SQNR,A_QUAN,CODE]=U_PCM(A,N)
%       	a=input sequence.
%       	n=number of quantization levels (even).
%       	sqnr=output SQNR (in dB).
%		a_quan=quantized output before encoding.
%		code=the encoded output.

amax=max(abs(a));
a_quan=a/amax; 
b_quan=a_quan;
d=2/n;     %取樣間隔        
q=d.*[0:n-1];
q=q-((n-1)/2)*d;%q是從－（1－1/n)到（1－1/n），且間隔為2/n的序列；

for i=1:n
  a_quan(find((q(i)-d/2 <= a_quan) & (a_quan <= q(i)+d/2)))=...
  q(i).*ones(1,length(find((q(i)-d/2 <= a_quan) & (a_quan <= q(i)+d/2))));
  b_quan(find( a_quan==q(i) ))=(i-1).*ones(1,length(find( a_quan==q(i) )));
end           

a_quan=a_quan*amax;   %循環結束后，a_quan中為量化后的值，b_quan為量化碼號
nu=ceil(log2(n));     %天花板函數求得PCM碼比特數
code=zeros(length(a),nu); %二維數組儲存PCM碼

%下面代碼為求PCM碼矩陣code
for i=1:length(a)
  for j=nu:-1:0
    if ( fix(b_quan(i)/(2^j)) == 1)
	code(i,(nu-j)) = 1;
	b_quan(i) = b_quan(i) - 2^j;
    end
  end
end      

sqnr=20*log10(norm(a)/norm(a-a_quan));