The Mallat algorithm for a 2D Haar Wavelet Transform for Image Compression on mathcad.

[Hollywood]

Hello members of the uw.mathcad newsgroup,

please I need you to provide me the Mallat algorithm for a 2D Haar
Wavelet Transform on mathcad.

I have to complet and correct the following Mallat algorithm for a 2D
Haar Wavelet Transform for
Image Compression on mathcad "waveHaar(v)" on a vector v data entry for
decomposition to the level n.

waveHaarn(v,hr,gr,n) := for m є (belonging to) 0 .. n-1
w n<- Analyse(v,hr)
w n+1 <- Detail(v,gr)
for i є (belonging to) 0 .. n-1
w <- stack(w i, w i+1)

Please can you provide me with the complete Mallat algorithm to level n
?

where n, n+1, i and i+1 are sub-indices of w.
v vector data entry

Maybe there's a web-site out there that collects those algorithms for
Mathcad out there ?

Many Thanks.

Octavio