#######################################
## MW Trasformata di Walsh.

# Trasformata veloce di Walsh.
Mw = function (v)
{N=length(v)
if (N==1) v
else {M=N/2
v1=v[1:M]; v2=v[(M+1):N]
p1=Mw(v1); p2=Mw(v2)
c(p1+p2,p1-p2)}}

# Matrice di Walsh.
Mw.matrice = function (n)
{if (n==0) 1
else {W=Mw.matrice(n-1)
rbind(cbind(W,W),cbind(W,-W))}}

# Trasforma una funzione in un vettore.
Mw.vettore = function (f,n)
{X=Mfb.cubo(n)
sapply(X,f)}