From 06337f0dc8114c70fd0c7767083971a0d091750a Mon Sep 17 00:00:00 2001
From: Sandeep Gupta
Date: Wed, 5 Jul 2017 12:41:25 +0530
Subject: LinearAlgebra and MatrixOperation Update

---
 src/c/linearAlgebra/proj/dproja.c | 73 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 src/c/linearAlgebra/proj/dproja.c

(limited to 'src/c/linearAlgebra/proj')

diff --git a/src/c/linearAlgebra/proj/dproja.c b/src/c/linearAlgebra/proj/dproja.c
new file mode 100644
index 0000000..e27cd6f
--- /dev/null
+++ b/src/c/linearAlgebra/proj/dproja.c
@@ -0,0 +1,73 @@
+/* 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();
+		
+	
+ 
+	
+	
+	
+	
+
+
+
+
+
+
+
+
+
+
+
+	
+}
-- 
cgit 


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')

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 <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();
-		
-	
- 
-	
-	
-	
-	
-
-
-
-
-
-
-
-
-
-
-
-	
-}
-- 
cgit 


From 7a7f685a8436b456b246c49baf76bb8af930b214 Mon Sep 17 00:00:00 2001
From: Sandeep Gupta
Date: Fri, 7 Jul 2017 00:29:35 +0530
Subject: NORM

---
 src/c/linearAlgebra/proj/dproja.c | 73 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 src/c/linearAlgebra/proj/dproja.c

(limited to 'src/c/linearAlgebra/proj')

diff --git a/src/c/linearAlgebra/proj/dproja.c b/src/c/linearAlgebra/proj/dproja.c
new file mode 100644
index 0000000..e27cd6f
--- /dev/null
+++ b/src/c/linearAlgebra/proj/dproja.c
@@ -0,0 +1,73 @@
+/* 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();
+		
+	
+ 
+	
+	
+	
+	
+
+
+
+
+
+
+
+
+
+
+
+	
+}
-- 
cgit