diff options
Diffstat (limited to '2.3-1/src/c/linearAlgebra/proj/dproja.c')
-rw-r--r-- | 2.3-1/src/c/linearAlgebra/proj/dproja.c | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/2.3-1/src/c/linearAlgebra/proj/dproja.c b/2.3-1/src/c/linearAlgebra/proj/dproja.c deleted file mode 100644 index e27cd6f2..00000000 --- a/2.3-1/src/c/linearAlgebra/proj/dproja.c +++ /dev/null @@ -1,73 +0,0 @@ -/* Copyright (C) 2017 - IIT Bombay - FOSSEE - - 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 - Author: Sandeep Gupta - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ - -/* Scilab function proj code in C */ - -#include <stdio.h> -#include <stdlib.h> -#include "proj.h" -#include "eye.h" -#include "matrixTranspose.h" -#include "matrixMultiplication.h" -#include <math.h> -#include "norm.h" - - -double dproja(double *x1,int l,int k,double *x2,int m2,int n2,double *y){ - int i,j; - double *w; - w = (double *)malloc(l*l*sizeof(double)); - double rk; - rk = drowcompa(1,x1,l,k,NULL,0,w); - - double *w1; - w1 = (double *)malloc(rk*l*sizeof(double)); - - for(i=0;i<l*rk;i++){ - w1[i]=w[i]; - } - - double *x1t; - x1t = (double *)malloc((l-n)*l*sizeof(double); - - for(i=n;i<l;i++){ - for(j=0;j<l;j++){ - x1t[i-n+j*l] = w1[i+j*l]; - } - } - - double x1x2; - x1x2 = (double *)malloc((l-n+1)*n2*sizeof(double)); - dmulma(x1t,l-n+1,l,x2,m2,n2,x1x2); - - double *inx1x2; - inx1x2 = (double *)malloc(); - - - - - - - - - - - - - - - - - - - -} |