%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);
