diff options
Diffstat (limited to 'tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci')
-rw-r--r-- | tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci b/tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci index 87430bba..ab3771d7 100644 --- a/tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci +++ b/tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci @@ -3,21 +3,21 @@ //SCI2C: OUT(1).TP= IN(1).TP //SCI2C: OUT(1).SZ(1)= FA_SZ_1(IN(1).SZ) //SCI2C: OUT(1).SZ(2)= FA_SZ_2(IN(1).SZ) -//SCI2C: DEFAULT_PRECISION= FLOAT
-
-function outrec = RecursivePower(in,pwrfct)
-
-
-if (pwrfct == 0)
- outrec = ones(in);
-end
-
-if (pwrfct == 1)
- outrec = in;
-end
-
-if (pwrfct > 1)
- outrec = in .* RecursivePower(in,pwrfct-1);
-end
-
-endfunction
+//SCI2C: DEFAULT_PRECISION= FLOAT + +function outrec = RecursivePower(in,pwrfct) + + +if (pwrfct == 0) + outrec = ones(in); +end + +if (pwrfct == 1) + outrec = in; +end + +if (pwrfct > 1) + outrec = in .* RecursivePower(in,pwrfct-1); +end + +endfunction |