*Important:* Please read the installation page for details about how to install the toolboxes.
$\newcommand{\dotp}[2]{\langle #1, #2 \rangle}$
$\newcommand{\enscond}[2]{\lbrace #1, #2 \rbrace}$
$\newcommand{\pd}[2]{ \frac{ \partial #1}{\partial #2} }$
$\newcommand{\umin}[1]{\underset{#1}{\min}\;}$
$\newcommand{\umax}[1]{\underset{#1}{\max}\;}$
$\newcommand{\umin}[1]{\underset{#1}{\min}\;}$
$\newcommand{\uargmin}[1]{\underset{#1}{argmin}\;}$
$\newcommand{\norm}[1]{\|#1\|}$
$\newcommand{\abs}[1]{\left|#1\right|}$
$\newcommand{\choice}[1]{ \left\{ \begin{array}{l} #1 \end{array} \right. }$
$\newcommand{\pa}[1]{\left(#1\right)}$
$\newcommand{\diag}[1]{{diag}\left( #1 \right)}$
$\newcommand{\qandq}{\quad\text{and}\quad}$
$\newcommand{\qwhereq}{\quad\text{where}\quad}$
$\newcommand{\qifq}{ \quad \text{if} \quad }$
$\newcommand{\qarrq}{ \quad \Longrightarrow \quad }$
$\newcommand{\ZZ}{\mathbb{Z}}$
$\newcommand{\CC}{\mathbb{C}}$
$\newcommand{\RR}{\mathbb{R}}$
$\newcommand{\EE}{\mathbb{E}}$
$\newcommand{\Zz}{\mathcal{Z}}$
$\newcommand{\Ww}{\mathcal{W}}$
$\newcommand{\Vv}{\mathcal{V}}$
$\newcommand{\Nn}{\mathcal{N}}$
$\newcommand{\NN}{\mathcal{N}}$
$\newcommand{\Hh}{\mathcal{H}}$
$\newcommand{\Bb}{\mathcal{B}}$
$\newcommand{\Ee}{\mathcal{E}}$
$\newcommand{\Cc}{\mathcal{C}}$
$\newcommand{\Gg}{\mathcal{G}}$
$\newcommand{\Ss}{\mathcal{S}}$
$\newcommand{\Pp}{\mathcal{P}}$
$\newcommand{\Ff}{\mathcal{F}}$
$\newcommand{\Xx}{\mathcal{X}}$
$\newcommand{\Mm}{\mathcal{M}}$
$\newcommand{\Ii}{\mathcal{I}}$
$\newcommand{\Dd}{\mathcal{D}}$
$\newcommand{\Ll}{\mathcal{L}}$
$\newcommand{\Tt}{\mathcal{T}}$
$\newcommand{\si}{\sigma}$
$\newcommand{\al}{\alpha}$
$\newcommand{\la}{\lambda}$
$\newcommand{\ga}{\gamma}$
$\newcommand{\Ga}{\Gamma}$
$\newcommand{\La}{\Lambda}$
$\newcommand{\si}{\sigma}$
$\newcommand{\Si}{\Sigma}$
$\newcommand{\be}{\beta}$
$\newcommand{\de}{\delta}$
$\newcommand{\De}{\Delta}$
$\newcommand{\phi}{\varphi}$
$\newcommand{\th}{\theta}$
$\newcommand{\om}{\omega}$
$\newcommand{\Om}{\Omega}$

This numerical tour explores 2-D multiresolution analysis with Daubechies wavelet transform.

In [1]:

```
using NtToolBox
using PyPlot
using Autoreload
arequire("NtToolBox")
```

The 2-D wavelet transform of a continuous image $f(x)$ computes the set of inner products $$ d_j^k[n] = \dotp{f}{\psi_{j,n}^k} $$ for scales $ j \in \ZZ $, position $ n \in \ZZ^2 $ and orientation $ k \in \{H,V,D\} $.

The wavelet atoms are defined by scaling and translating three mother atoms $ \{\psi^H,\psi^V,\psi^D\} $: $$ \psi_{j,n}^k(x) = \frac{1}{2^j}\psi^k\pa{\frac{x-2^j n}{2^j}} $$ These oriented wavelets are defined by a tensor product of a 1-D wavelet function $\psi(t)$ and a 1-D scaling function $\phi(t)$ $$ \psi^H(x)=\phi(x_1)\psi(x_2), \quad \psi^V(x)=\psi(x_1)\phi(x_2) \qandq \psi^D(x)=\psi(x_1)\psi(x_2).$$

The fast wavelet transform algorithm does not make use of the wavelet and scaling functions, but of the filters $h$ and $g$ that caracterize their interaction: $$ g[n] = \frac{1}{\sqrt{2}}\dotp{\psi(t/2)}{\phi(t-n)} \qandq h[n] = \frac{1}{\sqrt{2}}\dotp{\phi(t/2)}{\phi(t-n)}. $$

The simplest filters are the Haar filters $$ h = [1, 1]/\sqrt{2} \qandq g = [-1, 1]/\sqrt{2}. $$

Daubechies wavelets extends the haar wavelets by using longer filters, that produce smoother scaling functions and wavelets. Furthermore, the larger the size $p=2k$ of the filter, the higher is the number $k$ of vanishing moment.

A high number of vanishing moments allows to better compress regular parts of the signal. However, increasing the number of vanishing moments also inceases the size of the support of the wavelets, wich can be problematic in part where the signal is singular (for instance discontinuous).

Choosing the *best* wavelet, and thus choosing $k$, that is adapted to a
given class of signals, thus corresponds to
a tradeoff between efficiency in regular and singular parts.

- The filter with $k=1$ vanishing moments corresponds to the Haar filter.
- The filter with $k=2$ vanishing moments corresponds to the famous |D4| wavelet, which compresses perfectly linear signals.
- The filter with $k=3$ vanishing moments compresses perfectly quadratic signals.

Set the support size. To begin, we select the D4 filter.

In [2]:

```
p = 4;
```

Create the low pass filter $h$ and the high pass $g$. We add a zero to ensure that it has a odd length. Note that the central value of $h$ corresponds to the 0 position.

In [3]:

```
h = [0, .482962913145, .836516303738, .224143868042, -.129409522551];
h = h/norm(h);
g = cat(1, 0, h[length(h):-1:2]) .* ( (-1).^(1:length(h)) );
```

Note that the high pass filter $g$ is computed directly from the low pass filter as: $$g[n] = (-1)^{1-n}h[1-n]$$

Display.

In [4]:

```
println("h filter = ", h);
println("g filter = ", g);
```

The basic wavelet operation is low/high filtering, followed by down sampling.

Starting from some 1-D signal $f \in \RR^N$, one thus compute the low pass signal $a \in \RR^{N/2}$ and the high pass signal $d \in \RR^{N/2}$ as $$ a = (f \star h) \downarrow 2 \qandq d = (f \star g) \downarrow 2$$ where the sub-sampling is defined as $$ (u \downarrow 2)[k] = u[2k]. $$

Create a random signal $f \in \RR^N$.

In [5]:

```
N = 256;
f = rand(N, 1);
```

Low/High pass filtering followed by sub-sampling.

In [6]:

```
a = subsampling( cconvol(f,h) );
d = subsampling( cconvol(f,g) );
```

For orthogonal filters, the reverse of this process is its dual (aka its transpose), which is upsampling followed by low/high pass filtering with the reversed filters and summing: $$ (a \uparrow h) \star \tilde h + (d \uparrow g) \star \tilde g = f $$ where $\tilde h[n]=h[-n]$ (computed modulo $N$) and $ (u \uparrow 2)[2n]=u[n] $ and $ (u \uparrow 2)[2n+1]=0 $.

Test for energy conservation.

In [7]:

```
e0 = norm(f[:])^2;
e1 = norm(a[:])^2 + norm(d[:])^2;
println("Energy before : $e0");
println("Energy before : $e1");
```

Up-sampling followed by filtering.

In [8]:

```
f1 = cconvol(upsampling(a), reverse(h)) + cconvol(upsampling(d), reverse(g));
```

Check that we really recover the same signal.

In [9]:

```
println("Error |f-f1|/|f| = ", norm(f[:]-f1[:])/norm(f[:]) );
```

The set of wavelet coefficients are computed with a fast algorithm that exploit the embedding of the approximation spaces $V_j$ spanned by the scaling function $ \{ \phi_{j,n} \}_n $ defined as $$ \phi_{j,n}(x) = \frac{1}{2^j}\phi^0\pa{\frac{x-2^j n}{2^j}} \qwhereq \phi^0(x)=\phi(x_1)\phi(x_2). $$

The wavelet transform of $f$ is computed by using intermediate discretized low resolution images obtained by projection on the spaces $V_j$: $$ a_j[n] = \dotp{f}{\phi_{j,n}}. $$

First we load an image of $N= n \times n$ pixels.

In [10]:

```
n = 256;
name = "NtToolBox/src/data/hibiscus.png";
f = load_image(name, N);
f = rescale(sum(f,3));
f = f[:, :, 1];
imageplot(f);
```

The algorithm starts at the coarsest scale $ j=\log_2(n)-1 $

In [11]:

```
j = log2(n) - 1;
```

The first step of the algorithm perform filtering/downsampling in the horizontal direction.

$$ \tilde a_{j-1} = (a_j \star^H h) \downarrow^{2,H} \qandq \tilde d_{j-1} = (a_j \star^H g) \downarrow^{2,H}$$Here, the operator $\star^H$ and $\downarrow^{2,H}$ are defined by applying $\star$ and $\downarrow^2$ to each column of the matrix.

The second step computes the filtering/downsampling in the vertical direction.

$$ a_{j-1} = (\tilde a_j \star^V h) \downarrow^{2,V} \qandq d_{j-1}^V = (\tilde a_j \star^V g) \downarrow^{2,V},$$$$ d_{j-1}^H = (\tilde d_j \star^V h) \downarrow^{2,V} \qandq d_{j-1}^D = (\tilde d_j \star^V g) \downarrow^{2,V}.$$A wavelet transform is computed by iterating high pass and loss pass filterings with |h| and |g|, followed by sub-samplings. Since we are in 2-D, we need to compute these filterings+subsamplings in the horizontal and then in the vertical direction (or in the reverse order, it does not mind).

Initialize the transformed coefficients as the image itself and set the initial scale as the maximum one. |fW| will be iteratively transformated and will contains the coefficients.

In [12]:

```
fW = copy(f);
```

Select the sub-part of the image to transform.

In [13]:

```
A = fW[1 : Int(2^(j + 1)), 1 : Int(2^(j + 1))];
```

Apply high and low filtering+subsampling in the vertical direction (1st ooordinate), to get coarse and details.

In [14]:

```
Coarse = subsampling(cconvol(A, h, 1), 1);
Detail = subsampling(cconvol(A, g, 1), 1);
```

Check for energy conservation.

In [15]:

```
norm(A[:])^2 - norm(Coarse[:])^2 - norm(Detail[:])^2
```

Out[15]:

*Note:* |subsamplling(A,1)| is equivalent to |A(1:2:end,:)| and
|subsamplling(A,2)| is equivalent to |A(:,1:2:end)|.

Concatenate them in the vertical direction to get the result.

In [16]:

```
A = cat(1, Coarse, Detail );
```

Display the result of the vertical transform.

In [17]:

```
clf;
imageplot(f,"Original image", [1, 2, 1]);
imageplot(A,"Vertical transform", [1, 2, 2]);
```

Apply high and low filtering+subsampling in the horizontal direction (2nd ooordinate), to get coarse and details.

In [18]:

```
Coarse = subsampling(cconvol(A, h, 2), 2);
Detail = subsampling(cconvol(A, g, 2), 2);
```

Concatenate them in the horizontal direction to get the result.

In [19]:

```
A = cat(2, Coarse, Detail );
```

Assign the transformed data.

In [20]:

```
fW[1 : Int(2^(j + 1)), 1 : Int(2^(j+1))] = A;
```

Display the result of the horizontal transform.

In [21]:

```
clf;
imageplot(f,"Original image", [1, 2, 1]);
subplot(1,2,2);
plot_wavelet(fW, Int(log2(n) - 1));
title("Transformed");
```

In [22]:

```
print( norm(f[:]) - norm(fW[:]) )
```

**Exercise 1**

Implement a full wavelet transform that extract iteratively wavelet coefficients, by repeating these steps. Take care of choosing the correct number of steps.

In [24]:

```
include("NtSolutions/wavelet_4_daubechies2d/exo1.jl");
```

Check for orthogonality of the transform (conservation of energy).

In [25]:

```
e0 = norm(f[:])^2;
e1 = norm(fW[:])^2;
println("Energy of the signal = $e0");
println("Energy of the coefficients = $e1");
```

Display the wavelet coefficients.

In [26]:

```
clf;
imageplot(f, "Original", [1, 2, 1]);
subplot(1, 2, 2);
plot_wavelet(fW, Jmin);
title("Transformed");
```

Inversing the wavelet transform means retrieving a signal |f1| from the coefficients |fW|. If |fW| are exactely the coefficients of |f|, then |f=f1| up to machine precision.

Initialize the image to recover |f1| as the transformed coefficient, and select the smallest possible scale.

In [27]:

```
f1 = copy(fW);
j = 0;
```

Select the sub-coefficient to transform.

In [28]:

```
A = f1[1 : Int(2^(j + 1)), 1 : Int(2^(j + 1))];
```

Retrieve coarse and detail coefficients in the vertical direction (you can begin by the other direction, this has no importance).

In [29]:

```
Coarse = A[1 : Int(2^j), :];
Detail = A[Int(2^j + 1) : Int(2^(j + 1)), :];
```

Undo the transform by up-sampling and then dual filtering.

In [30]:

```
Coarse = cconvol(upsampling(Coarse, 1), reverse(h), 1);
Detail = cconvol(upsampling(Detail, 1), reverse(g), 1);
```

Recover the coefficient by summing.

In [31]:

```
A = Coarse + Detail;
```

In [32]:

```
Coarse = A[:, 1 : Int(2^j)];
Detail = A[:, Int(2^j + 1) : Int(2^(j + 1))];
```

Undo the transform by up-sampling and then dual filtering.

In [33]:

```
Coarse = cconvol(upsampling(Coarse, 2), reverse(h), 2);
Detail = cconvol(upsampling(Detail, 2), reverse(g), 2);
```

Recover the coefficient by summing.

In [34]:

```
A = Coarse + Detail;
```

Assign the result.

In [35]:

```
f1[1 : Int(2^(j + 1)), 1 : Int(2^(j + 1))] = A;
```

**Exercise 2**

Write the inverse wavelet transform that computes |f1| from the coefficients |fW|. Compare |f1| with |f|.

In [36]:

```
include("NtSolutions/wavelet_4_daubechies2d/exo2.jl");
```

Check that we recover exactly the original image.

In [37]:

```
e = norm(f[:] - f1[:])/norm(f[:]);
print("Error |f-f1|/|f| = $e");
```

Linear approximation is performed by setting to zero the fine scale wawelets coefficients and then performing the inverse wavelet transform.

Here we keep only 1/16 of the wavelet coefficient, thus calculating an |m| term approximation with |m=n^2/16|.

In [38]:

```
eta = 4;
fWLin = zeros(n, n);
fWLin[1 : Int(n/eta), 1 : Int(n/eta)] = fW[1 : Int(n/eta), 1 : Int(n/eta)];
```

**Exercise 3:**
Compute and display the linear approximation |fLin| obtained from the
coefficients |fWLin| by inverse wavelet transform.

In [39]:

```
include("NtSolutions/wavelet_4_daubechies2d/exo3.jl");
```

A non-linear |m|-term approximation is obtained by keeping only the |m| largest coefficients, which creates the smallest possible error.

Removing the smallest coefficient, to keep the |m|-largest, is equivalently obtainedby thresholding the coefficients to set to 0 the smallest coefficients.

First select a threshold value (the largest the threshold, the more agressive the approximation).

In [40]:

```
T = .2;
```

Then set to 0 coefficients with magnitude below the threshold.

In [41]:

```
fWT = fW .* float(abs(fW) .> T);
```

Display thresholded coefficients.

In [42]:

```
clf;
subplot(1,2,1);
plot_wavelet(fW,Jmin);
title("Original coefficients");
subplot(1,2,2);
plot_wavelet(fWT,Jmin);
title("Thresholded coefficients");
```