From d8621c2ace41a0eb1ef1f7825309fb75c73d3f80 Mon Sep 17 00:00:00 2001
From: Audric Schiltknecht <storm@chemicalstorm.org>
Date: Sun, 14 Oct 2012 20:48:52 +0200
Subject: Initial import of schiltknecht.fr

---
 TIPE_2007/Octave/Multiplication.m | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 TIPE_2007/Octave/Multiplication.m

(limited to 'TIPE_2007/Octave/Multiplication.m')

diff --git a/TIPE_2007/Octave/Multiplication.m b/TIPE_2007/Octave/Multiplication.m
new file mode 100644
index 0000000..eb53abc
--- /dev/null
+++ b/TIPE_2007/Octave/Multiplication.m
@@ -0,0 +1,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
-- 
cgit v1.2.3-70-g09d2