diff options
Diffstat (limited to 'content/static/TIPE_2007/Octave/Multiplication.m')
| -rw-r--r-- | content/static/TIPE_2007/Octave/Multiplication.m | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/content/static/TIPE_2007/Octave/Multiplication.m b/content/static/TIPE_2007/Octave/Multiplication.m new file mode 100644 index 0000000..eb53abc --- /dev/null +++ b/content/static/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 |