diff options
| author | jofret | 2009-04-28 06:55:15 +0000 |
|---|---|---|
| committer | jofret | 2009-04-28 06:55:15 +0000 |
| commit | 89ce1d449dde70966962946e197c576cf350dc31 (patch) | |
| tree | 913252b78bddfb80d8a7a98db0592950372f91d0 /src/matrixOperations/multiplication/smulma.c | |
| parent | 49ad35ec2d8a12428a1613e2a955ddae4195e216 (diff) | |
| download | scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.gz scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.bz2 scilab2c-89ce1d449dde70966962946e197c576cf350dc31.zip | |
Moving source code
Diffstat (limited to 'src/matrixOperations/multiplication/smulma.c')
| -rw-r--r-- | src/matrixOperations/multiplication/smulma.c | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/src/matrixOperations/multiplication/smulma.c b/src/matrixOperations/multiplication/smulma.c deleted file mode 100644 index edf10a01..00000000 --- a/src/matrixOperations/multiplication/smulma.c +++ /dev/null @@ -1,49 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include "matrixMultiplication.h" - -/* -** \brief Compute a multiplication for floats matrixes. -** \param in1 : input matrix. -** \param lines1 : lines of in1 matrix. -** \param columns1 : columns of in1 matrix. -** \param in2 : input arry. -** \param lines2 : lines of in2 matrix. -** \param columns2 : columns of in2 matrix. -** \param out : Matrix that contains the multiplication in1 * in2. -*/ -void smulma(float *in1, int lines1, int columns1, - float *in2, int lines2, int columns2, - float *out) -{ - int i = 0; - int k = 0; - float accu = 0; - - /* - ** How to convert 2 index matrixes to one. - ** #define in1(a, b) in1[a+b*lines1] - ** #define in2(c, d) in2[c+d*lines2] - */ - - for (i = 0 ; i < lines1 * columns2 ; ++i) - { - accu = 0; - for (k = 0; k < columns1 ; ++k) - { - accu += in1[i % lines1 + k * lines1] - * in2[k + (i / lines1) * lines2]; - } - out[i] = accu; - } -} |