function[R]=Multiplication(P,Q)

n=length(P);
N=2*n;
A=zeros(1,N);
B=zeros(1,N);
R=zeros(1,N);

for i=1:n
	A(i)=P(i);
	B(i)=Q(i);
end 

%On calcule les transformées de chaque élément.
A=TFDB(A);
B=TFDB(B);
%On effectue les produits
for i=1:N
	R(i)=A(i)*B(i);
end
R=TFDIB(R);
endfunction