diff options
Diffstat (limited to 'macros/FunctionAnnotation')
38 files changed, 415 insertions, 94 deletions
diff --git a/macros/FunctionAnnotation/FA_SCHUR_SZ.bin b/macros/FunctionAnnotation/FA_SCHUR_SZ.bin Binary files differindex d16f029..292a619 100644 --- a/macros/FunctionAnnotation/FA_SCHUR_SZ.bin +++ b/macros/FunctionAnnotation/FA_SCHUR_SZ.bin diff --git a/macros/FunctionAnnotation/FA_SCHUR_SZ.sci b/macros/FunctionAnnotation/FA_SCHUR_SZ.sci index 6ae2030..7b426e1 100644 --- a/macros/FunctionAnnotation/FA_SCHUR_SZ.sci +++ b/macros/FunctionAnnotation/FA_SCHUR_SZ.sci @@ -1,4 +1,33 @@ function out2sz = FA_SCHUR_SZ(in2tp,in1sz) +//function out2sz = FA_SCHUR_SZ(in2tp,in1sz) +// ----------------------------------------------------------------- +// Get size of output for Schur function +// +// Input data: +// in2tp: string specifying the type of second input argument. +// in1sz: string specifying the size of first input argument. +// +// Output data: +// out2sz: string containing the size for second output argument. +// +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); in2type = string(in2tp); in1sz = string(in1sz); diff --git a/macros/FunctionAnnotation/FA_SCHUR_TP.bin b/macros/FunctionAnnotation/FA_SCHUR_TP.bin Binary files differindex 8b31a0c..4b0b438 100644 --- a/macros/FunctionAnnotation/FA_SCHUR_TP.bin +++ b/macros/FunctionAnnotation/FA_SCHUR_TP.bin diff --git a/macros/FunctionAnnotation/FA_SCHUR_TP.sci b/macros/FunctionAnnotation/FA_SCHUR_TP.sci index a8b68b1..828ea1e 100644 --- a/macros/FunctionAnnotation/FA_SCHUR_TP.sci +++ b/macros/FunctionAnnotation/FA_SCHUR_TP.sci @@ -1,4 +1,32 @@ function out2tp = FA_SCHUR_TP(in2tp) +// function out2tp = FA_SCHUR_TP(in2tp) +// ----------------------------------------------------------------- +// Get type of output for Schur function +// +// Input data: +// in2tp: string specifying the type of second input argument. +// +// Output data: +// out2tp: string containing the type for second output argument. +// +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(1),1,1); in2type = string(in2tp); diff --git a/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.bin b/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.bin Binary files differindex 68d6a37..a3b34af 100644 --- a/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.bin +++ b/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.bin diff --git a/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.sci b/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.sci index df129f9..3aea839 100644 --- a/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.sci +++ b/macros/FunctionAnnotation/FA_SZ_COLUMN_DIAG.sci @@ -1,20 +1,32 @@ function outsize = FA_SZ_COLUMN_DIAG(insize) - // function outsize = FA_SZ_1(insize) - // ----------------------------------------------------------------- - // Returns the first element of the size array. - // - // Input data: - // insize: size of input argument. It is an array of 2 strings. - // The first string specifies the number of rows. - // The second string specifies the number of columns. - // - // Output data: - // outsize: first element of the insize array. - // - // Status: - // 08-Dec-2007 -- Raffaele Nutricato: Author. - // 08-Dec-2007 -- Alberto Morea: Test Ok. - // ----------------------------------------------------------------- +//function outsize = FA_SZ_COLUMN_DIAG(insize) +// ----------------------------------------------------------------- +// Get size of column of the output for diag function +// +// Input data: +// insize: string specifying the size of input argument. +// +// Output data: +// outsize: string containing the column size for output argument. +// +// 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: Mushir +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(1),1,1); if(insize(2)=='1') then outsize = insize(1); diff --git a/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.bin b/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.bin Binary files differindex e39a0be..7674823 100644 --- a/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.bin +++ b/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.bin diff --git a/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.sci b/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.sci index 45d74c3..8a313fe 100644 --- a/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.sci +++ b/macros/FunctionAnnotation/FA_SZ_COL_DIAG_IN_EX.sci @@ -1,6 +1,35 @@ function outsize =FA_SZ_COL_DIAG_IN_EX(insize,val) - -///////////////////////////////COLUMN SIZE FOR INSERT POSITION////////////////// +//function outsize =FA_SZ_COL_DIAG_IN_EX(insize,val) +// ----------------------------------------------------------------- +// Get size of column of the output for diag(insert) function +// +// Input data: +// insize: string specifying the size of input argument. +// val: string containing value of second input +// +// Output data: +// outsize: string containing the column size for output argument. +// +// 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: Mushir +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); + +///////////////////////////////COLUMN SIZE FOR INSERT POSITION//////////////// @@ -8,13 +37,15 @@ function outsize =FA_SZ_COL_DIAG_IN_EX(insize,val) if(val == '0') then //For Oth position outsize = insize(2); //COLUMN size is equal to COLUMN size else // For ...-2,-1,1,2... position - outsize = string(eval(insize(2))+abs(eval(val)));// COLUMN size is equal to COLUMN size + absolute value of position(for 1*3 matrix and 2nd postion COLUMN size is (3+2)=5 + outsize = string(eval(insize(2))+abs(eval(val))); + // COLUMN size is equal to COLUMN size + absolute value of position(for 1*3 matrix and 2nd postion COLUMN size is (3+2)=5 end elseif((insize(2) == '1')) // If COLUMN size is 1 if(val == '0') then //For Oth position outsize = insize(1); //COLUMNS size is equal to ROW size else // For ...-2,-1,1,2.... position - outsize = string(eval(insize(1))+abs(eval(val)));// COLUMN size is equal to ROW size + absolute value of position(for 3*1 matrix and 1st postion COLUMN size is (3+1)=4 + outsize = string(eval(insize(1))+abs(eval(val))); + // COLUMN size is equal to ROW size + absolute value of position(for 3*1 matrix and 1st postion COLUMN size is (3+1)=4 end //////////////////////////////////////////////////////////////////////////////// diff --git a/macros/FunctionAnnotation/FA_SZ_DIFF.bin b/macros/FunctionAnnotation/FA_SZ_DIFF.bin Binary files differindex 5f169e6..08d66c1 100644 --- a/macros/FunctionAnnotation/FA_SZ_DIFF.bin +++ b/macros/FunctionAnnotation/FA_SZ_DIFF.bin diff --git a/macros/FunctionAnnotation/FA_SZ_DIFF.sci b/macros/FunctionAnnotation/FA_SZ_DIFF.sci index df18310..5639ce7 100644 --- a/macros/FunctionAnnotation/FA_SZ_DIFF.sci +++ b/macros/FunctionAnnotation/FA_SZ_DIFF.sci @@ -1,4 +1,17 @@ -// Copyright (C) 2016 - IIT Bombay - FOSSEE +function outsize = FA_SZ_DIFF(in1size, in2val, in3val) +//function outsize = FA_SZ_DIFF(in1size, in2val, in3val) +// ----------------------------------------------------------------- +// Get size of output for diff function +// +// Input data: +// in1size: string specifying the size of first input argument. +// in2val: string specifying the value of second input argument. +// in3val: string specifying the value of third input argument. +// +// Output data: +// outsize: string containing the size for output argument. +// +// 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 @@ -8,9 +21,15 @@ // Author: Siddhesh Wani // Organization: FOSSEE, IIT Bombay // Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(3),3,3); -//This fucntion calulates size of output depending upon input -function outsize = FA_SZ_DIFF(in1size, in2val, in3val) in1size = string(in1size); in1row = eval(in1size(1)); in1col = eval(in1size(2)); diff --git a/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.bin b/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.bin Binary files differindex 0a5589b..60cb9d4 100644 --- a/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.bin +++ b/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.bin diff --git a/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.sci b/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.sci index 986b529..69a816c 100644 --- a/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.sci +++ b/macros/FunctionAnnotation/FA_SZ_LINSPACE_ROW.sci @@ -1,4 +1,33 @@ function outsize = FA_SZ_LINSPACE_ROW(insize) +//function outsize = FA_SZ_LINSPACE_ROW(insize) +// ----------------------------------------------------------------- +// Get size of row for output for linspace function +// +// Input data: +// insize: string specifying the size of first input argument. +// +// Output data: +// outsize: string containing the row size of output argument. +// +// 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: Mushir +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(1),1,1); + in1num = string(eval(insize(1))); outsize = in1num; endfunction: diff --git a/macros/FunctionAnnotation/FA_SZ_LQE.bin b/macros/FunctionAnnotation/FA_SZ_LQE.bin Binary files differindex 2fb9772..8abfa39 100644 --- a/macros/FunctionAnnotation/FA_SZ_LQE.bin +++ b/macros/FunctionAnnotation/FA_SZ_LQE.bin diff --git a/macros/FunctionAnnotation/FA_SZ_LQE.sci b/macros/FunctionAnnotation/FA_SZ_LQE.sci index e7aecf1..6ddd198 100644 --- a/macros/FunctionAnnotation/FA_SZ_LQE.sci +++ b/macros/FunctionAnnotation/FA_SZ_LQE.sci @@ -1,4 +1,33 @@ function outsize = FA_SZ_LQE(inval,insz) +//function outsize = FA_SZ_LQE(inval,insz) +// ----------------------------------------------------------------- +// Get size of output for lqe function +// +// Input data: +// inval: string specifying the value of input argument. +// insz: string specifying the size of input argument. +// +// Output data: +// outsize: string containing the size for second output argument. +// +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); inval = eval(inval) insz = eval(insz) diff --git a/macros/FunctionAnnotation/FA_SZ_LQR.bin b/macros/FunctionAnnotation/FA_SZ_LQR.bin Binary files differindex 2de9d56..843fb2c 100644 --- a/macros/FunctionAnnotation/FA_SZ_LQR.bin +++ b/macros/FunctionAnnotation/FA_SZ_LQR.bin diff --git a/macros/FunctionAnnotation/FA_SZ_LQR.sci b/macros/FunctionAnnotation/FA_SZ_LQR.sci index 2f199d0..cf1884a 100644 --- a/macros/FunctionAnnotation/FA_SZ_LQR.sci +++ b/macros/FunctionAnnotation/FA_SZ_LQR.sci @@ -1,4 +1,32 @@ function outsize = FA_SZ_LQR(inval) +//function outsize = FA_SZ_LQR(inval) +// ----------------------------------------------------------------- +// Get size of output for lqr function +// +// Input data: +// inval: string specifying the value of input argument. +// +// Output data: +// outsize: string containing the size for output argument. +// +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(1),1,1); inval = eval(inval) outsize(1) = string(int(inval)); diff --git a/macros/FunctionAnnotation/FA_SZ_OBSCNT.bin b/macros/FunctionAnnotation/FA_SZ_OBSCNT.bin Binary files differindex 70ce8df..b936e29 100644 --- a/macros/FunctionAnnotation/FA_SZ_OBSCNT.bin +++ b/macros/FunctionAnnotation/FA_SZ_OBSCNT.bin diff --git a/macros/FunctionAnnotation/FA_SZ_OBSCNT.sci b/macros/FunctionAnnotation/FA_SZ_OBSCNT.sci index 80c0f95..a7cb85b 100644 --- a/macros/FunctionAnnotation/FA_SZ_OBSCNT.sci +++ b/macros/FunctionAnnotation/FA_SZ_OBSCNT.sci @@ -1,4 +1,35 @@ function outsize = FA_SZ_OBSCNT(inval,insz1,insz2,nout) +//function outsize = FA_SZ_OBSCNT(inval,insz1,insz2,nout) +// ----------------------------------------------------------------- +// Get size of output for obscont function +// +// Input data: +// inval: string specifying the value of first input argument. +// insz1: string specifying the row size of first input argument. +// insz2: string specifying the col size of first input argument. +// nout: string specifying number of output arguments +// +// Output data: +// outsize: string containing the size for output argument. +// +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(4),4,4); inval = eval(inval); insz1 = eval(insz1); diff --git a/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.bin b/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.bin Binary files differindex 747a31d..3ebb951 100644 --- a/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.bin +++ b/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.bin diff --git a/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.sci b/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.sci index 3dd4e60..35cf8ac 100644 --- a/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.sci +++ b/macros/FunctionAnnotation/FA_SZ_PERMUTE_ROW.sci @@ -1,5 +1,5 @@ function outsize=FA_SZ_PERMUTE_ROW(insize, val) -disp(size(val)) + outsize = 3; //if((val(0) == '1') & (val(1) == '2')) // outsize = insize(1); diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.bin b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.bin Binary files differindex edba674..28b7fa5 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.bin +++ b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.bin diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.sci b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.sci index ca1d262..11b245e 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.sci +++ b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN.sci @@ -1,47 +1,27 @@ function opoutsize = FA_SZ_ROW_COLUMN(in1size,in2size) -// function opoutsize = FA_SZ_OPPLUSA(in1size,in2size) +//function opoutsize = FA_SZ_ROW_COLUMN(in1size,in2size) // ----------------------------------------------------------------- -// Returns the size of the output computed by OPPLUS operator -// restricted to arithmetic operations (string operations not supported.) -// -// Assuming: -// size(in1) = [in1r,in1c] -// size(in2) = [in2r,in2c] -// size(out) = [outr,outc] -// -// we have the following combinations: -// in1 in2 outr outc -// ----------------------- -// S S in2r in2c -// S M in2r in2c -// M S in1r in1c -// M M in1r in1c -// -// Where S means that the input is a scalar -// and M means that the input is a matrix. -// There is also the case related to the string catenation! -// This is the main difference between - and + operators. +// Get size of output for Schur function // // Input data: -// in1size: size of input number 1. It is an array of 2 strings. -// The first string specifies the number of rows. -// The second string specifies the number of columns. -// -// in2size: size of input number 2. It is an array of 2 strings. -// The first string specifies the number of rows. -// The second string specifies the number of columns. +// in2tp: string specifying the type of second input argument. +// in1sz: string specifying the size of first input argument. // // Output data: -// opoutsize: size of output. It is an array of 2 strings. -// The first string specifies the number of rows. -// The second string specifies the number of columns. +// out2sz: string containing the size for second output argument. // -// Status: -// 18-Mar-2008 -- Raffaele Nutricato: Author. -// 18-Mar-2008 -- Alberto Morea: Test Ok. +// Copyright (C) 2017 - IIT Bombay - FOSSEE // -// Copyright 2008 Raffaele Nutricato & Alberto Morea. -// Contact: raffaele.nutricato@tiscali.it +// 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: Mushir +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + // ----------------------------------------------------------------- // ------------------------------ diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.bin b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.bin Binary files differindex 2373b81..5679bce 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.bin +++ b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.bin diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci index 5ab0c64..aaca286 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci +++ b/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci @@ -1,8 +1,35 @@ function outsize = FA_SZ_ROW_COLUMN_CAT(inval,in1size,in2size)
+//function outsize = FA_SZ_ROW_COLUMN_CAT(inval,in1size,in2size)
+// -----------------------------------------------------------------
+// Get size of row (col) of the output for cat function
+//
+// Input data:
+// inval: string specifying the value of input argument.
+// in1size: string specifying the row (col) of second input
+// in3size: string specifying the row (col) of third input
+// Output data:
+// outsize: string containing the column size for output argument.
+//
+// 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: Mushir
+// Organization: FOSSEE, IIT Bombay
+// Email: toolbox@scilab.in
+//
+
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(1),3,3);
-//Check the input arguments
-SCI2CNInArgCheck(argn(2),3,3);
in1size = string(in1size);
in2size = string(in2size);
inval = string(inval);
diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.bin b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.bin Binary files differindex 7fc7dcc..f5f1a23 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.bin +++ b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.bin diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci index 687a89e..1417b42 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci +++ b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG.sci @@ -1,21 +1,33 @@ function outsize = FA_SZ_ROW_DIAG(insize) -// function outsize = FA_SZ_1(insize) +//function outsize = FA_SZ_ROW_DIAG(insize) // ----------------------------------------------------------------- -// Returns the first element of the size array. -// +// Get size of row of the output for diag function +// // Input data: -// insize: size of input argument. It is an array of 2 strings. -// The first string specifies the number of rows. -// The second string specifies the number of columns. -// +// insize: string specifying the size of input argument. +// // Output data: -// outsize: first element of the insize array. +// outsize: string containing the row size for output argument. +// +// Copyright (C) 2017 - IIT Bombay - FOSSEE // -// Status: -// 08-Dec-2007 -- Raffaele Nutricato: Author. -// 08-Dec-2007 -- Alberto Morea: Test Ok. +// 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: Mushir +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + // ----------------------------------------------------------------- +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(1),1,1); + if(insize(1)=='1') then outsize = insize(2); elseif(insize(1) == insize(2)) diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.bin b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.bin Binary files differindex 046b4b7..e5d8e65 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.bin +++ b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.bin diff --git a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.sci b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.sci index 1ec720a..1dddfb7 100644 --- a/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.sci +++ b/macros/FunctionAnnotation/FA_SZ_ROW_DIAG_INS_EXT.sci @@ -1,4 +1,33 @@ function outsize = FA_SZ_ROW_DIAG_INS_EXT(insize,val) +//function outsize = FA_SZ_ROW_DIAG_INS_EXT(insize,val) +// ----------------------------------------------------------------- +// Get row size of output for diag(insert) function +// +// Input data: +// insize: string specifying the size of first input argument. +// val: string specifying the value of second input argument. +// +// Output data: +// outsize: string containing the size for output argument. +// +// 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: Mushir +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in +// + +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); // val ==> Position value ...,-2,-1,0,1,2.... //insize ==> insize(1) will give ROW size and insize(2) will give COLUMN size. @@ -6,7 +35,7 @@ function outsize = FA_SZ_ROW_DIAG_INS_EXT(insize,val) row_num = eval(insize(1)); col_num = eval(insize(2)); val_num = eval(val); - /////////////////////////////////////////////// FOR INSERT CONDITION //////////////////////////////////////////// + ///////////////////// FOR INSERT CONDITION ////////////////////////////// @@ -15,7 +44,8 @@ function outsize = FA_SZ_ROW_DIAG_INS_EXT(insize,val) outsize = string(col_num);// ROW size is equal to COLUMN size else // For ....-2,-1,1,2... positions - outsize = string(col_num+abs(val_num)); //ROW is equal to COLUMN SIZE + position value (i.e for 1*4 matrix and insert position 1 then ROW size is 4+1 = 5 ) + outsize = string(col_num+abs(val_num)); + //ROW is equal to COLUMN SIZE + position value (i.e for 1*4 matrix and insert position 1 then ROW size is 4+1 = 5 ) end elseif(col_num == 1) // if Column size is one @@ -23,14 +53,15 @@ function outsize = FA_SZ_ROW_DIAG_INS_EXT(insize,val) outsize = string(row_num); // ROW size is equal to ROW size else // ....-2,-1,1,2... positions. - outsize = string(row_num + abs(val_num));//ROW is equal to ROW SIZE + position value (i.e for 4*1 matrix and insert position 1 then ROW size is 4+1 = 5 ) + outsize = string(row_num + abs(val_num)); + //ROW is equal to ROW SIZE + position value (i.e for 4*1 matrix and insert position 1 then ROW size is 4+1 = 5 ) end - /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////// - ///////////////////////////////////////// FOR EXTRACT CONDITION ///////////////////////////////////////////////// + //////////////////////////// FOR EXTRACT CONDITION ///////////////////////// elseif(row_num == col_num) // For no. of rows equal to no. of column (R == C) if(val_num == 0) then //For 0th position @@ -66,7 +97,7 @@ function outsize = FA_SZ_ROW_DIAG_INS_EXT(insize,val) outsize = string(row_num-abs(val_num)); // row size is substraction of row size and absolute value of position values(-1,-2,-3) end - ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////////////////// end endfunction diff --git a/macros/FunctionAnnotation/FA_TP_CVIMAGE.bin b/macros/FunctionAnnotation/FA_TP_CVIMAGE.bin Binary files differindex 1d824fb..a732709 100644 --- a/macros/FunctionAnnotation/FA_TP_CVIMAGE.bin +++ b/macros/FunctionAnnotation/FA_TP_CVIMAGE.bin diff --git a/macros/FunctionAnnotation/FA_TP_CVIMAGE.sci b/macros/FunctionAnnotation/FA_TP_CVIMAGE.sci index 1c0d174..5e87ab8 100644 --- a/macros/FunctionAnnotation/FA_TP_CVIMAGE.sci +++ b/macros/FunctionAnnotation/FA_TP_CVIMAGE.sci @@ -10,10 +10,17 @@ function typeout = FA_TP_CVIMAGE() // Output data: // typeout: string containing the type specifier. // -// Status: +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in // -// Copyright 2007 Raffaele Nutricato & Alberto Morea. -// Contact: raffaele.nutricato@tiscali.it // ----------------------------------------------------------------- // ------------------------------ diff --git a/macros/FunctionAnnotation/FA_TP_INT16.bin b/macros/FunctionAnnotation/FA_TP_INT16.bin Binary files differindex e28e0c5..fba4305 100644 --- a/macros/FunctionAnnotation/FA_TP_INT16.bin +++ b/macros/FunctionAnnotation/FA_TP_INT16.bin diff --git a/macros/FunctionAnnotation/FA_TP_INT16.sci b/macros/FunctionAnnotation/FA_TP_INT16.sci index 67b8178..b7e25ca 100644 --- a/macros/FunctionAnnotation/FA_TP_INT16.sci +++ b/macros/FunctionAnnotation/FA_TP_INT16.sci @@ -10,10 +10,17 @@ function typeout = FA_TP_INT16() // Output data: // typeout: string containing the type specifier. // -// Status: +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in // -// Copyright 2007 Raffaele Nutricato & Alberto Morea. -// Contact: raffaele.nutricato@tiscali.it // ----------------------------------------------------------------- // ------------------------------ diff --git a/macros/FunctionAnnotation/FA_TP_INT8.bin b/macros/FunctionAnnotation/FA_TP_INT8.bin Binary files differindex 3f5055f..f67d748 100644 --- a/macros/FunctionAnnotation/FA_TP_INT8.bin +++ b/macros/FunctionAnnotation/FA_TP_INT8.bin diff --git a/macros/FunctionAnnotation/FA_TP_INT8.sci b/macros/FunctionAnnotation/FA_TP_INT8.sci index 49c752b..f1e2bf2 100644 --- a/macros/FunctionAnnotation/FA_TP_INT8.sci +++ b/macros/FunctionAnnotation/FA_TP_INT8.sci @@ -10,10 +10,17 @@ function typeout = FA_TP_INT8() // Output data: // typeout: string containing the type specifier. // -// Status: +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in // -// Copyright 2007 Raffaele Nutricato & Alberto Morea. -// Contact: raffaele.nutricato@tiscali.it // ----------------------------------------------------------------- // ------------------------------ diff --git a/macros/FunctionAnnotation/FA_TP_UINT16.bin b/macros/FunctionAnnotation/FA_TP_UINT16.bin Binary files differindex 687024f..dc455ca 100644 --- a/macros/FunctionAnnotation/FA_TP_UINT16.bin +++ b/macros/FunctionAnnotation/FA_TP_UINT16.bin diff --git a/macros/FunctionAnnotation/FA_TP_UINT16.sci b/macros/FunctionAnnotation/FA_TP_UINT16.sci index 5f1c98f..b77d775 100644 --- a/macros/FunctionAnnotation/FA_TP_UINT16.sci +++ b/macros/FunctionAnnotation/FA_TP_UINT16.sci @@ -10,10 +10,17 @@ function typeout = FA_TP_UINT16() // Output data: // typeout: string containing the type specifier. // -// Status: +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in // -// Copyright 2007 Raffaele Nutricato & Alberto Morea. -// Contact: raffaele.nutricato@tiscali.it // ----------------------------------------------------------------- // ------------------------------ diff --git a/macros/FunctionAnnotation/FA_TP_UINT8.bin b/macros/FunctionAnnotation/FA_TP_UINT8.bin Binary files differindex 02e7404..508db41 100644 --- a/macros/FunctionAnnotation/FA_TP_UINT8.bin +++ b/macros/FunctionAnnotation/FA_TP_UINT8.bin diff --git a/macros/FunctionAnnotation/FA_TP_UINT8.sci b/macros/FunctionAnnotation/FA_TP_UINT8.sci index 934f354..f31cde0 100644 --- a/macros/FunctionAnnotation/FA_TP_UINT8.sci +++ b/macros/FunctionAnnotation/FA_TP_UINT8.sci @@ -10,10 +10,17 @@ function typeout = FA_TP_UINT8() // Output data: // typeout: string containing the type specifier. // -// Status: +// 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: Siddhesh Wani +// Organization: FOSSEE, IIT Bombay +// Email: toolbox@scilab.in // -// Copyright 2007 Raffaele Nutricato & Alberto Morea. -// Contact: raffaele.nutricato@tiscali.it // ----------------------------------------------------------------- // ------------------------------ |