diff options
Diffstat (limited to 'tests/unit_tests/test100_recursivefunctions/scilabcode')
3 files changed, 87 insertions, 87 deletions
diff --git a/tests/unit_tests/test100_recursivefunctions/scilabcode/IterativePower.sci b/tests/unit_tests/test100_recursivefunctions/scilabcode/IterativePower.sci index d3ee3469..8d181395 100644 --- a/tests/unit_tests/test100_recursivefunctions/scilabcode/IterativePower.sci +++ b/tests/unit_tests/test100_recursivefunctions/scilabcode/IterativePower.sci @@ -2,16 +2,16 @@ //SCI2C: NOUT= 1 //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
+//SCI2C: OUT(1).SZ(2)= FA_SZ_2(IN(1).SZ) +//SCI2C: DEFAULT_PRECISION= FLOAT -function outiter = IterativePower(in,pwrfct)
-
-outiter = ones(in);
-
-for cnt = 1:pwrfct
- mytmp = outiter .* in;
- outiter = mytmp;
-end
-
-endfunction
+function outiter = IterativePower(in,pwrfct) + +outiter = ones(in); + +for cnt = 1:pwrfct + mytmp = outiter .* in; + outiter = mytmp; +end + +endfunction 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 diff --git a/tests/unit_tests/test100_recursivefunctions/scilabcode/mainfunction.sci b/tests/unit_tests/test100_recursivefunctions/scilabcode/mainfunction.sci index d1dd1dbd..12418bb2 100644 --- a/tests/unit_tests/test100_recursivefunctions/scilabcode/mainfunction.sci +++ b/tests/unit_tests/test100_recursivefunctions/scilabcode/mainfunction.sci @@ -1,57 +1,57 @@ -//SCI2C: DEFAULT_PRECISION= FLOAT
-function mainfunction()
-
-// ---------------------------------------
-// --- Initialization of the operands. ---
-// ---------------------------------------
-powerfactor = 3;
-disp('Power Factor: ');
-disp(powerfactor)
-
-s1 = 2;
-disp('Input Scalar Value');
-disp(s1)
-
-V1 = 1:3;
-V2 = 1:2;
-V1tr = V1';
-
-M1 = V1tr * V2;
-disp('Input Matrix Value');
-disp(M1)
-
-// -----------------------
-// --- Compute powers. ---
-// -----------------------
-// --- Iterative/Scalar. ---
-outs1It = IterativePower(s1,powerfactor);
-disp('Output Scalar Value Iterative');
-disp(outs1It);
-
-// --- Iterative/Matrix. ---
-outM1It = IterativePower(M1,powerfactor);
-disp('Output Matrix Iterative');
-disp(outM1It);
-
-// --- Recursive/Scalar. ---
-outs1Re = RecursivePower(s1,powerfactor);
-disp('Output Scalar Value Recursive');
-disp(outs1Re);
-
-// --- Recursive/Matrix. ---
-outM1Re = RecursivePower(M1,powerfactor);
-disp('Output Matrix Recursive');
-disp(outM1Re);
-
-//~ // --- Solution/Scalar. ---
-//~ outs1So = s1.^powerfactor;
-//~ disp('Output Scalar Value Solution');
-//~ disp(outs1So);
-
-//~ // --- Solution/Matrix. ---
-//~ outM1So = M1.^powerfactor;
-//~ disp('Output Matrix Value Solution');
-//~ disp(outM1So);
-
-endfunction
-
+//SCI2C: DEFAULT_PRECISION= FLOAT +function mainfunction() + +// --------------------------------------- +// --- Initialization of the operands. --- +// --------------------------------------- +powerfactor = 3; +disp('Power Factor: '); +disp(powerfactor) + +s1 = 2; +disp('Input Scalar Value'); +disp(s1) + +V1 = 1:3; +V2 = 1:2; +V1tr = V1'; + +M1 = V1tr * V2; +disp('Input Matrix Value'); +disp(M1) + +// ----------------------- +// --- Compute powers. --- +// ----------------------- +// --- Iterative/Scalar. --- +outs1It = IterativePower(s1,powerfactor); +disp('Output Scalar Value Iterative'); +disp(outs1It); + +// --- Iterative/Matrix. --- +outM1It = IterativePower(M1,powerfactor); +disp('Output Matrix Iterative'); +disp(outM1It); + +// --- Recursive/Scalar. --- +outs1Re = RecursivePower(s1,powerfactor); +disp('Output Scalar Value Recursive'); +disp(outs1Re); + +// --- Recursive/Matrix. --- +outM1Re = RecursivePower(M1,powerfactor); +disp('Output Matrix Recursive'); +disp(outM1Re); + +//~ // --- Solution/Scalar. --- +//~ outs1So = s1.^powerfactor; +//~ disp('Output Scalar Value Solution'); +//~ disp(outs1So); + +//~ // --- Solution/Matrix. --- +//~ outM1So = M1.^powerfactor; +//~ disp('Output Matrix Value Solution'); +//~ disp(outM1So); + +endfunction + |