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?????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