diff options
| author | Audric Schiltknecht <storm@chemicalstorm.org> | 2012-10-14 20:48:52 +0200 |
|---|---|---|
| committer | Audric Schiltknecht <storm@chemicalstorm.org> | 2012-10-14 20:48:52 +0200 |
| commit | d8621c2ace41a0eb1ef1f7825309fb75c73d3f80 (patch) | |
| tree | 3be861a2abd4733e5734398dca4083e8f1d0a822 /TIPE_2007/Octave/Multiplication.m | |
| download | schiltknecht.org-d8621c2ace41a0eb1ef1f7825309fb75c73d3f80.tar.gz schiltknecht.org-d8621c2ace41a0eb1ef1f7825309fb75c73d3f80.tar.bz2 schiltknecht.org-d8621c2ace41a0eb1ef1f7825309fb75c73d3f80.zip | |
Initial import of schiltknecht.fr
Diffstat (limited to 'TIPE_2007/Octave/Multiplication.m')
| -rw-r--r-- | TIPE_2007/Octave/Multiplication.m | 22 |
1 files changed, 22 insertions, 0 deletions
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 |