From ea958d3c401761dcc24865d9639b2fab31038db8 Mon Sep 17 00:00:00 2001 From: Brijeshcr Date: Thu, 6 Jul 2017 15:48:47 +0530 Subject: Revert "LinearAlgebra Function Added" --- src/c/linearAlgebra/proj/dproja.c | 73 --------------------------------------- 1 file changed, 73 deletions(-) delete mode 100644 src/c/linearAlgebra/proj/dproja.c (limited to 'src/c/linearAlgebra/proj/dproja.c') diff --git a/src/c/linearAlgebra/proj/dproja.c b/src/c/linearAlgebra/proj/dproja.c deleted file mode 100644 index e27cd6f..0000000 --- a/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 -#include -#include "proj.h" -#include "eye.h" -#include "matrixTranspose.h" -#include "matrixMultiplication.h" -#include -#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