%DECODIFICADOR APCM. %function xmp=apcmdec(xmc,xmaxc) %Entradas: %xmc:subsecuencia seleccionada codificada. %xmaxc:valor máximo codificado. %Salidas: %xmp:subsecuencia de máxima energía decodificada. function xmp=apcmdec(xmc,xmaxc) interval=[-28672 -20480 -12288 -4096 4096 12288 20480 28672]; for i=1:13 xm(i)=interval(xmc(i)+1); end xmaxpc=[31 63 95 127 159 191 223 255 287 319 351 383 415 447 479 511 575 639]; xmaxpc=[xmaxpc,703 767 831 895 959 1023 1151 1279 1407 1535 1663 1791 1919]; xmaxpc=[xmaxpc,2047 2303 2559 2815 3071 3327 3583 3839 4095 4607 5119 5631]; xmaxpc=[xmaxpc,6143 6655 7167 7679 8191 9215 10239 11263 12287 13311 14335]; xmaxpc=[xmaxpc,15359 16389 18431 20479 22527 24575 26623 28671 30719 32767]; xmax=xmaxpc(xmaxc+1); xmp=xm*(xmax/2^15);