- refactored

2022-06-30 13:32:40 +02:00
parent 77cd5261b1
commit 776932e5d1
144 changed files with 0 additions and 38 deletions
@@ -0,0 +1,14 @@
+% ##################################################################################
+% ##  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 #####