From 277d1edfa17bf3719d90ddbac8e31f6181e952c3 Mon Sep 17 00:00:00 2001 From: Sandeep Gupta Date: Sun, 18 Jun 2017 23:55:40 +0530 Subject: First commit --- macros/FunctionAnnotation/FA_SZ_U_SVA.sci | 39 +++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 macros/FunctionAnnotation/FA_SZ_U_SVA.sci (limited to 'macros/FunctionAnnotation/FA_SZ_U_SVA.sci') diff --git a/macros/FunctionAnnotation/FA_SZ_U_SVA.sci b/macros/FunctionAnnotation/FA_SZ_U_SVA.sci new file mode 100644 index 00000000..258d9870 --- /dev/null +++ b/macros/FunctionAnnotation/FA_SZ_U_SVA.sci @@ -0,0 +1,39 @@ +function opout = FA_SZ_U_SVA(in1,in2) + +// function opout = FA_SZ_U_SVA(in1,in2) +// ----------------------------------------------------------------- +// Determines the number of rows of the output arguments +// according to the second input argument. +// +// Input data: +// in1: specifying a matrix or a symbol. +// in2: string specifying a number or a symbol. +// +// Output data: +// opout: string containing the computed size of U matrix. +// +// 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 +// +// ----------------------------------------------------------------- + +in1 = string(in1); +in1 = eval(in1); +in2 = string(in2); +in2 = eval(in2); + +[U,S,V] = sva(in1,in2); +outsize = size(U) + +opout = outsize(2) +opout = string(opout) + +endfunction -- cgit From 362bd2337910fec57d854ebb179772efe552f929 Mon Sep 17 00:00:00 2001 From: Sandeep Gupta Date: Mon, 19 Jun 2017 17:02:45 +0530 Subject: 19-June-2017 --- macros/FunctionAnnotation/FA_SZ_U_SVA.sci | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'macros/FunctionAnnotation/FA_SZ_U_SVA.sci') diff --git a/macros/FunctionAnnotation/FA_SZ_U_SVA.sci b/macros/FunctionAnnotation/FA_SZ_U_SVA.sci index 258d9870..695bef02 100644 --- a/macros/FunctionAnnotation/FA_SZ_U_SVA.sci +++ b/macros/FunctionAnnotation/FA_SZ_U_SVA.sci @@ -25,15 +25,15 @@ function opout = FA_SZ_U_SVA(in1,in2) // // ----------------------------------------------------------------- -in1 = string(in1); -in1 = eval(in1); -in2 = string(in2); -in2 = eval(in2); - -[U,S,V] = sva(in1,in2); -outsize = size(U) - -opout = outsize(2) -opout = string(opout) +//in1 = string(in1); +disp(in1) +disp(in2) +//in1 = eval(in1); +//in2 = string(in2); +//in2 = eval(in2); +//[U,S,V] = sva(in1,in2); +//outsize = size(U) +//opout = outsize(2) +opout = string(in2) endfunction -- cgit