function q = q_code(s,vals);
% function q = q_code(s,vals);
%
% scalar quantizer. 
% s is the signal (row vector).
% vals are quantization levels (column vector). 
% q are indices of optimal q. levels (row vector). 

N = length(vals); Ns = length(s);
[dummy,q] = min(abs(ones(N,1) * s - vals * ones(1,Ns)));