From dcfc88991cdfa7f8e53607094e8d26cae399b78e Mon Sep 17 00:00:00 2001 From: Brijeshcr Date: Thu, 10 Aug 2017 19:38:31 +0530 Subject: Added Gamma, gammaln, beta, isinf, ndgrid and range --- 2.3-1/src/c/matrixOperations/ndgrid/zndgrida.c | 39 ++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 2.3-1/src/c/matrixOperations/ndgrid/zndgrida.c (limited to '2.3-1/src/c/matrixOperations/ndgrid/zndgrida.c') diff --git a/2.3-1/src/c/matrixOperations/ndgrid/zndgrida.c b/2.3-1/src/c/matrixOperations/ndgrid/zndgrida.c new file mode 100644 index 00000000..28360e20 --- /dev/null +++ b/2.3-1/src/c/matrixOperations/ndgrid/zndgrida.c @@ -0,0 +1,39 @@ +/* Copyright (C) 2016 - 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: Brijesh Gupta C R + Organization: FOSSEE, IIT Bombay + Email: toolbox@scilab.in +*/ + +#include +#include +#include +#include "ndgrid.h" +#include "doubleComplex.h" + +void zndgrida(doubleComplex* inp1, int size1, doubleComplex* inp2, int size2, doubleComplex* out1, doubleComplex* out2) +{ + for(int i = 0; i < size2; i++) + { + for(int j = 0; j < size1; j++) + { + (out1[j + i*size1]) = (inp1[j]); + (out1[j + i*size1]) = (inp1[j]); + } + } + + for(int i = 0; i < size2; i++) + { + for(int j = 0; j < size1; j++) + { + (out2[j + i*size1]) = (inp2[i]); + (out2[j + i*size1]) = (inp2[i]); + } + } + +} -- cgit