function?[LL?LH?HL?HH]=haar_dwt2D（img）
????[m?n]=size（img）;
????for?i=1:m???????%每一行進行分解
????????[L?H]=haar_dwt（img（i:））;
????????img（i:）=[L?H];
????end
????for?j=1:n???????%每一列進行分解
???????[L?H]=haar_dwt（img（:j））;
???????img（:j）=[L?H];
????end
??