quanjuvalue.m

G.729编解码源程序

  2288,  3507,  5037,  6841,  8278,  9638, 15066, 16481, 21653, 22214 ,
  2951,  3771,  4878,  7578,  9016, 10298, 14490, 15242, 20223, 20990 ,
  3256,  4791,  6601,  7521,  8644,  9707, 13398, 16078, 19102, 20249 ,
  1827,  2614,  3486,  6039, 12149, 13823, 16191, 17282, 21423, 22041 ,
  1000,  1704,  3002,  6335,  8471, 10500, 14878, 16979, 20026, 22427 ,
  1646,  2286,  3109,  7245, 11493, 12791, 16824, 17667, 18981, 20222 ,
  1708,  2501,  3315,  6737,  8729,  9924, 16089, 17097, 18374, 19917 ,
  2623,  3510,  4478,  5645,  9862, 11115, 15219, 18067, 19583, 20382 ,
  2518,  3434,  4728,  6388,  8082,  9285, 13162, 18383, 19819, 20552 ,
  1726,  2383,  4090,  6303,  7805, 12845, 14612, 17608, 19269, 20181 ,
  2860,  3735,  4838,  6044,  7254,  8402, 14031, 16381, 18037, 19410 ,
  4247,  5993,  7952,  9792, 12342, 14653, 17527, 18774, 20831, 21699 ,
  3502,  4051,  5680,  6805,  8146, 11945, 16649, 17444, 20390, 21564 ,
  3151,  4893,  5899,  7198, 11418, 13073, 15124, 17673, 20520, 21861 ,
  3960,  4848,  5926,  7259,  8811, 10529, 15661, 16560, 18196, 20183 ,
  4499,  6604,  8036,  9251, 10804, 12627, 15880, 17512, 20020, 21046 ,
  4251,  5541,  6654,  8318,  9900, 11686, 15100, 17093, 20572, 21687 ,
  3769,  5327,  7865,  9360, 10684, 11818, 13660, 15366, 18733, 19882 ,
  3083,  3969,  6248,  8121,  9798, 10994, 12393, 13686, 17888, 19105 ,
  2731,  4670,  7063,  9201, 11346, 13735, 16875, 18797, 20787, 22360 ,
  1187,  2227,  4737,  7214,  9622, 12633, 15404, 17968, 20262, 23533 ,
  1911,  2477,  3915, 10098, 11616, 12955, 16223, 17138, 19270, 20729 ,
  1764,  2519,  3887,  6944,  9150, 12590, 16258, 16984, 17924, 18435 ,
  1400,  3674,  7131,  8718, 10688, 12508, 15708, 17711, 19720, 21068 ,
  2322,  3073,  4287,  8108,  9407, 10628, 15862, 16693, 19714, 21474 ,
  2630,  3339,  4758,  8360, 10274, 11333, 12880, 17374, 19221, 19936 ,
  1721,  2577,  5553,  7195,  8651, 10686, 15069, 16953, 18703, 19929  
];
lspcb1=lspcb1/2^13;

lspcb2=[  -435,  -815,  -742,  1033,  -518,   582, -1201,   829,    86,   385 ,
  -833,  -891,   463,    -8, -1251,  1450,    72,  -231,   864,   661 ,
 -1021,   231,  -306,   321,  -220,  -163,  -526,  -754, -1633,   267 ,
    57,  -198,  -339,   -33, -1468,   573,   796,  -169,  -631,   816 ,
   171,  -350,   294,  1660,   453,   519,   291,   159,  -640, -1296 ,
  -701,  -842,   -58,   950,   892,  1549,   715,   527,  -714,  -193 ,
   584,    31,  -289,   356,  -333,  -457,   612,  -283, -1381,  -741 ,
  -109,  -808,   231,    77,   -87,  -344,  1341,  1087,  -654,  -569 ,
  -859,  1236,   550,   854,   714,  -543, -1752,  -195,   -98,  -276 ,
  -877,  -954, -1248,  -299,   212,  -235,  -728,   949,  1517,   895 ,
   -77,   344,  -620,   763,   413,   502,  -362,  -960,  -483,  1386 ,
  -314,  -307,  -256, -1260,  -429,   450,  -466,  -108,  1010,  2223 ,
   711,   693,   521,   650,  1305,   -28,  -378,   744, -1005,   240 ,
  -112,  -271,  -500,   946,  1733,   271,   -15,   909,  -259,  1688 ,
   575,   -10,  -468,  -199,  1101, -1011,   581,   -53,  -747,   878 ,
   145,  -285, -1280,  -398,    36,  -498, -1377,    18,  -444,  1483 ,
 -1133,  -835,  1350,  1284,   -95,  1015,  -222,   443,   372,  -354 ,
 -1459, -1237,   416,  -213,   466,   669,   659,  1640,   932,   534 ,
   -15,    66,   468,  1019,  -748,  1385,  -182,  -907,  -721,  -262 ,
  -338,   148,  1445,    75,  -760,   569,  1247,   337,   416,  -121 ,
   389,   239,  1568,   981,   113,   369, -1003,  -507,  -587,  -904 ,
  -312,   -98,   949,    31,  1104,    72,  -141,  1465,    63,  -785 ,
  1127,   584,   835,   277, -1159,   208,   301,  -882,   117,  -404 ,
   539,  -114,   856,  -493,   223,  -912,   623,   -76,   276,  -440 ,
  2197,  2337,  1268,   670,   304,  -267,  -525,   140,   882,  -139 ,
 -1596,   550,   801,  -456,   -56,  -697,   865,  1060,   413,   446 ,
  1154,   593,   -77,  1237,   -31,   581, -1037,  -895,   669,   297 ,
   397,   558,   203,  -797,  -919,     3,   692,  -292,  1050,   782 ,
   334,  1475,   632,   -80,    48, -1061,  -484,   362,  -597,  -852 ,
  -545,  -330,  -429,  -680,  1133, -1182,  -744,  1340,   262,    63 ,
  1320,   827,  -398,  -576,   341,  -774,  -483, -1247,   -70,    98 ,
  -163,   674,   -11,  -886,   531, -1125,  -265,  -242,   724,   934  
];
lspcb2=lspcb2/2^13;
lspcb3=lspcb2(:,6:end);
lspcb2=lspcb2(:,1:5);
%－－－－－－－－－－－－－－－－－－

%Li里面保存的是Li^,其中Li(1)保存对应的码书中的坐标
%L1=zeros(1,L);
%L2=zeros(1,L);
%L3=zeros(1,L);
%L0=zeros(1,L);
L1=0;
L2=0;
L3=0;
L0=0;
q_old=zeros(1,10);%用于存放量化后的q^，用于内插
rcAR1=zeros(1,11);
rcAR2=zeros(1,11);

b12=[0.900839, 0.760084, 0.42082, 0.084078, -0.105570,...
    -0.121120, -0.047624, 0.016285,0.031217, 0.015738, 0.000000, -0.005925 0];

b30=[0.898517,0.769271,0.448635,0.095915,-0.134333,-0.178528,...
-0.084919,0.036952,0.095533,0.068936,0,-0.050404,-0.050835,...
-0.014169,0.023083,0.033543,0.016774,-0.007466,-0.01934,...
-0.013755,0,0.0094,0.009029,0.002381,-0.003658,-0.005027,...
-0.002405,0.00105,0.00278,0.002145 0];

T1=0;
fraction1=0;
T2=0;
fraction2=0;

Tr0=[0,5,10,15,20,25,30,35];
Tr0=Tr0+1;
Tr1=[1,6,11,16,21,26,31,36];
Tr1=Tr1+1;
Tr2=[2,7,12,17,22,27,32,37];
Tr2=Tr2+1;
Tr3=[3,8,13,18,23,28,33,38];
Tr3=Tr3+1;
Tr4=[4,9,14,19,24,29,34,39];
Tr4=Tr4+1;
beta=0.2;
U=[-14 -14 -14 -14];
MA=[0.68 0.58 0.43 0.19];
GA=[    1 ,  1516 
  1551 ,  2425 
  1831 ,  5022 
    57 ,  5404 
  1921 ,  9291 
  3242 ,  9949 
   356 , 14756 
  2678 , 27162 
];
GA(:,1)=GA(:,1)/2^14;
GA(:,2)=GA(:,2)/2^13;

GB=[   826 ,  2005 ,
   1994 ,     0 ,
   5142 ,   592 ,
   6160 ,  2395 ,
   8091 ,  4861 ,
   9120 ,   525 ,
  10573 ,  2966 ,
  11569 ,  1196 ,
  13260 ,  3256 ,
  14194 ,  1630 ,
  15132 ,  4914 ,
  15161 , 14276 ,
  15434 ,   237 ,
  16112 ,  3392 ,
  17299 ,  1861 ,
  18973 ,  5935  
];
GB(:,1)=GB(:,1)/2^14;
GB(:,2)=GB(:,2)/2^13;
Filterstate=zeros(1,10);
Un=zeros(1,160);
x1=0;x2=0;y1=0;y2=0;
freq_prev=[pi/11,2*pi/11,3*pi/11,4*pi/11,5*pi/11,6*pi/11,7*pi/11,8*pi/11,9*pi/11,10*pi/11;
   pi/11,2*pi/11,3*pi/11,4*pi/11,5*pi/11,6*pi/11,7*pi/11,8*pi/11,9*pi/11,10*pi/11;
   pi/11,2*pi/11,3*pi/11,4*pi/11,5*pi/11,6*pi/11,7*pi/11,8*pi/11,9*pi/11,10*pi/11;
   pi/11,2*pi/11,3*pi/11,4*pi/11,5*pi/11,6*pi/11,7*pi/11,8*pi/11,9*pi/11,10*pi/11;];
q_old=[0.9155 0.7935  0.6409  0.4578   0.2441   0  -0.2441  -0.4578  -0.6409  -0.7935];
mem=zeros(1,10);
%old_wsp=zeros(1,160);