15 lines
744 B
Matlab
Executable File
15 lines
744 B
Matlab
Executable File
% ##################################################################################
|
|
% ## Funktion [aq,nfa]=lcoefrnd(a,w) ##
|
|
% ##################################################################################
|
|
% Quantisierung eines Koeffizientenvektors A auf eine gewuenschte Wortlaenge W.
|
|
|
|
function [aq,nfa]=lcoefrnd(a,w)
|
|
|
|
f = log(max(abs(a)))/log(2); % Normierung von A
|
|
n = 2^ceil(f); % durch n (Potenz von 2), so dass,
|
|
an = a/n; % 1 >= an >= -1.
|
|
aq = lfxquant(an,w); % Quantisierung von a, so dass,
|
|
% 1 > aq >= -1;
|
|
nfa = n; % Normierungsfaktor
|
|
% ##### EOF #####
|