spiht改进算法matlab

这是一个spiht算法的改进程序，是由matlab实现，比spiht算法的psnr有很大提高

function [trAlltrChl]=childMat（trRowstrCols）
% 函数 CHILDMAT（） 根据输入的坐标值trRows、trCols 输出其全体子孙 trAll，
% 其中包括孩子树 trChl；另外，根据算法原理，还要判断子孙树是否全为零，
% 若为全零，则trAll、trChl均为空表

global Mat rMat cMat
% Mat是输入的小波分解系数矩阵，作为全局变量，在编码的相关程序中使用
% rMat、cMat是Mat的行、列数，作为全局变量，在编码、解码的相关程序中使用

trAll=treeMat（trRowstrCols）;
% 调用函数 treeMat（） 生成该点的子孙树坐标队列
trZero=1;
% 用变量 trZero 来标记该点是否具有非零子孙
rA=size（trAll1）;
% 如果子孙树 trAll 中有系数值不为零，则 trZero=0，表示该点具有非零子孙
for r=1:rA
    if Mat（trAll（r1）trAll（r2））~=0
        trZero=0;
        break;
    end
end
if trZero
    trAll=[];
    trChl=[];
else
    if （trRows==1）&&（trCols==1）
        trChl=trAll（1:3:）;
    else
        trChl=trAll（1:4:）;
    end
    % 一般，函数 treeMat（） 输出的全体子孙树 trAll 头四位元素组成相应的孩子树
    % 不过点（11）只有三个孩子
end

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

     文件        764  2007-12-09 02:19  Modify-SPIHT\childMat.asv

     文件        989  2007-12-11 20:42  Modify-SPIHT\childMat.m

     文件        789  2007-12-07 01:31  Modify-SPIHT\coef_DOL.asv

     文件        963  2007-12-11 19:20  Modify-SPIHT\coef_DOL.m

     文件        848  2007-12-06 23:57  Modify-SPIHT\decRefine.asv

     文件        780  2007-12-11 18:48  Modify-SPIHT\decRefine.m

     文件        307  2007-06-20 09:29  Modify-SPIHT\downspl.m

     文件         34  2007-06-08 22:54  Modify-SPIHT\flor.m

     文件       1869  2007-12-07 19:29  Modify-SPIHT\fracnum2bin.m

     文件       1244  2007-12-07 02:31  Modify-SPIHT\listorder.asv

     文件       1354  2007-12-07 02:36  Modify-SPIHT\listorder.m

     文件        500  2007-06-20 10:00  Modify-SPIHT\modmat.m

     文件       1360  2007-07-30 10:34  Modify-SPIHT\mydwt.m

     文件       1257  2007-11-13 10:45  Modify-SPIHT\mydwt2.m

     文件       1202  2007-06-19 11:50  Modify-SPIHT\myidwt.m

     文件       1079  2007-06-19 12:08  Modify-SPIHT\myidwt2.m

     文件       1211  2007-12-09 16:49  Modify-SPIHT\mywavedec2.m

     文件       1689  2007-12-11 23:18  Modify-SPIHT\mywaverec2.m

     文件        513  2007-12-09 20:11  Modify-SPIHT\SnOut.asv

     文件        677  2007-12-09 21:05  Modify-SPIHT\SnOut.m

     文件       1077  2007-12-09 21:22  Modify-SPIHT\spiht.asv

     文件        903  2007-12-11 23:17  Modify-SPIHT\spiht.m

     文件       3882  2007-12-11 19:27  Modify-SPIHT\spihtcoding.asv

     文件       3907  2007-12-11 23:02  Modify-SPIHT\spihtcoding.m

     文件       5111  2007-12-11 18:52  Modify-SPIHT\spihtdecoding.asv

     文件       4915  2007-12-11 23:02  Modify-SPIHT\spihtdecoding.m

     文件        610  2007-12-04 11:31  Modify-SPIHT\treeMat.asv

     文件        727  2007-12-11 19:21  Modify-SPIHT\treeMat.m

     文件        430  2007-06-19 10:52  Modify-SPIHT\upspl.m

     目录          0  2007-12-11 20:53  Modify-SPIHT

............此处省略3个文件信息