diff options
Diffstat (limited to 'macros/FunctionAnnotation/FA_SZ_OPCC.sci')
-rw-r--r-- | macros/FunctionAnnotation/FA_SZ_OPCC.sci | 80 |
1 files changed, 40 insertions, 40 deletions
diff --git a/macros/FunctionAnnotation/FA_SZ_OPCC.sci b/macros/FunctionAnnotation/FA_SZ_OPCC.sci index 50527771..55638cf0 100644 --- a/macros/FunctionAnnotation/FA_SZ_OPCC.sci +++ b/macros/FunctionAnnotation/FA_SZ_OPCC.sci @@ -1,40 +1,40 @@ -function opoutsize = FA_SZ_OPCC(in1size,in2size)
-// function opoutsize = FA_SZ_OPCC(in1size,in2size)
-// -----------------------------------------------------------------
-// Returns the size of the output computed by OPCC operator.
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1size = string(in1size);
-in2size = string(in2size);
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-// --- Get dimensions of input arguments. ---
-in1dim = GetSymbolDimension(in1size);
-in2dim = GetSymbolDimension(in2size);
-
-if (isnum(in1size(1)) & isnum(in2size(1)))
- in1num = eval(in1size(1));
- in2num = eval(in2size(1));
- opoutsize(1) = string(in1num+in2num);
-else
- opoutsize(1) = '('+string(in1size(1))+'+'+string(in2size(1))+')';
-end
-
-opoutsize(2) = in1size(2);
-
-endfunction
+function opoutsize = FA_SZ_OPCC(in1size,in2size) +// function opoutsize = FA_SZ_OPCC(in1size,in2size) +// ----------------------------------------------------------------- +// Returns the size of the output computed by OPCC operator. +// +// +// Status: +// 08-Mar-2008 -- Raffaele Nutricato: Author. +// 08-Mar-2008 -- Alberto Morea: Test Ok. +// +// Copyright 2008 Raffaele Nutricato & Alberto Morea. +// Contact: raffaele.nutricato@tiscali.it +// ----------------------------------------------------------------- + +// ------------------------------ +// --- Check input arguments. --- +// ------------------------------ +SCI2CNInArgCheck(argn(2),2,2); + +in1size = string(in1size); +in2size = string(in2size); + +// ------------------------ +// --- Generate Output. --- +// ------------------------ +// --- Get dimensions of input arguments. --- +in1dim = GetSymbolDimension(in1size); +in2dim = GetSymbolDimension(in2size); + +if (isnum(in1size(1)) & isnum(in2size(1))) + in1num = eval(in1size(1)); + in2num = eval(in2size(1)); + opoutsize(1) = string(in1num+in2num); +else + opoutsize(1) = '('+string(in1size(1))+'+'+string(in2size(1))+')'; +end + +opoutsize(2) = in1size(2); + +endfunction |