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/jmat/djmata.c | |
| parent | 49ad35ec2d8a12428a1613e2a955ddae4195e216 (diff) | |
| download | scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.gz scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.bz2 scilab2c-89ce1d449dde70966962946e197c576cf350dc31.zip | |
Moving source code
Diffstat (limited to 'src/matrixOperations/jmat/djmata.c')
| -rw-r--r-- | src/matrixOperations/jmat/djmata.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/matrixOperations/jmat/djmata.c b/src/matrixOperations/jmat/djmata.c deleted file mode 100644 index 6ccff61d..00000000 --- a/src/matrixOperations/jmat/djmata.c +++ /dev/null @@ -1,22 +0,0 @@ -#include <jmat.h> - -void djmata(double n, double m, double *out){ - int i,nn,mm,j; - mm=(int) m; - nn=(int) n; - - - for (i=0;i<n;i++){/*We work by blocs*/ - for(j=0;j<m;j++){/*then by column*/ - /* - * i*mm*nn : advance to the good column - * mm*(nn-(i+1)) : take the first element of the column to be 1, when j=0 - * j*(mm*nn+1) : advance to the next which must be 1 - * */ - out[i*mm*mm*nn+(mm*(nn-(i+1))+j*(mm*nn+1))]=1; - } - } - -} - - |