diff options
| author | nutricato | 2009-07-07 14:41:59 +0000 |
|---|---|---|
| committer | nutricato | 2009-07-07 14:41:59 +0000 |
| commit | 0b992f0195b8d0abe9f74ac3d9294d1b1c14c44b (patch) | |
| tree | 8987ca0c33af5eabaea9bd5f317413557c617954 /tests/unit_tests | |
| parent | a484e92e9ca595b25036c11d6b259ba98ee1765c (diff) | |
| download | scilab2c-0b992f0195b8d0abe9f74ac3d9294d1b1c14c44b.tar.gz scilab2c-0b992f0195b8d0abe9f74ac3d9294d1b1c14c44b.tar.bz2 scilab2c-0b992f0195b8d0abe9f74ac3d9294d1b1c14c44b.zip | |
Diffstat (limited to 'tests/unit_tests')
6 files changed, 106 insertions, 9 deletions
diff --git a/tests/unit_tests/test003_VerySimple/scilabcode/mainfunction.sci b/tests/unit_tests/test003_VerySimple/scilabcode/mainfunction.sci new file mode 100644 index 00000000..96ae4c13 --- /dev/null +++ b/tests/unit_tests/test003_VerySimple/scilabcode/mainfunction.sci @@ -0,0 +1,9 @@ +function mainfunction()
+
+// ---------------------------------------
+// --- Initialization of the operands. ---
+// ---------------------------------------
+powerfactor = 3;
+disp(powerfactor)
+
+endfunction
diff --git a/tests/unit_tests/test088_SimpleFor/scilabcode/mainfunction.sci b/tests/unit_tests/test088_SimpleFor/scilabcode/mainfunction.sci new file mode 100644 index 00000000..afea60c6 --- /dev/null +++ b/tests/unit_tests/test088_SimpleFor/scilabcode/mainfunction.sci @@ -0,0 +1,16 @@ +function mainfunction()
+
+// ---------------------------------------
+// --- Initialization of the operands. ---
+// ---------------------------------------
+
+v1 = zeros(1,5);
+disp('v1, before initialization.')
+disp(v1)
+for cnt = 1:5
+ v1(cnt) = cnt;
+end
+disp('v1, after initialization.')
+disp(v1)
+
+endfunction
diff --git a/tests/unit_tests/test200_malloc/scilabcode/mainfunction.sci b/tests/unit_tests/test200_malloc/scilabcode/mainfunction.sci new file mode 100644 index 00000000..c56da083 --- /dev/null +++ b/tests/unit_tests/test200_malloc/scilabcode/mainfunction.sci @@ -0,0 +1,17 @@ +//SCI2C: DEFAULT_PRECISION= DOUBLE
+function mainfunction()
+
+N = 2;
+B = myinit(N+4-2,2);
+disp('B')
+disp(B)
+
+N = 4;
+C = myinit(N,3);
+disp('C')
+disp(C)
+
+D=B+2.*C;
+disp('D')
+disp(D)
+endfunction
diff --git a/tests/unit_tests/test200_malloc/scilabcode/myinit.sci b/tests/unit_tests/test200_malloc/scilabcode/myinit.sci new file mode 100644 index 00000000..76cdef88 --- /dev/null +++ b/tests/unit_tests/test200_malloc/scilabcode/myinit.sci @@ -0,0 +1,12 @@ +//SCI2C: NIN= 2 +//SCI2C: NOUT= 1 +//SCI2C: OUT(1).TP= IN(1).TP +//SCI2C: OUT(1).SZ(1)= IN(1).VAL +//SCI2C: OUT(1).SZ(2)= IN(1).VAL +//SCI2C: DEFAULT_PRECISION= DOUBLE
+function out = myinit(n,m)
+
+out1 = m+ones(n,n); +out = out1+2*ones(n,n); + +endfunction
diff --git a/tests/unit_tests/test200_malloc/scilabcode/myzeros.sci b/tests/unit_tests/test200_malloc/scilabcode/myzeros.sci new file mode 100644 index 00000000..916b0b82 --- /dev/null +++ b/tests/unit_tests/test200_malloc/scilabcode/myzeros.sci @@ -0,0 +1,10 @@ +//SCI2C: NIN= 1 +//SCI2C: NOUT= 1 +//SCI2C: OUT(1).TP= IN(1).TP +//SCI2C: OUT(1).SZ(1)= IN(1).SZ(1) +//SCI2C: OUT(1).SZ(2)= IN(1).SZ(2) +//SCI2C: DEFAULT_PRECISION= DOUBLE
+function out = myzeros(in)
+
+out = 3+zeros(in); +endfunction
diff --git a/tests/unit_tests/test9999_WorkingDir/scilabcode/mainfunction.sci b/tests/unit_tests/test9999_WorkingDir/scilabcode/mainfunction.sci index afea60c6..5e2a7728 100644 --- a/tests/unit_tests/test9999_WorkingDir/scilabcode/mainfunction.sci +++ b/tests/unit_tests/test9999_WorkingDir/scilabcode/mainfunction.sci @@ -1,16 +1,49 @@ +//SCI2C: DEFAULT_PRECISION= DOUBLE
function mainfunction()
// ---------------------------------------
-// --- Initialization of the operands. ---
+// --- Initialization of the parameters. ---
// ---------------------------------------
+ + +// ---------------------------------------
+// --- Set number of point for quadrature . +// --- interval for quadrature [a,b]
+// ---------------------------------------
+ + + +Np =10 // number of point for quadrature +a=1 +b=5
+ + +// ---------------------------------------
+// --- Compute Legendre-Gauss-Lobatto nodes, weights +//. ---In standard [-1 1] interval
+// --------------------------------------- + +[x,w]=lglnodes(Np); +disp('x'); +disp(x); +disp('w'); +disp(w); +// ---------------------------------------
+// --- Compute the nodes +//. ---In [a,b] pick a t points in the +// --- desired interval +// ------------------------------------- + +t=((b-a)./2)*x+(b+a)./2; + + + +Iab=((b-a)./2)*mysum(w.*Fint(t),11); + +disp('Number of nodes for quadrature '); +disp(Np) +disp('Integral value in [a b] with Np points');
+disp(Iab)
-v1 = zeros(1,5);
-disp('v1, before initialization.')
-disp(v1)
-for cnt = 1:5
- v1(cnt) = cnt;
-end
-disp('v1, after initialization.')
-disp(v1)
endfunction
|