TIPE_2007/Octave/Multiplication.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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