summaryrefslogtreecommitdiff
path: root/tests/unit_tests/test100_recursivefunctions/scilabcode
diff options
context:
space:
mode:
Diffstat (limited to 'tests/unit_tests/test100_recursivefunctions/scilabcode')
-rw-r--r--tests/unit_tests/test100_recursivefunctions/scilabcode/IterativePower.sci24
-rw-r--r--tests/unit_tests/test100_recursivefunctions/scilabcode/RecursivePower.sci36
-rw-r--r--tests/unit_tests/test100_recursivefunctions/scilabcode/mainfunction.sci114
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
+