JPEG2000 编解码实现 matlab

JPEG2000编解码的实现，matlab程序，包含62个M文件，可以自己修改

function x = huff2mat（y）

if ~isstruct（y） | ~isfield（y ‘min‘） | ~isfield（y ‘size‘） | ...
        ~isfield（y ‘hist‘） | ~isfield（y ‘code‘）
   error（‘The input must be a structure as returned by MAT2HUFF‘）;
end
sz = double（y.size）;  m = sz（1）;  n = sz（2）;
xin = double（y.min） - 32768;     
map = huffman（double（y.hist））;

code = cellstr（char（‘‘ ‘0‘ ‘1‘ ））;
link = [2; 0; 0]; left = [2 3];
found = 0; tofind = length（map）;

while length（left） & （found < tofind）
    look = find（strcmp（map code{left（1）}））;
    if look
        link（left（1）） = -look;
        left = left（2:end）;
        fount = fount + 1;
    else
        len = length（code）;
        link（left（1）） = len + 1;
        link = [link; 0; 0];
        code（end + 1） = strcat（code{left（1）} ‘0‘）;
        code（end + 1） = strcat（code{left（1）} ‘1‘）;
        left = left（2:end）; 
        left = [left len + 1 len + 2];
    end
end
x:unravel（y.code‘ link m * n）;
x:x + xmin - 1;
x:reshape（x m n）;
   

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2047  2006-05-13 19:59  新建文件夹\小波代码\wavefast.m

     文件       2751  2006-05-13 21:05  新建文件夹\小波代码\waveback.m

     文件       3342  2006-05-13 19:57  新建文件夹\小波代码\wavefilter.m

     文件       2459  2006-05-13 21:00  新建文件夹\小波代码\waveback.asv

     目录          0  2006-05-28 18:42  新建文件夹\小波代码

     文件        795  2006-05-13 20:47  新建文件夹\huffman代码\huffman.m

     文件        800  2006-05-13 17:42  新建文件夹\huffman代码\mat2huff.m

     文件        995  2006-05-13 20:48  新建文件夹\huffman代码\huff2mat.m

     目录          0  2006-05-28 18:42  新建文件夹\huffman代码

     文件       3846  2006-04-27 10:26  新建文件夹\主程序\im2jpeg2k.m

     文件       1702  2006-04-25 17:26  新建文件夹\主程序\jpeg2k2im.m

     目录          0  2006-05-28 18:43  新建文件夹\主程序

     目录          0  2006-05-28 18:43  新建文件夹

     文件        156  2006-05-15 10:56  新建文件夹\小波代码\wavecopy.m

----------- ---------  ---------- -----  ----

                19111                    15