From 01000e47c249b1d528f53095b9e116d99f1daa18 Mon Sep 17 00:00:00 2001 From: jofret Date: Tue, 22 Jun 2010 15:33:27 +0000 Subject: Move test_double_* -> test_* --- tests/unit_tests/double/test_Convol.sci | 124 +++++++++++++++ tests/unit_tests/double/test_Det.sci | 15 ++ tests/unit_tests/double/test_Disp.sci | 13 ++ tests/unit_tests/double/test_Expm.sci | 9 ++ tests/unit_tests/double/test_FFTShift.sci | 37 +++++ tests/unit_tests/double/test_Fft.sci | 172 +++++++++++++++++++++ tests/unit_tests/double/test_Find.sci | 31 ++++ tests/unit_tests/double/test_IFFT.sci | 89 +++++++++++ tests/unit_tests/double/test_Length.sci | 32 ++++ tests/unit_tests/double/test_Lev.sci | 31 ++++ tests/unit_tests/double/test_Meanf.sci | 48 ++++++ tests/unit_tests/double/test_OpApex.sci | 11 ++ tests/unit_tests/double/test_OpCc.sci | 46 ++++++ tests/unit_tests/double/test_OpColon.sci | 41 +++++ tests/unit_tests/double/test_OpDotApex.sci | 11 ++ tests/unit_tests/double/test_OpDotBackSlash.sci | 30 ++++ tests/unit_tests/double/test_OpDotHat.sci | 29 ++++ tests/unit_tests/double/test_OpDotSlash.sci | 26 ++++ tests/unit_tests/double/test_OpDotStar.sci | 26 ++++ tests/unit_tests/double/test_OpEqual.sci | 24 +++ tests/unit_tests/double/test_OpExt.sci | 25 +++ tests/unit_tests/double/test_OpHat.sci | 29 ++++ tests/unit_tests/double/test_OpIns.sci | 129 ++++++++++++++++ tests/unit_tests/double/test_OpLogAnd.sci | 29 ++++ tests/unit_tests/double/test_OpLogEq.sci | 33 ++++ tests/unit_tests/double/test_OpLogGe.sci | 29 ++++ tests/unit_tests/double/test_OpLogGt.sci | 30 ++++ tests/unit_tests/double/test_OpLogLe.sci | 29 ++++ tests/unit_tests/double/test_OpLogLt.sci | 29 ++++ tests/unit_tests/double/test_OpLogNe.sci | 33 ++++ tests/unit_tests/double/test_OpLogNot.sci | 23 +++ tests/unit_tests/double/test_OpLogOr.sci | 29 ++++ tests/unit_tests/double/test_OpMinus.sci | 45 ++++++ tests/unit_tests/double/test_OpPlus.sci | 32 ++++ tests/unit_tests/double/test_OpRc.sci | 45 ++++++ tests/unit_tests/double/test_OpSlash.sci | 32 ++++ tests/unit_tests/double/test_OpStar.sci | 31 ++++ tests/unit_tests/double/test_Size.sci | 41 +++++ tests/unit_tests/double/test_Spec.sci | 41 +++++ tests/unit_tests/double/test_Stdevf.sci | 45 ++++++ tests/unit_tests/double/test_Trace.sci | 13 ++ tests/unit_tests/double/test_Type.sci | 8 + tests/unit_tests/double/test_abs.sci | 11 ++ tests/unit_tests/double/test_acos.sci | 11 ++ tests/unit_tests/double/test_acosh.sci | 11 ++ tests/unit_tests/double/test_asin.sci | 11 ++ tests/unit_tests/double/test_asinh.sci | 11 ++ tests/unit_tests/double/test_atan.sci | 14 ++ tests/unit_tests/double/test_atanh.sci | 11 ++ tests/unit_tests/double/test_ceil.sci | 11 ++ tests/unit_tests/double/test_chol.sci | 11 ++ tests/unit_tests/double/test_conj.sci | 11 ++ tests/unit_tests/double/test_cos.sci | 11 ++ tests/unit_tests/double/test_cosh.sci | 11 ++ tests/unit_tests/double/test_double_Convol.sci | 124 --------------- tests/unit_tests/double/test_double_Det.sci | 15 -- tests/unit_tests/double/test_double_Disp.sci | 13 -- tests/unit_tests/double/test_double_Expm.sci | 9 -- tests/unit_tests/double/test_double_FFTShift.sci | 37 ----- tests/unit_tests/double/test_double_Fft.sci | 172 --------------------- tests/unit_tests/double/test_double_Find.sci | 31 ---- tests/unit_tests/double/test_double_IFFT.sci | 89 ----------- tests/unit_tests/double/test_double_Length.sci | 32 ---- tests/unit_tests/double/test_double_Lev.sci | 31 ---- tests/unit_tests/double/test_double_Meanf.sci | 48 ------ tests/unit_tests/double/test_double_OpApex.sci | 11 -- tests/unit_tests/double/test_double_OpCc.sci | 46 ------ tests/unit_tests/double/test_double_OpColon.sci | 41 ----- tests/unit_tests/double/test_double_OpDotApex.sci | 11 -- .../double/test_double_OpDotBackSlash.sci | 30 ---- tests/unit_tests/double/test_double_OpDotHat.sci | 29 ---- tests/unit_tests/double/test_double_OpDotSlash.sci | 26 ---- tests/unit_tests/double/test_double_OpDotStar.sci | 26 ---- tests/unit_tests/double/test_double_OpEqual.sci | 24 --- tests/unit_tests/double/test_double_OpExt.sci | 25 --- tests/unit_tests/double/test_double_OpHat.sci | 29 ---- tests/unit_tests/double/test_double_OpIns.sci | 129 ---------------- tests/unit_tests/double/test_double_OpLogAnd.sci | 29 ---- tests/unit_tests/double/test_double_OpLogEq.sci | 33 ---- tests/unit_tests/double/test_double_OpLogGe.sci | 29 ---- tests/unit_tests/double/test_double_OpLogGt.sci | 30 ---- tests/unit_tests/double/test_double_OpLogLe.sci | 29 ---- tests/unit_tests/double/test_double_OpLogLt.sci | 29 ---- tests/unit_tests/double/test_double_OpLogNe.sci | 33 ---- tests/unit_tests/double/test_double_OpLogNot.sci | 23 --- tests/unit_tests/double/test_double_OpLogOr.sci | 29 ---- tests/unit_tests/double/test_double_OpMinus.sci | 45 ------ tests/unit_tests/double/test_double_OpPlus.sci | 32 ---- tests/unit_tests/double/test_double_OpRc.sci | 45 ------ tests/unit_tests/double/test_double_OpSlash.sci | 32 ---- tests/unit_tests/double/test_double_OpStar.sci | 31 ---- tests/unit_tests/double/test_double_Size.sci | 41 ----- tests/unit_tests/double/test_double_Spec.sci | 41 ----- tests/unit_tests/double/test_double_Stdevf.sci | 45 ------ tests/unit_tests/double/test_double_Trace.sci | 13 -- tests/unit_tests/double/test_double_Type.sci | 8 - tests/unit_tests/double/test_double_abs.sci | 11 -- tests/unit_tests/double/test_double_acos.sci | 11 -- tests/unit_tests/double/test_double_acosh.sci | 11 -- tests/unit_tests/double/test_double_asin.sci | 11 -- tests/unit_tests/double/test_double_asinh.sci | 11 -- tests/unit_tests/double/test_double_atan.sci | 14 -- tests/unit_tests/double/test_double_atanh.sci | 11 -- tests/unit_tests/double/test_double_ceil.sci | 11 -- tests/unit_tests/double/test_double_chol.sci | 11 -- tests/unit_tests/double/test_double_conj.sci | 11 -- tests/unit_tests/double/test_double_cos.sci | 11 -- tests/unit_tests/double/test_double_cosh.sci | 11 -- tests/unit_tests/double/test_double_exp.sci | 11 -- tests/unit_tests/double/test_double_eye.sci | 14 -- tests/unit_tests/double/test_double_fix.sci | 11 -- tests/unit_tests/double/test_double_floor.sci | 11 -- tests/unit_tests/double/test_double_imag.sci | 11 -- tests/unit_tests/double/test_double_int.sci | 11 -- tests/unit_tests/double/test_double_inv.sci | 11 -- tests/unit_tests/double/test_double_isnan.sci | 11 -- tests/unit_tests/double/test_double_log.sci | 11 -- tests/unit_tests/double/test_double_log10.sci | 11 -- tests/unit_tests/double/test_double_log1p.sci | 12 -- tests/unit_tests/double/test_double_max.sci | 32 ---- tests/unit_tests/double/test_double_mean.sci | 31 ---- tests/unit_tests/double/test_double_min.sci | 32 ---- tests/unit_tests/double/test_double_ones.sci | 14 -- tests/unit_tests/double/test_double_prod.sci | 31 ---- tests/unit_tests/double/test_double_rand.sci | 14 -- tests/unit_tests/double/test_double_real.sci | 11 -- tests/unit_tests/double/test_double_round.sci | 11 -- tests/unit_tests/double/test_double_sign.sci | 11 -- tests/unit_tests/double/test_double_sin.sci | 11 -- tests/unit_tests/double/test_double_sinh.sci | 11 -- tests/unit_tests/double/test_double_sqrt.sci | 11 -- .../unit_tests/double/test_double_st_deviation.sci | 31 ---- tests/unit_tests/double/test_double_sum.sci | 31 ---- tests/unit_tests/double/test_double_tanh.sci | 11 -- tests/unit_tests/double/test_double_variance.sci | 31 ---- tests/unit_tests/double/test_double_zeros.sci | 14 -- tests/unit_tests/double/test_exp.sci | 11 ++ tests/unit_tests/double/test_eye.sci | 14 ++ tests/unit_tests/double/test_fix.sci | 11 ++ tests/unit_tests/double/test_floor.sci | 11 ++ tests/unit_tests/double/test_imag.sci | 11 ++ tests/unit_tests/double/test_int.sci | 11 ++ tests/unit_tests/double/test_inv.sci | 11 ++ tests/unit_tests/double/test_isnan.sci | 11 ++ tests/unit_tests/double/test_log.sci | 11 ++ tests/unit_tests/double/test_log10.sci | 11 ++ tests/unit_tests/double/test_log1p.sci | 12 ++ tests/unit_tests/double/test_max.sci | 32 ++++ tests/unit_tests/double/test_mean.sci | 31 ++++ tests/unit_tests/double/test_min.sci | 32 ++++ tests/unit_tests/double/test_ones.sci | 14 ++ tests/unit_tests/double/test_prod.sci | 31 ++++ tests/unit_tests/double/test_rand.sci | 14 ++ tests/unit_tests/double/test_real.sci | 11 ++ tests/unit_tests/double/test_round.sci | 11 ++ tests/unit_tests/double/test_sign.sci | 11 ++ tests/unit_tests/double/test_sin.sci | 11 ++ tests/unit_tests/double/test_sinh.sci | 11 ++ tests/unit_tests/double/test_sqrt.sci | 11 ++ tests/unit_tests/double/test_st_deviation.sci | 31 ++++ tests/unit_tests/double/test_sum.sci | 31 ++++ tests/unit_tests/double/test_tanh.sci | 11 ++ tests/unit_tests/double/test_variance.sci | 31 ++++ tests/unit_tests/double/test_zeros.sci | 14 ++ 164 files changed, 2223 insertions(+), 2223 deletions(-) create mode 100644 tests/unit_tests/double/test_Convol.sci create mode 100644 tests/unit_tests/double/test_Det.sci create mode 100644 tests/unit_tests/double/test_Disp.sci create mode 100644 tests/unit_tests/double/test_Expm.sci create mode 100644 tests/unit_tests/double/test_FFTShift.sci create mode 100644 tests/unit_tests/double/test_Fft.sci create mode 100644 tests/unit_tests/double/test_Find.sci create mode 100644 tests/unit_tests/double/test_IFFT.sci create mode 100644 tests/unit_tests/double/test_Length.sci create mode 100644 tests/unit_tests/double/test_Lev.sci create mode 100644 tests/unit_tests/double/test_Meanf.sci create mode 100644 tests/unit_tests/double/test_OpApex.sci create mode 100644 tests/unit_tests/double/test_OpCc.sci create mode 100644 tests/unit_tests/double/test_OpColon.sci create mode 100644 tests/unit_tests/double/test_OpDotApex.sci create mode 100644 tests/unit_tests/double/test_OpDotBackSlash.sci create mode 100644 tests/unit_tests/double/test_OpDotHat.sci create mode 100644 tests/unit_tests/double/test_OpDotSlash.sci create mode 100644 tests/unit_tests/double/test_OpDotStar.sci create mode 100644 tests/unit_tests/double/test_OpEqual.sci create mode 100644 tests/unit_tests/double/test_OpExt.sci create mode 100644 tests/unit_tests/double/test_OpHat.sci create mode 100644 tests/unit_tests/double/test_OpIns.sci create mode 100644 tests/unit_tests/double/test_OpLogAnd.sci create mode 100644 tests/unit_tests/double/test_OpLogEq.sci create mode 100644 tests/unit_tests/double/test_OpLogGe.sci create mode 100644 tests/unit_tests/double/test_OpLogGt.sci create mode 100644 tests/unit_tests/double/test_OpLogLe.sci create mode 100644 tests/unit_tests/double/test_OpLogLt.sci create mode 100644 tests/unit_tests/double/test_OpLogNe.sci create mode 100644 tests/unit_tests/double/test_OpLogNot.sci create mode 100644 tests/unit_tests/double/test_OpLogOr.sci create mode 100644 tests/unit_tests/double/test_OpMinus.sci create mode 100644 tests/unit_tests/double/test_OpPlus.sci create mode 100644 tests/unit_tests/double/test_OpRc.sci create mode 100644 tests/unit_tests/double/test_OpSlash.sci create mode 100644 tests/unit_tests/double/test_OpStar.sci create mode 100644 tests/unit_tests/double/test_Size.sci create mode 100644 tests/unit_tests/double/test_Spec.sci create mode 100644 tests/unit_tests/double/test_Stdevf.sci create mode 100644 tests/unit_tests/double/test_Trace.sci create mode 100644 tests/unit_tests/double/test_Type.sci create mode 100644 tests/unit_tests/double/test_abs.sci create mode 100644 tests/unit_tests/double/test_acos.sci create mode 100644 tests/unit_tests/double/test_acosh.sci create mode 100644 tests/unit_tests/double/test_asin.sci create mode 100644 tests/unit_tests/double/test_asinh.sci create mode 100644 tests/unit_tests/double/test_atan.sci create mode 100644 tests/unit_tests/double/test_atanh.sci create mode 100644 tests/unit_tests/double/test_ceil.sci create mode 100644 tests/unit_tests/double/test_chol.sci create mode 100644 tests/unit_tests/double/test_conj.sci create mode 100644 tests/unit_tests/double/test_cos.sci create mode 100644 tests/unit_tests/double/test_cosh.sci delete mode 100644 tests/unit_tests/double/test_double_Convol.sci delete mode 100644 tests/unit_tests/double/test_double_Det.sci delete mode 100644 tests/unit_tests/double/test_double_Disp.sci delete mode 100644 tests/unit_tests/double/test_double_Expm.sci delete mode 100644 tests/unit_tests/double/test_double_FFTShift.sci delete mode 100644 tests/unit_tests/double/test_double_Fft.sci delete mode 100644 tests/unit_tests/double/test_double_Find.sci delete mode 100644 tests/unit_tests/double/test_double_IFFT.sci delete mode 100644 tests/unit_tests/double/test_double_Length.sci delete mode 100644 tests/unit_tests/double/test_double_Lev.sci delete mode 100644 tests/unit_tests/double/test_double_Meanf.sci delete mode 100644 tests/unit_tests/double/test_double_OpApex.sci delete mode 100644 tests/unit_tests/double/test_double_OpCc.sci delete mode 100644 tests/unit_tests/double/test_double_OpColon.sci delete mode 100644 tests/unit_tests/double/test_double_OpDotApex.sci delete mode 100644 tests/unit_tests/double/test_double_OpDotBackSlash.sci delete mode 100644 tests/unit_tests/double/test_double_OpDotHat.sci delete mode 100644 tests/unit_tests/double/test_double_OpDotSlash.sci delete mode 100644 tests/unit_tests/double/test_double_OpDotStar.sci delete mode 100644 tests/unit_tests/double/test_double_OpEqual.sci delete mode 100644 tests/unit_tests/double/test_double_OpExt.sci delete mode 100644 tests/unit_tests/double/test_double_OpHat.sci delete mode 100644 tests/unit_tests/double/test_double_OpIns.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogAnd.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogEq.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogGe.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogGt.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogLe.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogLt.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogNe.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogNot.sci delete mode 100644 tests/unit_tests/double/test_double_OpLogOr.sci delete mode 100644 tests/unit_tests/double/test_double_OpMinus.sci delete mode 100644 tests/unit_tests/double/test_double_OpPlus.sci delete mode 100644 tests/unit_tests/double/test_double_OpRc.sci delete mode 100644 tests/unit_tests/double/test_double_OpSlash.sci delete mode 100644 tests/unit_tests/double/test_double_OpStar.sci delete mode 100644 tests/unit_tests/double/test_double_Size.sci delete mode 100644 tests/unit_tests/double/test_double_Spec.sci delete mode 100644 tests/unit_tests/double/test_double_Stdevf.sci delete mode 100644 tests/unit_tests/double/test_double_Trace.sci delete mode 100644 tests/unit_tests/double/test_double_Type.sci delete mode 100644 tests/unit_tests/double/test_double_abs.sci delete mode 100644 tests/unit_tests/double/test_double_acos.sci delete mode 100644 tests/unit_tests/double/test_double_acosh.sci delete mode 100644 tests/unit_tests/double/test_double_asin.sci delete mode 100644 tests/unit_tests/double/test_double_asinh.sci delete mode 100644 tests/unit_tests/double/test_double_atan.sci delete mode 100644 tests/unit_tests/double/test_double_atanh.sci delete mode 100644 tests/unit_tests/double/test_double_ceil.sci delete mode 100644 tests/unit_tests/double/test_double_chol.sci delete mode 100644 tests/unit_tests/double/test_double_conj.sci delete mode 100644 tests/unit_tests/double/test_double_cos.sci delete mode 100644 tests/unit_tests/double/test_double_cosh.sci delete mode 100644 tests/unit_tests/double/test_double_exp.sci delete mode 100644 tests/unit_tests/double/test_double_eye.sci delete mode 100644 tests/unit_tests/double/test_double_fix.sci delete mode 100644 tests/unit_tests/double/test_double_floor.sci delete mode 100644 tests/unit_tests/double/test_double_imag.sci delete mode 100644 tests/unit_tests/double/test_double_int.sci delete mode 100644 tests/unit_tests/double/test_double_inv.sci delete mode 100644 tests/unit_tests/double/test_double_isnan.sci delete mode 100644 tests/unit_tests/double/test_double_log.sci delete mode 100644 tests/unit_tests/double/test_double_log10.sci delete mode 100644 tests/unit_tests/double/test_double_log1p.sci delete mode 100644 tests/unit_tests/double/test_double_max.sci delete mode 100644 tests/unit_tests/double/test_double_mean.sci delete mode 100644 tests/unit_tests/double/test_double_min.sci delete mode 100644 tests/unit_tests/double/test_double_ones.sci delete mode 100644 tests/unit_tests/double/test_double_prod.sci delete mode 100644 tests/unit_tests/double/test_double_rand.sci delete mode 100644 tests/unit_tests/double/test_double_real.sci delete mode 100644 tests/unit_tests/double/test_double_round.sci delete mode 100644 tests/unit_tests/double/test_double_sign.sci delete mode 100644 tests/unit_tests/double/test_double_sin.sci delete mode 100644 tests/unit_tests/double/test_double_sinh.sci delete mode 100644 tests/unit_tests/double/test_double_sqrt.sci delete mode 100644 tests/unit_tests/double/test_double_st_deviation.sci delete mode 100644 tests/unit_tests/double/test_double_sum.sci delete mode 100644 tests/unit_tests/double/test_double_tanh.sci delete mode 100644 tests/unit_tests/double/test_double_variance.sci delete mode 100644 tests/unit_tests/double/test_double_zeros.sci create mode 100644 tests/unit_tests/double/test_exp.sci create mode 100644 tests/unit_tests/double/test_eye.sci create mode 100644 tests/unit_tests/double/test_fix.sci create mode 100644 tests/unit_tests/double/test_floor.sci create mode 100644 tests/unit_tests/double/test_imag.sci create mode 100644 tests/unit_tests/double/test_int.sci create mode 100644 tests/unit_tests/double/test_inv.sci create mode 100644 tests/unit_tests/double/test_isnan.sci create mode 100644 tests/unit_tests/double/test_log.sci create mode 100644 tests/unit_tests/double/test_log10.sci create mode 100644 tests/unit_tests/double/test_log1p.sci create mode 100644 tests/unit_tests/double/test_max.sci create mode 100644 tests/unit_tests/double/test_mean.sci create mode 100644 tests/unit_tests/double/test_min.sci create mode 100644 tests/unit_tests/double/test_ones.sci create mode 100644 tests/unit_tests/double/test_prod.sci create mode 100644 tests/unit_tests/double/test_rand.sci create mode 100644 tests/unit_tests/double/test_real.sci create mode 100644 tests/unit_tests/double/test_round.sci create mode 100644 tests/unit_tests/double/test_sign.sci create mode 100644 tests/unit_tests/double/test_sin.sci create mode 100644 tests/unit_tests/double/test_sinh.sci create mode 100644 tests/unit_tests/double/test_sqrt.sci create mode 100644 tests/unit_tests/double/test_st_deviation.sci create mode 100644 tests/unit_tests/double/test_sum.sci create mode 100644 tests/unit_tests/double/test_tanh.sci create mode 100644 tests/unit_tests/double/test_variance.sci create mode 100644 tests/unit_tests/double/test_zeros.sci (limited to 'tests') diff --git a/tests/unit_tests/double/test_Convol.sci b/tests/unit_tests/double/test_Convol.sci new file mode 100644 index 00000000..a7b1cc07 --- /dev/null +++ b/tests/unit_tests/double/test_Convol.sci @@ -0,0 +1,124 @@ +function test_Convol() + + + disp(convol(4,4.5)); //d0d0Convold0 + disp(convol(%i + 3 ,2*%i + 4)); // z0z0Convolz0 + + + a = [1 2 3 4 5 %e %pi]; + b = [1 7 8 5 1 6 ]; + + disp(convol(a,b)); + disp(convol(b,b)); // d2d2Convold2 + + + disp(convol(4,a)); //d0d2Convold2 + disp(convol(a,4)); // d2d0Convold2 + + + c = [1 2 3 4 5 %e %pi] * %i; + d = [1 7 8 5 1 6 ] * %i; + + disp(convol(c,d)); + disp(convol(d,d)); // z2z2Convolz2 + + + disp(convol(%i + 3 ,c)); // z0z2Convolz2 + disp(convol(d ,2*%i + 4)); // z2z0Convolz2 + +// with 2 outputs + + +// [zz yy] = convol(4,4.5); //d0d0Convold0d0 +// disp( zz ); + //disp( yy ); + +// [xx ww ] = convol(%i + 3 ,2*%i + 4); // z0z0Convolz0z0 +// disp( xx); +// disp( ww ); + +// [vv uu] =convol(a,b); +// disp( vv); // d2d2Convold2d2 +// disp( uu ); + + +// [tt ss] = convol(4,a); //d0d2Convold2d2 +// disp( tt); +// disp( ss ); + + + +// [rr qq] = convol(a,4); // d2d0Convold2d2 +// disp( rr ); +// disp( qq ); + + + +// with 2 outputs + +// [pp oo] =convol(c,d); +// disp( pp); // z2z2Convolz2z2 +// disp( oo ); + + +// [mm nn] = convol(4,c); //z0z2Convolz2z2 +// disp( mm); +// disp( nn ); + + + +// [ll kk] = convol(c,4); // z2z0Convolz2z2 +// disp( ll ); + //disp( kk); + + +// three input i + +// with 2 outputs + + + //[zzz yyy] = convol(4,4.5,18); //d0d0d0Convold0d0 + //disp( zzz ); + //disp( yyy ); + + //[xxx www ] = convol(%i + 3 ,2*%i + 4,%i); // z0z0z0Convolz0z0 + //disp( xxx); + //disp( www ); + +// bbis = [4 7 9 10]; + + //[vvv uuu] =convol(a,b,bbis); +// disp( vvv); // d2d2d2Convold2d2 +// disp( uuu ); +// + + //[ttt sss] = convol(4,a, 8); //d0d2d0Convold2d0 + //disp( ttt); + //disp( sss ); + +// with 2 outputs +//dbis = [10 13 14] *%i; +// [ppp ooo] =convol(c,d, dbis); +// disp( ppp); // z2z2z2Convolz2z2 +// disp( ooo ); + + +// [mmm nnn] = convol(4 * %i ,c , %i); //z0z2z0Convolz2z0 +// disp( mmm); +// disp( nnn); + +//mixed up + +// disp(convol(a,c)); //d2z2Convolz2 +// disp(convol(c,a)); // z2d2Convolz2 +// disp(convol(4,c)); //d0z2Convolz2 +// disp(convol(%i + 3 ,a)); // z0d2Convolz2 + +// disp(convol(a, %i)); //d2z0Convolz2 +// disp(convol(c , 4)); // z2d0Convolz2 + + + + + +endfunction diff --git a/tests/unit_tests/double/test_Det.sci b/tests/unit_tests/double/test_Det.sci new file mode 100644 index 00000000..cf923152 --- /dev/null +++ b/tests/unit_tests/double/test_Det.sci @@ -0,0 +1,15 @@ +function test_Det() + + a = [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(det(a)); + + b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(det(b)); + + + disp(det(5)); + + disp(det(%i)); +endfunction + + diff --git a/tests/unit_tests/double/test_Disp.sci b/tests/unit_tests/double/test_Disp.sci new file mode 100644 index 00000000..fd50ed3b --- /dev/null +++ b/tests/unit_tests/double/test_Disp.sci @@ -0,0 +1,13 @@ +function test_Disp () + + disp(4.5); + disp(4+3*%i); + disp("a"); + + disp([1 2 3 4 5 ; 6 7 8 9 10]); + disp(%i*[1 2 3 4 5 ; 6 7 8 9 10]); + disp("plop"); + + +endfunction + diff --git a/tests/unit_tests/double/test_Expm.sci b/tests/unit_tests/double/test_Expm.sci new file mode 100644 index 00000000..a0a1b137 --- /dev/null +++ b/tests/unit_tests/double/test_Expm.sci @@ -0,0 +1,9 @@ +function test_Expm() + b = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]; + c = b*%i ; + + disp(expm(b)); + disp(expm(c)); + + +endfunction diff --git a/tests/unit_tests/double/test_FFTShift.sci b/tests/unit_tests/double/test_FFTShift.sci new file mode 100644 index 00000000..bc325ac6 --- /dev/null +++ b/tests/unit_tests/double/test_FFTShift.sci @@ -0,0 +1,37 @@ +function test_FFTShift() + + disp(fftshift(5.3));// d0*d0 + disp(fftshift(5.3*%i));// z0*z0 + disp(fftshift(5.3 + 5.6*%i ));// z0*z0 + + + a = fft ([10 1 15 3.5 ]); + disp(fftshift(a)); + + b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]; + disp(fftshift(b)); + disp(fftshift(b , 1)); + disp(fftshift(b , 2)); + //disp(fftshift(b , "all")); + + + c = [10 1 15 3.5 ]*%i; + disp(fftshift(c)); + + d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; + disp(fftshift(b)); + disp(fftshift(b , 1)); + disp(fftshift(b , 2)); + //disp(fftshift(b , "all")); + + + e = c + [10 1 15 3.5 ]*%i; + disp(fftshift(e)); + + f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; + disp(fftshift(f)); + disp(fftshift(f , 1)); + disp(fftshift(f , 2)); + //disp(fftshift(f , "all")); + +endfunction diff --git a/tests/unit_tests/double/test_Fft.sci b/tests/unit_tests/double/test_Fft.sci new file mode 100644 index 00000000..e44183af --- /dev/null +++ b/tests/unit_tests/double/test_Fft.sci @@ -0,0 +1,172 @@ +function test_Fft() + +disp(fft(4.4)) +disp(fft(%i + 3.4)) + + +// one input + a = [10 1 15 3.5 ]; //d2Fftz2 + disp(fft(a)); + disp(""); + b = [25 3.6]; // d2Fftd2 + disp(fft(b)); + disp(""); + c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(fft(c)); + disp(""); + // pure imaginary + d = [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(fft(d)); + disp(""); + e = [25 3.6]*%i; // z2Fftd2 + disp(fft(e)); + disp(""); + f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(fft(f)); + disp(""); + // full complex + + g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(fft(g)); + disp(""); + h = b + [25 3.6]*%i; // z2Fftd2 + disp(fft(h)); + disp(""); + j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(fft(j)); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// two output +// call ifft + disp(fft(a,1)); + disp(""); + disp(fft(b,1)); + disp(""); + disp(fft(c,1)); + disp(""); + disp(fft(d,1)); + disp(""); + disp(fft(e,1)); + disp(""); + disp(fft(f,1)); + disp(""); + // full complex + disp(fft(g,1)); + disp(""); + disp(fft(h,1)); + disp(""); + disp(fft(j,1)); + disp(""); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// + disp(fft(a,-1)); + disp(""); + disp(fft(b,-1)); + disp(""); + disp(fft(c,-1)); + disp(""); + disp(fft(d,-1)); + disp(""); + disp(fft(e,-1)); + disp(""); + disp(fft(f,-1)); + disp(""); + // full complex + disp(fft(g,-1)); + disp(""); + disp(fft(h,-1)); + disp(""); + disp(fft(j,-1)); + disp(""); + + +// ******************** +// MATRIX +// ******************** +// one input + aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + disp(fft(aa)); + disp(""); + bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + disp(fft(bb)); + disp(""); + cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + disp(fft(cc)); + disp(""); + // pure imaginary + dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + disp(fft(dd)); + disp(""); + ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + disp(fft(ee)); + disp(""); + ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + + disp(fft(ff)); + disp(""); + // full complex + + gg = aa + dd; //z2Fftz2 + disp(fft(gg)); + disp(""); + hh = bb + ee; // z2Fftd2 + disp(fft(hh)); + disp(""); + jj= cc + ff + disp(fft(jj)); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// two output +// call ifft + disp(fft(aa,1)); + disp(""); + disp(fft(bb,1)); + disp(""); + disp(fft(cc,1)); + disp(""); + disp(fft(dd,1)); + disp(""); + disp(fft(ee,1)); + disp(""); + disp(fft(ff,1)); + disp(""); + // full complex + disp(fft(gg,1)); + disp(""); + disp(fft(hh,1)); + disp(""); + disp(fft(jj,1)); + disp(""); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// + disp(fft(aa,-1)); + disp(""); + disp(fft(bb,-1)); + disp(""); + disp(fft(cc,-1)); + disp(""); + disp(fft(dd,-1)); + disp(""); + disp(fft(ee,-1)); + disp(""); + disp(fft(ff,-1)); + disp(""); + // full complex + disp(fft(gg,-1)); + disp(""); + disp(fft(hh,-1)); + disp(""); + disp(fft(jj,-1)); + disp(""); + +endfunction diff --git a/tests/unit_tests/double/test_Find.sci b/tests/unit_tests/double/test_Find.sci new file mode 100644 index 00000000..0f5681f8 --- /dev/null +++ b/tests/unit_tests/double/test_Find.sci @@ -0,0 +1,31 @@ +function test_Find () + + disp (find( 1 == 3 )); // d0Findd0 + + a = [1 2 3; 4 5 6]; + b = [1 8 3; 9 5 6]; + disp (find( a == b )); // d2Findd2 + + [ z , j ] = find (1 == 3); // d0Findd0d0 + [ k , l ] = find (a == b); // d2Findd2d2 + + disp(z); + disp(j); + disp(k); + disp(l); + + disp ( find( 1 == 3 , 2 )); // d0d0Findd0 + + c = [1 2 3; 4 5 6]; + d = [1 8 3; 9 5 6]; + disp (find( c == d , 2 )); // d2d0Findd2 + + [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 + [ q , s ] = find (c == d , 2); // d2d0Findd2d2 + + disp(o); + disp(p); + disp(q); + disp(s); + +endfunction diff --git a/tests/unit_tests/double/test_IFFT.sci b/tests/unit_tests/double/test_IFFT.sci new file mode 100644 index 00000000..b49cf726 --- /dev/null +++ b/tests/unit_tests/double/test_IFFT.sci @@ -0,0 +1,89 @@ +function test_IFFT() + + +disp(ifft(2)); // d0IFFTd0 +disp(ifft(%i + 4)) // z0IFFTz0 + +disp(ifft([1 2])); // d2IFFTd2 +disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 +disp(ifft([1 2]*%i)); // z2IFFTz2 + +disp(ifft(4.4)) +disp(ifft(%i + 3.4)) + + +// one input + a = [10 1 15 3.5 ]; //d2Fftz2 + Abis = a + zeros(a)*%i ; + disp(ifft(Abis)); + disp("********1*******"); + b = [25 3.6]; // d2Fftd2 + disp(ifft(b)); + disp("********2*******"); + c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + cbis = c + zeros(c)*%i ; + disp(ifft(cbis)); + disp("********3*********"); + // pure imaginary + d = [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(ifft(d)); + disp("********4*********"); + e = [25 3.6]*%i; // z2Fftd2 + disp(ifft(e)); + disp("********5***********"); + f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(ifft(f)); + disp("********6***********"); + // full complex + + g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(ifft(g)); + disp("********7***********"); + h = b + [25 3.6]*%i; // z2Fftd2 + disp(ifft(h)); + disp("********8***********"); + j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(ifft(j)); + disp("********************"); + disp("*******************"); + disp("*******************"); + disp("********************"); + + +// ******************** +// MATRIX +// ******************** +// one input + aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + disp(ifft(aa)); + disp("********9***********"); + bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + disp(ifft(bb)); + disp("********10**********"); + cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + disp(ifft(cc)); + disp("********11**********"); + // pure imaginary + dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + disp(ifft(dd)); + disp("********12**********"); + ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + disp(ifft(ee)); + disp("********13**********"); + ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + + disp(ifft(ff)); + disp("********14**********"); + // full complex + + gg = aa + dd; //z2Fftz2 + disp(ifft(gg)); + disp("********15**********"); + hh = bb + ee; // z2Fftd2 + disp(ifft(hh)); + disp("********16**********"); + jj= cc + ff + disp(ifft(jj)); + + +endfunction diff --git a/tests/unit_tests/double/test_Length.sci b/tests/unit_tests/double/test_Length.sci new file mode 100644 index 00000000..75ecf26c --- /dev/null +++ b/tests/unit_tests/double/test_Length.sci @@ -0,0 +1,32 @@ +function test_Length() + disp(length(4)); + disp(length(2+3*%i)); + disp(length([1 2 3 ; 4 5 6])); + disp(length([1 2 3 ; 4 5 6]*%i)); + e = %pi ; + disp(length(e)); // d0Lengthd0 + + f = e * %i; + disp(length(f));// z0Lengthd0 + + a = [1 2 3 ; 4 5 6]; + disp(length(a));// d2Lengthd0 + + b = [1 2 3 ; 4 5 6] * %i; + disp(length(b));// z2Lengthd0 + + + g = "pouet" ; + h = "a" ; + + disp(length(g)); // g0Lengthd0 + disp(length(h)); // g2Lengthd0 + + disp(length("pouet")); + disp(length("a")); + + + + + +endfunction diff --git a/tests/unit_tests/double/test_Lev.sci b/tests/unit_tests/double/test_Lev.sci new file mode 100644 index 00000000..d3d01936 --- /dev/null +++ b/tests/unit_tests/double/test_Lev.sci @@ -0,0 +1,31 @@ +function test_Lev() + + a = [1 2 3 4 5 6 7 8 9 10] ; + + disp(lev(a)) ; + + [aa aaa] = lev(a); + disp(aa); + disp(aaa) + + [a1 aa1 aaa1] = lev (a); + disp(a1); + disp(aa1); + disp(aaa1); + +// complex + b =%i * [1 2 3 4 5 6 7 8 9 10] ; + + disp(lev(b)) ; + + [bb bbb] = lev(b); + disp(bb); + disp(bbb) + + [b1 bb1 bbb1] = lev (b); + disp(b1); + disp(bb1); + disp(bbb1); + + +endfunction diff --git a/tests/unit_tests/double/test_Meanf.sci b/tests/unit_tests/double/test_Meanf.sci new file mode 100644 index 00000000..139432ce --- /dev/null +++ b/tests/unit_tests/double/test_Meanf.sci @@ -0,0 +1,48 @@ + +function test_Meanf() + + disp (meanf (4 , 5 )) ; + disp ("*******1*******"); + disp (meanf ([4 5 6], [1 2 3])); + disp ("*******2*******"); + disp (meanf (4 , 5*%i )) ; + disp ("*******3*******"); + disp (meanf ([4 5 6], [1 2 3]*%i)); + disp ("*******4*******"); + + + + disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + disp ("*******5*******"); + disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); +// complex + disp ("*******6*******"); + disp (meanf (4 +4*%i , 5 )) ; + disp ("*******7*******"); + disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); + disp ("*******8*******"); + disp (meanf (4 +4*%i , 5*%i )) ; + disp ("*******9*******"); + disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + disp ("******10*******"); + + + disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + disp ("******11*******"); + disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + disp ("******12*******"); + disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; 4 5 6]*%i,1)); + disp ("******13*******"); + disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + disp ("******14*******"); + + disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + disp ("******15*******"); + disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + disp ("******16*******"); +// + + +// + +endfunction diff --git a/tests/unit_tests/double/test_OpApex.sci b/tests/unit_tests/double/test_OpApex.sci new file mode 100644 index 00000000..40c00da8 --- /dev/null +++ b/tests/unit_tests/double/test_OpApex.sci @@ -0,0 +1,11 @@ +function test_OpApex() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0') + disp(d2') + disp(z0') + disp(z2') +endfunction diff --git a/tests/unit_tests/double/test_OpCc.sci b/tests/unit_tests/double/test_OpCc.sci new file mode 100644 index 00000000..929c9c0a --- /dev/null +++ b/tests/unit_tests/double/test_OpCc.sci @@ -0,0 +1,46 @@ + + +function test_OpCc() + + a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 + b = [7 ; a];// d0d2OpCcs2 + c = [a ; 7];// d2d0OpCcs2 + d = [a ; b];// d2d2OpCcs2 + disp(a); + disp(b); + disp(c); + disp(d); + + e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 + f = [7 ; e];// z0z2OpCcz2 + g = [e ; 7];// z2z0OpCcz2 + h = [e ; f];// z2z2OpCcz2 + + disp(e); + disp(f); + disp(g); + disp(h); + + + i = [%i ; 4.5]; // z0d0OpCcz2 + j = [4.5 ; %i ]; // d0z0OpCcz2 + k = [4.5 ; i ]; // d0z2OpCcz2 + l = [i ; 4.5]; // z2d0OpCcz2 + + disp(i); + disp(j); + disp(k); + disp(l); + + m = [1 ; 4.5]; + n = [%i ; m ]; // z0d2OpCcz2 + o = [m ; %i ]; // d0z2OpCcz2 + p = [m ; n ]; // d2z2OpCcz2 + q = [n ; m ]; // z2d2OpCcz2 + + disp(n); + disp(o); + disp(p); + disp(q); + +endfunction diff --git a/tests/unit_tests/double/test_OpColon.sci b/tests/unit_tests/double/test_OpColon.sci new file mode 100644 index 00000000..f3e03b4e --- /dev/null +++ b/tests/unit_tests/double/test_OpColon.sci @@ -0,0 +1,41 @@ +function test_OpColon() + + +// A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; +// B = A * %i ; +d = %i ; +a = %pi ; +b = %e ; +c = [7 8 5 ]; +disp(zeros ( a , %e )); + +disp(zeros ( %pi , %e)); +disp(zeros(c)); +disp(zeros ([4 5 6 ; 4 5 6]) ); + + disp(0:1:3); + disp(1:1); + disp(4+53*%i:0); +// + + disp(2:5); + disp(4+3*%i:8+%i); +// + + disp(1:5:1); + disp(%i:%i+1:2); +// + + disp(2:7:5); + disp(4+3*%i:4:8+%i); +//a =4 + 53 *%i : 0 ; +endfunction +//OUT(1).SZ(2)= FA_INT( +// FA_ADD( +// FA_DIV( +// FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REAL(IN(1).VAL, IN(3).TP)) +// ,FA_REAL(IN(2).VAL,IN(2).TP) +// ) +// ,''1'' +// ) +// ) diff --git a/tests/unit_tests/double/test_OpDotApex.sci b/tests/unit_tests/double/test_OpDotApex.sci new file mode 100644 index 00000000..88974899 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotApex.sci @@ -0,0 +1,11 @@ +function test_OpDotApex() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.') + disp(d2.') + disp(z0.') + disp(z2.') +endfunction diff --git a/tests/unit_tests/double/test_OpDotBackSlash.sci b/tests/unit_tests/double/test_OpDotBackSlash.sci new file mode 100644 index 00000000..a994a614 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotBackSlash.sci @@ -0,0 +1,30 @@ +function test_OpDotBackSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.\d0) + disp(z0.\z0) + disp(d2.\d0) + disp(z2.\z0) + + disp(d0.\d2) + disp(z0.\z2) + + disp(d2.\d2) + disp(z2.\z2) + + disp(d2.\z0) + disp(z2.\d0) + + disp(d0.\z2) + disp(z0.\d2) + + disp(d0.\z0) + disp(z0.\d0) + + disp(d2.\z2) + disp(z2.\d2) + +endfunction diff --git a/tests/unit_tests/double/test_OpDotHat.sci b/tests/unit_tests/double/test_OpDotHat.sci new file mode 100644 index 00000000..0a8af079 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotHat.sci @@ -0,0 +1,29 @@ +function test_OpDotHat() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.^d0) + disp(z0.^z0) + disp(d2.^d0) + disp(z2.^z0) + + disp(d0.^d2) + disp(z0.^z2) + + disp(d2.^d2) + disp(z2.^z2) + + disp(d2.^z0) + disp(z2.^d0) + + disp(d0.^z2) + disp(z0.^d2) + + disp(d0.^z0) + disp(z0.^d0) + + disp(d2.^z2) + disp(z2.^d2) +endfunction diff --git a/tests/unit_tests/double/test_OpDotSlash.sci b/tests/unit_tests/double/test_OpDotSlash.sci new file mode 100644 index 00000000..eef4806d --- /dev/null +++ b/tests/unit_tests/double/test_OpDotSlash.sci @@ -0,0 +1,26 @@ +function test_OpDotSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0./d0) + disp(d0./z0) + disp(d0./d2) + disp(d0./z2) + + disp(d2./d0) + disp(d2./z0) + disp(d2./d2) + disp(d2./z2) + + disp(z0./d0) + disp(z0./z0) + disp(z0./d2) + disp(z0./z2) + + disp(z2./d0) + disp(z2./z0) + disp(z2./d2) + disp(z2./z2) +endfunction diff --git a/tests/unit_tests/double/test_OpDotStar.sci b/tests/unit_tests/double/test_OpDotStar.sci new file mode 100644 index 00000000..3e17f509 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotStar.sci @@ -0,0 +1,26 @@ +function test_OpDotStar() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.*d0) + disp(d0.*z0) + disp(d0.*d2) + disp(d0.*z2) + + disp(d2.*d0) + disp(d2.*z0) + disp(d2.*d2) + disp(d2.*z2) + + disp(z0.*d0) + disp(z0.*z0) + disp(z0.*d2) + disp(z0.*z2) + + disp(z2.*d0) + disp(z2.*z0) + disp(z2.*d2) + disp(z2.*z2) +endfunction diff --git a/tests/unit_tests/double/test_OpEqual.sci b/tests/unit_tests/double/test_OpEqual.sci new file mode 100644 index 00000000..25adb3ec --- /dev/null +++ b/tests/unit_tests/double/test_OpEqual.sci @@ -0,0 +1,24 @@ +function test_OpEqual() + + a = %pi; + disp(a); + + + b = %pi + %i; + disp(b); + + + c = "a"; + disp(c); + + + d =[ %pi 4 5]; + disp(d); + + e = [7 8 9]*%i; + disp(e); + + f = "plopilou" ; + disp(f); + +endfunction diff --git a/tests/unit_tests/double/test_OpExt.sci b/tests/unit_tests/double/test_OpExt.sci new file mode 100644 index 00000000..f49be76d --- /dev/null +++ b/tests/unit_tests/double/test_OpExt.sci @@ -0,0 +1,25 @@ +function test_OpExt () + + a = [1 2 3 ; 4 5 6]; + + + disp(a(2)); + disp(a([3 5])); + disp(a(2,3)); + disp(a(2,[2 3])); + disp(a ([1 2],1)); + disp(a ([1 2],[2 3])); + + + b = [1 2 3 ; 4 5 6] * %i; + + + disp(b(2)); + disp(b([3 5])); + disp(b(2,3)); + disp(b(2,[2 3])); + disp(b ([1 2],1)); + disp(b ([1 2],[2 3])); + + +endfunction diff --git a/tests/unit_tests/double/test_OpHat.sci b/tests/unit_tests/double/test_OpHat.sci new file mode 100644 index 00000000..0f029ab8 --- /dev/null +++ b/tests/unit_tests/double/test_OpHat.sci @@ -0,0 +1,29 @@ +function test_OpHat() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0^d0) + disp(z0^z0) + disp(d2^d0) + disp(z2^z0) + + disp(d0^d2) + disp(z0^z2) + + //disp(d2^d2) // ! Not implemented in Scilab ! + //disp(z2^z2) // ! Not implemented in Scilab ! + + disp(d2^z0) + disp(z2^d0) + + disp(d0^z2) + disp(z0^d2) + + disp(d0^z0) + disp(z0^d0) + + //disp(d2^z2) // ! Not implemented in Scilab ! + //disp(z2^d2) // ! Not implemented in Scilab ! +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_OpIns.sci b/tests/unit_tests/double/test_OpIns.sci new file mode 100644 index 00000000..bb7691a2 --- /dev/null +++ b/tests/unit_tests/double/test_OpIns.sci @@ -0,0 +1,129 @@ +function test_OpIns() + //reals +a=[1 2 3; 4 5 6] + +a(3)=-2 +disp(a); + +a(3)=-4+%i +disp(a); + +a(1,3)=-12; +disp(a); + +a(1,3)=-5+%i; +disp(a); + +a([1,2],1)=-12; +disp(a); + +a([1,2],1)=-5+%i; +disp(a); + +a(2,[2,3])=-12; +disp(a); + +a(2,[2,3])=-5+%i; +disp(a); + +a([1 2],[1,2,3])=4; +disp(a); + +a([1 2],[1,2,3])=3+%i; +disp(a); + +a([1,3])=7; +disp(a); + +a([1,3])=2+%i; +disp(a); + +a([1,3])=[1,0]; +disp(a); + +a([1,3])=[3-%i,1+%i]; +disp(a); + +a(2,[1,3])=[-2,-7]; +disp(a); + +a(2,[1,3])=[-4+%i,-5+%i]; +disp(a); + +a([1,2],3)=[-9;-1]; +disp(a); + +a([1,2],3)=[-4+%i;-5+%i]; +disp(a); + +a([1,2],[2,3])=[-31 -45;-29 -51]; +disp(a); + +a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; +disp(a); + + +//complexes + +b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] + +b(3)=-2 +disp(b); + +b(3)=-4+%i +disp(b); + +b(1,3)=-12; +disp(b); + +b(1,3)=-5+%i; +disp(b); + +b([1,2],1)=-12; +disp(b); + +b([1,2],1)=-5+%i; +disp(b); + +b(2,[2,3])=-12; +disp(b); + +b(2,[2,3])=-5+%i; +disp(b); + +b([1 2],[1,2,3])=4; +disp(b); + +b([1 2],[1,2,3])=3+%i; +disp(b); + +b([1,3])=7; +disp(b); + +b([1,3])=2+%i; +disp(b); + +b([1,3])=[1,0]; +disp(b); + +b([1,3])=[3-%i,1+%i]; +disp(b); + +b(2,[1,3])=[-2,-7]; +disp(b); + +b(2,[1,3])=[-4+%i,-5+%i]; +disp(b); + +b([1,2],3)=[-9;-1]; +disp(b); + +b([1,2],3)=[-4+%i;-5+%i]; +disp(b); + +b([1,2],[2,3])=[-31 -45;-29 -51]; +disp(b); + +b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; +disp(b); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogAnd.sci b/tests/unit_tests/double/test_OpLogAnd.sci new file mode 100644 index 00000000..e7648c67 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogAnd.sci @@ -0,0 +1,29 @@ +function test_OpLogAnd() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0&d0) + disp(z0&z0) + disp(d2&d0) + disp(z2&z0) + + disp(d0&d2) + disp(z0&z2) + + disp(d2&d2) + disp(z2&z2) + + disp(d2&z0) + disp(z2&d0) + + disp(d0&z2) + disp(z0&d2) + + disp(d0&z0) + disp(z0&d0) + + disp(d2&z2) + disp(z2&d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogEq.sci b/tests/unit_tests/double/test_OpLogEq.sci new file mode 100644 index 00000000..f42ecbe3 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogEq.sci @@ -0,0 +1,33 @@ +function test_OpLogEq() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + g0 = 'A' + g2 = "foo" + + //disp(g0==g0) // ! Unable to manage this case ! + + disp(d0==d0) + disp(z0==z0) + disp(d2==d0) + disp(z2==z0) + + disp(d0==d2) + disp(z0==z2) + + disp(d2==d2) + disp(z2==z2) + + disp(d2==z0) + disp(z2==d0) + + disp(d0==z2) + disp(z0==d2) + + disp(d0==z0) + disp(z0==d0) + + disp(d2==z2) + disp(z2==d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogGe.sci b/tests/unit_tests/double/test_OpLogGe.sci new file mode 100644 index 00000000..01c9b781 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGe.sci @@ -0,0 +1,29 @@ +function test_OpLogGe() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0>=d0) + //disp(z0>=z0) + disp(d2>=d0) + //disp(z2>=z0) + + disp(d0>=d2) + //disp(z0>=z2) + + disp(d2>=d2) + //disp(z2>=z2) + + //disp(d2>=z0) + //disp(z2>=d0) + + //disp(d0>=z2) + //disp(z0>=d2) + + //disp(d0>=z0) + //disp(z0>=d0) + + //disp(d2>=z2) + //disp(z2>=d2) + endfunction diff --git a/tests/unit_tests/double/test_OpLogGt.sci b/tests/unit_tests/double/test_OpLogGt.sci new file mode 100644 index 00000000..168f090b --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGt.sci @@ -0,0 +1,30 @@ +function test_OpLogGt() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0>d0) + //disp(z0>z0) + disp(d2>d0) + //disp(z2>z0) + + disp(d0>d2) + //disp(z0>z2) + + disp(d2>d2) + //disp(z2>z2) + + //disp(d2>z0) + //disp(z2>d0) + + //disp(d0>z2) + //disp(z0>d2) + + //disp(d0>z0) + //disp(z0>d0) + + //disp(d2>z2) + //disp(z2>d2) + +endfunction diff --git a/tests/unit_tests/double/test_OpLogLe.sci b/tests/unit_tests/double/test_OpLogLe.sci new file mode 100644 index 00000000..18bd3cfe --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLe.sci @@ -0,0 +1,29 @@ +function test_OpLogLe() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0<=d0) + //disp(z0<=z0) + disp(d2<=d0) + //disp(z2<=z0) + + disp(d0<=d2) + //disp(z0<=z2) + + disp(d2<=d2) + //disp(z2<=z2) + + //disp(d2<=z0) + //disp(z2<=d0) + + //disp(d0<=z2) + //disp(z0<=d2) + + //disp(d0<=z0) + //disp(z0<=d0) + + //disp(d2<=z2) + //disp(z2<=d2) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogLt.sci b/tests/unit_tests/double/test_OpLogLt.sci new file mode 100644 index 00000000..5e1a5e30 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLt.sci @@ -0,0 +1,29 @@ +function test_OpLogLt() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0g0) + + disp(d0<>d0) + disp(z0<>z0) + disp(d2<>d0) + disp(z2<>z0) + + disp(d0<>d2) + disp(z0<>z2) + + disp(d2<>d2) + disp(z2<>z2) + + disp(d2<>z0) + disp(z2<>d0) + + disp(d0<>z2) + disp(z0<>d2) + + disp(d0<>z0) + disp(z0<>d0) + + disp(d2<>z2) + disp(z2<>d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogNot.sci b/tests/unit_tests/double/test_OpLogNot.sci new file mode 100644 index 00000000..70ef4969 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNot.sci @@ -0,0 +1,23 @@ +function test_OpLogNot() +// test OpLogNot + + disp(~(-2)) + disp(~(0)) + disp(~(3)) + + disp(~(0-2*%i)) + disp(~(0+0*%i)) + disp(~(0+3*%i)) + disp(~(3-5*%i)) + disp(~(3+0*%i)) + disp(~(3+6*%i)) + + a=[-1 2 3; 0 -1 4; 2 -0 5]; + + disp(~(a)) + + b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0*%i] + + disp(~(b)) + +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogOr.sci b/tests/unit_tests/double/test_OpLogOr.sci new file mode 100644 index 00000000..18416b75 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogOr.sci @@ -0,0 +1,29 @@ +function test_OpLogOr() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0|d0) + disp(z0|z0) + disp(d2|d0) + disp(z2|z0) + + disp(d0|d2) + disp(z0|z2) + + disp(d2|d2) + disp(z2|z2) + + disp(d2|z0) + disp(z2|d0) + + disp(d0|z2) + disp(z0|d2) + + disp(d0|z0) + disp(z0|d0) + + disp(d2|z2) + disp(z2|d2) +endfunction diff --git a/tests/unit_tests/double/test_OpMinus.sci b/tests/unit_tests/double/test_OpMinus.sci new file mode 100644 index 00000000..f196980d --- /dev/null +++ b/tests/unit_tests/double/test_OpMinus.sci @@ -0,0 +1,45 @@ +function test_OpMinus() + a = 1; + b = 2; + c = a - b; // d0d0OpMinusd0 + disp(c); + + d = 1 - %i; // d0z0OpMinusz0 + e = %i - 3; // z0d0OpMinusz0 + f = d - e; // z0z0OpMinusz0 + + disp(f); + + g = [1 2 3; 4 5 6]; + h = 10; + w = g - h; // d2d0OpMinusd2 + j = h - g; // d0d2OpMinusd2 + + disp(j); + + k = [9 8 7; 6 5 4; 3 2 1] + l = [1 2 3; 4 5 6; 7 8 9] + m = k - l // d2d2OpMinusd2 + + disp(m); + n = k - 2 * %i; //d2z0OpMinusz2 + o = 3 * %i - l; //z0d2OpMinusz2 + p = n - o; // z2z2OpMinusz2 + + disp(p); + q = [1 2 3 ; 4 5 6 ; 7 8 9] + r = %pi * %i; + s = q - r; // d2z0OpMinusz2 + t = r - q; // z0d2OpMinusz2 + + disp(s); + disp(t); + u = [1 2 3] - %i * [4 5 6] + v = [7 8 9] + x = u - v; // z2d2OpMinusz2 + y = v - u; // d2z2OpMinusz2 + + disp(x); + + disp(y); +endfunction diff --git a/tests/unit_tests/double/test_OpPlus.sci b/tests/unit_tests/double/test_OpPlus.sci new file mode 100644 index 00000000..ccdba91f --- /dev/null +++ b/tests/unit_tests/double/test_OpPlus.sci @@ -0,0 +1,32 @@ +function test_OpPlus() + a = 1; + b = 2; + c = a + b; // d0d0OpPlusd0 + + d = 1 + %i; // d0z0OpPlusz0 + e = %i + 3; // z0d0OpPlusz0 + f = d + e; // z0z0OpPlusz0 + + g = [1 2 3; 4 5 6]; + h = 10; + w = g + h; // d2d0OpPlusd2 + j = h + g; // d0d2OpPlusd2 + + k = [9 8 7; 6 5 4; 3 2 1] + l = [1 2 3; 4 5 6; 7 8 9] + m = k + l // d2d2OpPlusd2 + + n = k + 2 * %i; //d2z0OpPlusz2 + o = 3 * %i + l; //z0d2OpPlusz2 + p = n + o; // z2z2OpPlusz2 + + q = [1 2 3 ; 4 5 6 ; 7 8 9] + r = 3 * %i; + s = q + r; // d2z0OpPlusz2 + t = r + q; // z0d2OpPlusz2 + + u = [1 2 3] + %i * [4 5 6] + v = [7 8 9] + x = u + v; // z2d2OpPlusz2 + y = v + u; // d2z2OpPlusz2 +endfunction diff --git a/tests/unit_tests/double/test_OpRc.sci b/tests/unit_tests/double/test_OpRc.sci new file mode 100644 index 00000000..5d264b77 --- /dev/null +++ b/tests/unit_tests/double/test_OpRc.sci @@ -0,0 +1,45 @@ + +function test_OpRc() + + a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 + b = [7 , a];// d0d2OpRcs2 + c = [a , 7];// d2d0OpRcs2 + d = [a , b];// d2d2OpRcs2 + disp(a); + disp(b); + disp(c); + disp(d); + + e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 + f = [7 , e];// z0z2OpRcz2 + g = [e , 7];// z2z0OpRcz2 + h = [e , f];// z2z2OpRcz2 + + disp(e); + disp(f); + disp(g); + disp(h); + + + i = [%i , 4.5]; // z0d0OpRcz2 + j = [4.5 , %i ]; // d0z0OpRcz2 + k = [4.5 , i ]; // d0z2OpRcz2 + l = [i , 4.5]; // z2d0OpRcz2 + + disp(i); + disp(j); + disp(k); + disp(l); + + m = [1 , 4.5]; + n = [%i , m ]; // z0d2OpRcz2 + o = [m , %i ]; // d0z2OpRcz2 + p = [m , n ]; // d2z2OpRcz2 + q = [n , m ]; // z2d2OpRcz2 + + disp(n); + disp(o); + disp(p); + disp(q); + +endfunction diff --git a/tests/unit_tests/double/test_OpSlash.sci b/tests/unit_tests/double/test_OpSlash.sci new file mode 100644 index 00000000..bd853871 --- /dev/null +++ b/tests/unit_tests/double/test_OpSlash.sci @@ -0,0 +1,32 @@ +function test_OpSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0/d0) + disp(d0/z0) + disp(z0/d0) + disp(z0/z0) + + disp(d2/d0) + disp(d2/z0) + disp(z2/d0) + disp(z2/z0) + + disp(d0/d2) + disp(d0/z2) + disp(z0/d2) + disp(z0/z2) + + disp(d2/d2) + disp(d2/z2) + disp(z2/d2) + disp(z2/z2) + + disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 + disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 + disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 + disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 + +endfunction diff --git a/tests/unit_tests/double/test_OpStar.sci b/tests/unit_tests/double/test_OpStar.sci new file mode 100644 index 00000000..06989ec8 --- /dev/null +++ b/tests/unit_tests/double/test_OpStar.sci @@ -0,0 +1,31 @@ +function test_OpStar() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0*d0) + disp(d0*z0) + disp(z0*d0) + disp(z0*z0) + + disp(d2*d0) + disp(d2*z0) + disp(z2*d0) + disp(z2*z0) + + disp(d0*d2) + disp(d0*z2) + disp(z0*d2) + disp(z0*z2) + + disp(d2*d2) + disp(d2*z2) + disp(z2*d2) + disp(z2*z2) + + disp([1 2 3]*[1 2 3]') //d2d2OpStard0 + disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 + disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 + disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_Size.sci b/tests/unit_tests/double/test_Size.sci new file mode 100644 index 00000000..c9866ff4 --- /dev/null +++ b/tests/unit_tests/double/test_Size.sci @@ -0,0 +1,41 @@ +function test_Size() + disp(size(4)); + disp(size([1 2])) + disp(size(2+3*%i)); + disp(size([1 2 3 ; 4 5 6])); + disp(size([1 2 3 ; 4 5 6]*%i)); + e = %pi ; + disp(size(e)); // d0Sized0 + + f = e * %i; + disp(size(f));// z0Sized0 + + a = [1 2 3 ; 4 5 6]; + disp(size(a));// d2Sized0 + + b = [1 2 3 ; 4 5 6] * %i; + disp(size(b));// z2Sized0 + +// with a second argument + o=1; + + disp(size(4,1)); + disp(size(2+3*%i,1)); + disp(size([1 2 3 ; 4 5 6],o)); + disp(size([1 2 3 ; 4 5 6]*%i,1)); + e = %pi ; + disp(size(e,1)); // d0Sized0 + + f = e * %i; + disp(size(f,1));// z0Sized0 + + a = [1 2 3 ; 4 5 6]; + disp(size(a,o));// d2Sized0 + + b = [1 2 3 ; 4 5 6] * %i; + disp(size(b,1));// z2Sized0 + + + + +endfunction diff --git a/tests/unit_tests/double/test_Spec.sci b/tests/unit_tests/double/test_Spec.sci new file mode 100644 index 00000000..8ef11466 --- /dev/null +++ b/tests/unit_tests/double/test_Spec.sci @@ -0,0 +1,41 @@ +function test_Spec() + + + disp(spec(45)) ; // d0Spec + disp(spec(4+3*%i)); // z0Spec + + a = [1 2 3; -4 5 98 ; 7 8 5] ; + b = [1 2 3; -4 5 98 ; 7 -100000 5] ; + + + disp(spec(a)); + disp(spec(b)); + + disp(spec(a*%i)); + // 2 outputs + + [aa bb] = spec(45) ; // d0Spec + disp(aa); + disp(bb); + + [cc dd] = spec(4+3*%i); // z0Spec + + disp(cc); + disp(dd); + + a = [1 2 3; -4 5 98 ; 7 8 5] ; + b = [1 2 3; -4 5 98 ; 7 -100000 5] ; + + + [ee ff] = spec(a); + disp(ee); + disp(ff); + [gg hh] = spec(b); + disp(gg); + disp(hh); + + [ii jj] = spec(a*%i); + disp(ii); + disp(jj); + +endfunction diff --git a/tests/unit_tests/double/test_Stdevf.sci b/tests/unit_tests/double/test_Stdevf.sci new file mode 100644 index 00000000..3f381834 --- /dev/null +++ b/tests/unit_tests/double/test_Stdevf.sci @@ -0,0 +1,45 @@ + +function test_Stdevf() + disp (stdevf (4 , 5 )) ; + disp ("*******1*******"); + disp (stdevf ([4 5 6], [1 2 3])); + disp ("*******2*******"); + disp (stdevf (4 , 5*%i )) ; + disp ("*******3*******"); + disp (stdevf ([4 5 6], [1 2 3]*%i)); + disp ("*******4*******"); + + + + disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + disp ("*******5*******"); + disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); +// complex + disp ("*******6*******"); + disp (stdevf (4 +4*%i , 5 )) ; + disp ("*******7*******"); + disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3])); + disp ("*******8*******"); + disp (stdevf (4 +4*%i , 5*%i )) ; + disp ("*******9*******"); + disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + disp ("******10*******"); + + + disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + disp ("******11*******"); + disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; 4 5 6]*%i,1)); + disp ("******12*******"); + disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); + disp ("******13*******"); + disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + disp ("******14*******"); + + disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + disp ("******15*******"); + disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + disp ("******16*******"); +// + +endfunction diff --git a/tests/unit_tests/double/test_Trace.sci b/tests/unit_tests/double/test_Trace.sci new file mode 100644 index 00000000..5fde91d9 --- /dev/null +++ b/tests/unit_tests/double/test_Trace.sci @@ -0,0 +1,13 @@ +function test_Trace() + + a = [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(trace(a)); + + b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(trace(b)); + + + disp(trace(5)); + + disp(trace(%i)); +endfunction diff --git a/tests/unit_tests/double/test_Type.sci b/tests/unit_tests/double/test_Type.sci new file mode 100644 index 00000000..093f458e --- /dev/null +++ b/tests/unit_tests/double/test_Type.sci @@ -0,0 +1,8 @@ +function test_Type() + + disp(type(%pi)); + disp(type(%pi + %i)); + disp(type([%pi 4])); + disp(type([%pi %i])); + +endfunction diff --git a/tests/unit_tests/double/test_abs.sci b/tests/unit_tests/double/test_abs.sci new file mode 100644 index 00000000..ad820874 --- /dev/null +++ b/tests/unit_tests/double/test_abs.sci @@ -0,0 +1,11 @@ +function test_abs() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(abs(d0)) + disp(abs(z0)) + disp(abs(d2)) + disp(abs(z2)) +endfunction diff --git a/tests/unit_tests/double/test_acos.sci b/tests/unit_tests/double/test_acos.sci new file mode 100644 index 00000000..7d70675f --- /dev/null +++ b/tests/unit_tests/double/test_acos.sci @@ -0,0 +1,11 @@ +function test_acos() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + acos(d0); + acos(d2); + acos(z0); + acos(z2); +endfunction diff --git a/tests/unit_tests/double/test_acosh.sci b/tests/unit_tests/double/test_acosh.sci new file mode 100644 index 00000000..a4917208 --- /dev/null +++ b/tests/unit_tests/double/test_acosh.sci @@ -0,0 +1,11 @@ +function test_acosh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(acosh(d0)); + disp(acosh(d2)); + disp(acosh(z0)); + disp(acosh(z2)); +endfunction diff --git a/tests/unit_tests/double/test_asin.sci b/tests/unit_tests/double/test_asin.sci new file mode 100644 index 00000000..371af42b --- /dev/null +++ b/tests/unit_tests/double/test_asin.sci @@ -0,0 +1,11 @@ +function test_asin() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(asin(d0)); + disp(asin(d2)); + disp(asin(z0)); + disp(asin(z2)); +endfunction diff --git a/tests/unit_tests/double/test_asinh.sci b/tests/unit_tests/double/test_asinh.sci new file mode 100644 index 00000000..d7c152dc --- /dev/null +++ b/tests/unit_tests/double/test_asinh.sci @@ -0,0 +1,11 @@ +function test_asinh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + asinh(d0); + asinh(d2); + asinh(z0); + asinh(z2); +endfunction diff --git a/tests/unit_tests/double/test_atan.sci b/tests/unit_tests/double/test_atan.sci new file mode 100644 index 00000000..9f309432 --- /dev/null +++ b/tests/unit_tests/double/test_atan.sci @@ -0,0 +1,14 @@ +function test_atan() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(atan(d0)); + disp(atan(d2)); + disp(atan(z0)); + disp(atan(z2)); + + disp(atan(d0,d0)); + disp(atan(d2,d2)); +endfunction diff --git a/tests/unit_tests/double/test_atanh.sci b/tests/unit_tests/double/test_atanh.sci new file mode 100644 index 00000000..eb163a1b --- /dev/null +++ b/tests/unit_tests/double/test_atanh.sci @@ -0,0 +1,11 @@ +function test_atanh() + d0 = %pi + d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(atanh(d0)); + disp(atanh(d2)); + disp(atanh(z0)); + disp(atanh(z2)); +endfunction diff --git a/tests/unit_tests/double/test_ceil.sci b/tests/unit_tests/double/test_ceil.sci new file mode 100644 index 00000000..f8c31cc8 --- /dev/null +++ b/tests/unit_tests/double/test_ceil.sci @@ -0,0 +1,11 @@ +function test_ceil() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + ceil(d0); + ceil(d2); + ceil(z0); + ceil(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_chol.sci b/tests/unit_tests/double/test_chol.sci new file mode 100644 index 00000000..7720af09 --- /dev/null +++ b/tests/unit_tests/double/test_chol.sci @@ -0,0 +1,11 @@ +function test_chol() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(chol(d0)); + disp(chol(d2*d2')); + disp(chol(z0)); + disp(chol(z2*z2')); +endfunction diff --git a/tests/unit_tests/double/test_conj.sci b/tests/unit_tests/double/test_conj.sci new file mode 100644 index 00000000..839d4c2c --- /dev/null +++ b/tests/unit_tests/double/test_conj.sci @@ -0,0 +1,11 @@ +function test_conj() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + conj(d0); + conj(d2); + conj(z0); + conj(z2); +endfunction diff --git a/tests/unit_tests/double/test_cos.sci b/tests/unit_tests/double/test_cos.sci new file mode 100644 index 00000000..16ce91d3 --- /dev/null +++ b/tests/unit_tests/double/test_cos.sci @@ -0,0 +1,11 @@ +function test_cos() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + cos(d0); + cos(d2); + cos(z0); + cos(z2); +endfunction diff --git a/tests/unit_tests/double/test_cosh.sci b/tests/unit_tests/double/test_cosh.sci new file mode 100644 index 00000000..92512be5 --- /dev/null +++ b/tests/unit_tests/double/test_cosh.sci @@ -0,0 +1,11 @@ +function test_cosh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + cosh(d0); + cosh(d2); + cosh(z0); + cosh(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_Convol.sci b/tests/unit_tests/double/test_double_Convol.sci deleted file mode 100644 index c872935e..00000000 --- a/tests/unit_tests/double/test_double_Convol.sci +++ /dev/null @@ -1,124 +0,0 @@ -function test_double_Convol() - - - disp(convol(4,4.5)); //d0d0Convold0 - disp(convol(%i + 3 ,2*%i + 4)); // z0z0Convolz0 - - - a = [1 2 3 4 5 %e %pi]; - b = [1 7 8 5 1 6 ]; - - disp(convol(a,b)); - disp(convol(b,b)); // d2d2Convold2 - - - disp(convol(4,a)); //d0d2Convold2 - disp(convol(a,4)); // d2d0Convold2 - - - c = [1 2 3 4 5 %e %pi] * %i; - d = [1 7 8 5 1 6 ] * %i; - - disp(convol(c,d)); - disp(convol(d,d)); // z2z2Convolz2 - - - disp(convol(%i + 3 ,c)); // z0z2Convolz2 - disp(convol(d ,2*%i + 4)); // z2z0Convolz2 - -// with 2 outputs - - -// [zz yy] = convol(4,4.5); //d0d0Convold0d0 -// disp( zz ); - //disp( yy ); - -// [xx ww ] = convol(%i + 3 ,2*%i + 4); // z0z0Convolz0z0 -// disp( xx); -// disp( ww ); - -// [vv uu] =convol(a,b); -// disp( vv); // d2d2Convold2d2 -// disp( uu ); - - -// [tt ss] = convol(4,a); //d0d2Convold2d2 -// disp( tt); -// disp( ss ); - - - -// [rr qq] = convol(a,4); // d2d0Convold2d2 -// disp( rr ); -// disp( qq ); - - - -// with 2 outputs - -// [pp oo] =convol(c,d); -// disp( pp); // z2z2Convolz2z2 -// disp( oo ); - - -// [mm nn] = convol(4,c); //z0z2Convolz2z2 -// disp( mm); -// disp( nn ); - - - -// [ll kk] = convol(c,4); // z2z0Convolz2z2 -// disp( ll ); - //disp( kk); - - -// three input i - -// with 2 outputs - - - //[zzz yyy] = convol(4,4.5,18); //d0d0d0Convold0d0 - //disp( zzz ); - //disp( yyy ); - - //[xxx www ] = convol(%i + 3 ,2*%i + 4,%i); // z0z0z0Convolz0z0 - //disp( xxx); - //disp( www ); - -// bbis = [4 7 9 10]; - - //[vvv uuu] =convol(a,b,bbis); -// disp( vvv); // d2d2d2Convold2d2 -// disp( uuu ); -// - - //[ttt sss] = convol(4,a, 8); //d0d2d0Convold2d0 - //disp( ttt); - //disp( sss ); - -// with 2 outputs -//dbis = [10 13 14] *%i; -// [ppp ooo] =convol(c,d, dbis); -// disp( ppp); // z2z2z2Convolz2z2 -// disp( ooo ); - - -// [mmm nnn] = convol(4 * %i ,c , %i); //z0z2z0Convolz2z0 -// disp( mmm); -// disp( nnn); - -//mixed up - -// disp(convol(a,c)); //d2z2Convolz2 -// disp(convol(c,a)); // z2d2Convolz2 -// disp(convol(4,c)); //d0z2Convolz2 -// disp(convol(%i + 3 ,a)); // z0d2Convolz2 - -// disp(convol(a, %i)); //d2z0Convolz2 -// disp(convol(c , 4)); // z2d0Convolz2 - - - - - -endfunction diff --git a/tests/unit_tests/double/test_double_Det.sci b/tests/unit_tests/double/test_double_Det.sci deleted file mode 100644 index 7c5f2fed..00000000 --- a/tests/unit_tests/double/test_double_Det.sci +++ /dev/null @@ -1,15 +0,0 @@ -function test_double_Det() - - a = [1 2 3; 4 %pi 5; 4.5 -3 2]; - disp(det(a)); - - b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; - disp(det(b)); - - - disp(det(5)); - - disp(det(%i)); -endfunction - - diff --git a/tests/unit_tests/double/test_double_Disp.sci b/tests/unit_tests/double/test_double_Disp.sci deleted file mode 100644 index 4d1f7185..00000000 --- a/tests/unit_tests/double/test_double_Disp.sci +++ /dev/null @@ -1,13 +0,0 @@ -function test_double_Disp () - - disp(4.5); - disp(4+3*%i); - disp("a"); - - disp([1 2 3 4 5 ; 6 7 8 9 10]); - disp(%i*[1 2 3 4 5 ; 6 7 8 9 10]); - disp("plop"); - - -endfunction - diff --git a/tests/unit_tests/double/test_double_Expm.sci b/tests/unit_tests/double/test_double_Expm.sci deleted file mode 100644 index a084fb5a..00000000 --- a/tests/unit_tests/double/test_double_Expm.sci +++ /dev/null @@ -1,9 +0,0 @@ -function test_double_Expm() - b = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]; - c = b*%i ; - - disp(expm(b)); - disp(expm(c)); - - -endfunction diff --git a/tests/unit_tests/double/test_double_FFTShift.sci b/tests/unit_tests/double/test_double_FFTShift.sci deleted file mode 100644 index 205669c7..00000000 --- a/tests/unit_tests/double/test_double_FFTShift.sci +++ /dev/null @@ -1,37 +0,0 @@ -function test_double_FFTShift() - - disp(fftshift(5.3));// d0*d0 - disp(fftshift(5.3*%i));// z0*z0 - disp(fftshift(5.3 + 5.6*%i ));// z0*z0 - - - a = fft ([10 1 15 3.5 ]); - disp(fftshift(a)); - - b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]; - disp(fftshift(b)); - disp(fftshift(b , 1)); - disp(fftshift(b , 2)); - //disp(fftshift(b , "all")); - - - c = [10 1 15 3.5 ]*%i; - disp(fftshift(c)); - - d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; - disp(fftshift(b)); - disp(fftshift(b , 1)); - disp(fftshift(b , 2)); - //disp(fftshift(b , "all")); - - - e = c + [10 1 15 3.5 ]*%i; - disp(fftshift(e)); - - f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; - disp(fftshift(f)); - disp(fftshift(f , 1)); - disp(fftshift(f , 2)); - //disp(fftshift(f , "all")); - -endfunction diff --git a/tests/unit_tests/double/test_double_Fft.sci b/tests/unit_tests/double/test_double_Fft.sci deleted file mode 100644 index f54c1f91..00000000 --- a/tests/unit_tests/double/test_double_Fft.sci +++ /dev/null @@ -1,172 +0,0 @@ -function test_double_Fft() - -disp(fft(4.4)) -disp(fft(%i + 3.4)) - - -// one input - a = [10 1 15 3.5 ]; //d2Fftz2 - disp(fft(a)); - disp(""); - b = [25 3.6]; // d2Fftd2 - disp(fft(b)); - disp(""); - c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] - disp(fft(c)); - disp(""); - // pure imaginary - d = [10 1 15 3.5 ]*%i; //z2Fftz2 - disp(fft(d)); - disp(""); - e = [25 3.6]*%i; // z2Fftd2 - disp(fft(e)); - disp(""); - f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] - disp(fft(f)); - disp(""); - // full complex - - g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 - disp(fft(g)); - disp(""); - h = b + [25 3.6]*%i; // z2Fftd2 - disp(fft(h)); - disp(""); - j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] - disp(fft(j)); - disp(""); - disp("*******************"); - disp("*******************"); - disp(""); -// two output -// call ifft - disp(fft(a,1)); - disp(""); - disp(fft(b,1)); - disp(""); - disp(fft(c,1)); - disp(""); - disp(fft(d,1)); - disp(""); - disp(fft(e,1)); - disp(""); - disp(fft(f,1)); - disp(""); - // full complex - disp(fft(g,1)); - disp(""); - disp(fft(h,1)); - disp(""); - disp(fft(j,1)); - disp(""); - disp(""); - disp("*******************"); - disp("*******************"); - disp(""); -// - disp(fft(a,-1)); - disp(""); - disp(fft(b,-1)); - disp(""); - disp(fft(c,-1)); - disp(""); - disp(fft(d,-1)); - disp(""); - disp(fft(e,-1)); - disp(""); - disp(fft(f,-1)); - disp(""); - // full complex - disp(fft(g,-1)); - disp(""); - disp(fft(h,-1)); - disp(""); - disp(fft(j,-1)); - disp(""); - - -// ******************** -// MATRIX -// ******************** -// one input - aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 - disp(fft(aa)); - disp(""); - bb = [25 3.6 ; 4 3.2]; // d2Fftd2 - disp(fft(bb)); - disp(""); - cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] - disp(fft(cc)); - disp(""); - // pure imaginary - dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 - disp(fft(dd)); - disp(""); - ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 - disp(fft(ee)); - disp(""); - ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] - - disp(fft(ff)); - disp(""); - // full complex - - gg = aa + dd; //z2Fftz2 - disp(fft(gg)); - disp(""); - hh = bb + ee; // z2Fftd2 - disp(fft(hh)); - disp(""); - jj= cc + ff - disp(fft(jj)); - disp(""); - disp("*******************"); - disp("*******************"); - disp(""); -// two output -// call ifft - disp(fft(aa,1)); - disp(""); - disp(fft(bb,1)); - disp(""); - disp(fft(cc,1)); - disp(""); - disp(fft(dd,1)); - disp(""); - disp(fft(ee,1)); - disp(""); - disp(fft(ff,1)); - disp(""); - // full complex - disp(fft(gg,1)); - disp(""); - disp(fft(hh,1)); - disp(""); - disp(fft(jj,1)); - disp(""); - disp(""); - disp("*******************"); - disp("*******************"); - disp(""); -// - disp(fft(aa,-1)); - disp(""); - disp(fft(bb,-1)); - disp(""); - disp(fft(cc,-1)); - disp(""); - disp(fft(dd,-1)); - disp(""); - disp(fft(ee,-1)); - disp(""); - disp(fft(ff,-1)); - disp(""); - // full complex - disp(fft(gg,-1)); - disp(""); - disp(fft(hh,-1)); - disp(""); - disp(fft(jj,-1)); - disp(""); - -endfunction diff --git a/tests/unit_tests/double/test_double_Find.sci b/tests/unit_tests/double/test_double_Find.sci deleted file mode 100644 index fd1d09a0..00000000 --- a/tests/unit_tests/double/test_double_Find.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_Find () - - disp (find( 1 == 3 )); // d0Findd0 - - a = [1 2 3; 4 5 6]; - b = [1 8 3; 9 5 6]; - disp (find( a == b )); // d2Findd2 - - [ z , j ] = find (1 == 3); // d0Findd0d0 - [ k , l ] = find (a == b); // d2Findd2d2 - - disp(z); - disp(j); - disp(k); - disp(l); - - disp ( find( 1 == 3 , 2 )); // d0d0Findd0 - - c = [1 2 3; 4 5 6]; - d = [1 8 3; 9 5 6]; - disp (find( c == d , 2 )); // d2d0Findd2 - - [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 - [ q , s ] = find (c == d , 2); // d2d0Findd2d2 - - disp(o); - disp(p); - disp(q); - disp(s); - -endfunction diff --git a/tests/unit_tests/double/test_double_IFFT.sci b/tests/unit_tests/double/test_double_IFFT.sci deleted file mode 100644 index 54761cf8..00000000 --- a/tests/unit_tests/double/test_double_IFFT.sci +++ /dev/null @@ -1,89 +0,0 @@ -function test_double_IFFT() - - -disp(ifft(2)); // d0IFFTd0 -disp(ifft(%i + 4)) // z0IFFTz0 - -disp(ifft([1 2])); // d2IFFTd2 -disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 -disp(ifft([1 2]*%i)); // z2IFFTz2 - -disp(ifft(4.4)) -disp(ifft(%i + 3.4)) - - -// one input - a = [10 1 15 3.5 ]; //d2Fftz2 - Abis = a + zeros(a)*%i ; - disp(ifft(Abis)); - disp("********1*******"); - b = [25 3.6]; // d2Fftd2 - disp(ifft(b)); - disp("********2*******"); - c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] - cbis = c + zeros(c)*%i ; - disp(ifft(cbis)); - disp("********3*********"); - // pure imaginary - d = [10 1 15 3.5 ]*%i; //z2Fftz2 - disp(ifft(d)); - disp("********4*********"); - e = [25 3.6]*%i; // z2Fftd2 - disp(ifft(e)); - disp("********5***********"); - f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] - disp(ifft(f)); - disp("********6***********"); - // full complex - - g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 - disp(ifft(g)); - disp("********7***********"); - h = b + [25 3.6]*%i; // z2Fftd2 - disp(ifft(h)); - disp("********8***********"); - j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] - disp(ifft(j)); - disp("********************"); - disp("*******************"); - disp("*******************"); - disp("********************"); - - -// ******************** -// MATRIX -// ******************** -// one input - aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 - disp(ifft(aa)); - disp("********9***********"); - bb = [25 3.6 ; 4 3.2]; // d2Fftd2 - disp(ifft(bb)); - disp("********10**********"); - cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] - disp(ifft(cc)); - disp("********11**********"); - // pure imaginary - dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 - disp(ifft(dd)); - disp("********12**********"); - ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 - disp(ifft(ee)); - disp("********13**********"); - ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] - - disp(ifft(ff)); - disp("********14**********"); - // full complex - - gg = aa + dd; //z2Fftz2 - disp(ifft(gg)); - disp("********15**********"); - hh = bb + ee; // z2Fftd2 - disp(ifft(hh)); - disp("********16**********"); - jj= cc + ff - disp(ifft(jj)); - - -endfunction diff --git a/tests/unit_tests/double/test_double_Length.sci b/tests/unit_tests/double/test_double_Length.sci deleted file mode 100644 index 8e8a8c52..00000000 --- a/tests/unit_tests/double/test_double_Length.sci +++ /dev/null @@ -1,32 +0,0 @@ -function test_double_Length() - disp(length(4)); - disp(length(2+3*%i)); - disp(length([1 2 3 ; 4 5 6])); - disp(length([1 2 3 ; 4 5 6]*%i)); - e = %pi ; - disp(length(e)); // d0Lengthd0 - - f = e * %i; - disp(length(f));// z0Lengthd0 - - a = [1 2 3 ; 4 5 6]; - disp(length(a));// d2Lengthd0 - - b = [1 2 3 ; 4 5 6] * %i; - disp(length(b));// z2Lengthd0 - - - g = "pouet" ; - h = "a" ; - - disp(length(g)); // g0Lengthd0 - disp(length(h)); // g2Lengthd0 - - disp(length("pouet")); - disp(length("a")); - - - - - -endfunction diff --git a/tests/unit_tests/double/test_double_Lev.sci b/tests/unit_tests/double/test_double_Lev.sci deleted file mode 100644 index d1669822..00000000 --- a/tests/unit_tests/double/test_double_Lev.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_Lev() - - a = [1 2 3 4 5 6 7 8 9 10] ; - - disp(lev(a)) ; - - [aa aaa] = lev(a); - disp(aa); - disp(aaa) - - [a1 aa1 aaa1] = lev (a); - disp(a1); - disp(aa1); - disp(aaa1); - -// complex - b =%i * [1 2 3 4 5 6 7 8 9 10] ; - - disp(lev(b)) ; - - [bb bbb] = lev(b); - disp(bb); - disp(bbb) - - [b1 bb1 bbb1] = lev (b); - disp(b1); - disp(bb1); - disp(bbb1); - - -endfunction diff --git a/tests/unit_tests/double/test_double_Meanf.sci b/tests/unit_tests/double/test_double_Meanf.sci deleted file mode 100644 index 2e88e4d9..00000000 --- a/tests/unit_tests/double/test_double_Meanf.sci +++ /dev/null @@ -1,48 +0,0 @@ - -function test_double_Meanf() - - disp (meanf (4 , 5 )) ; - disp ("*******1*******"); - disp (meanf ([4 5 6], [1 2 3])); - disp ("*******2*******"); - disp (meanf (4 , 5*%i )) ; - disp ("*******3*******"); - disp (meanf ([4 5 6], [1 2 3]*%i)); - disp ("*******4*******"); - - - - disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); - disp ("*******5*******"); - disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); -// complex - disp ("*******6*******"); - disp (meanf (4 +4*%i , 5 )) ; - disp ("*******7*******"); - disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); - disp ("*******8*******"); - disp (meanf (4 +4*%i , 5*%i )) ; - disp ("*******9*******"); - disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); - disp ("******10*******"); - - - disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); - disp ("******11*******"); - disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); - disp ("******12*******"); - disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; 4 5 6]*%i,1)); - disp ("******13*******"); - disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); - disp ("******14*******"); - - disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); - disp ("******15*******"); - disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); - disp ("******16*******"); -// - - -// - -endfunction diff --git a/tests/unit_tests/double/test_double_OpApex.sci b/tests/unit_tests/double/test_double_OpApex.sci deleted file mode 100644 index 77c04b70..00000000 --- a/tests/unit_tests/double/test_double_OpApex.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_OpApex() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0') - disp(d2') - disp(z0') - disp(z2') -endfunction diff --git a/tests/unit_tests/double/test_double_OpCc.sci b/tests/unit_tests/double/test_double_OpCc.sci deleted file mode 100644 index c306164c..00000000 --- a/tests/unit_tests/double/test_double_OpCc.sci +++ /dev/null @@ -1,46 +0,0 @@ - - -function test_double_OpCc() - - a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 - b = [7 ; a];// d0d2OpCcs2 - c = [a ; 7];// d2d0OpCcs2 - d = [a ; b];// d2d2OpCcs2 - disp(a); - disp(b); - disp(c); - disp(d); - - e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 - f = [7 ; e];// z0z2OpCcz2 - g = [e ; 7];// z2z0OpCcz2 - h = [e ; f];// z2z2OpCcz2 - - disp(e); - disp(f); - disp(g); - disp(h); - - - i = [%i ; 4.5]; // z0d0OpCcz2 - j = [4.5 ; %i ]; // d0z0OpCcz2 - k = [4.5 ; i ]; // d0z2OpCcz2 - l = [i ; 4.5]; // z2d0OpCcz2 - - disp(i); - disp(j); - disp(k); - disp(l); - - m = [1 ; 4.5]; - n = [%i ; m ]; // z0d2OpCcz2 - o = [m ; %i ]; // d0z2OpCcz2 - p = [m ; n ]; // d2z2OpCcz2 - q = [n ; m ]; // z2d2OpCcz2 - - disp(n); - disp(o); - disp(p); - disp(q); - -endfunction diff --git a/tests/unit_tests/double/test_double_OpColon.sci b/tests/unit_tests/double/test_double_OpColon.sci deleted file mode 100644 index a7fbe196..00000000 --- a/tests/unit_tests/double/test_double_OpColon.sci +++ /dev/null @@ -1,41 +0,0 @@ -function test_double_OpColon() - - -// A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; -// B = A * %i ; -d = %i ; -a = %pi ; -b = %e ; -c = [7 8 5 ]; -disp(zeros ( a , %e )); - -disp(zeros ( %pi , %e)); -disp(zeros(c)); -disp(zeros ([4 5 6 ; 4 5 6]) ); - - disp(0:1:3); - disp(1:1); - disp(4+53*%i:0); -// - - disp(2:5); - disp(4+3*%i:8+%i); -// - - disp(1:5:1); - disp(%i:%i+1:2); -// - - disp(2:7:5); - disp(4+3*%i:4:8+%i); -//a =4 + 53 *%i : 0 ; -endfunction -//OUT(1).SZ(2)= FA_INT( -// FA_ADD( -// FA_DIV( -// FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REAL(IN(1).VAL, IN(3).TP)) -// ,FA_REAL(IN(2).VAL,IN(2).TP) -// ) -// ,''1'' -// ) -// ) diff --git a/tests/unit_tests/double/test_double_OpDotApex.sci b/tests/unit_tests/double/test_double_OpDotApex.sci deleted file mode 100644 index 89fab710..00000000 --- a/tests/unit_tests/double/test_double_OpDotApex.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_OpDotApex() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0.') - disp(d2.') - disp(z0.') - disp(z2.') -endfunction diff --git a/tests/unit_tests/double/test_double_OpDotBackSlash.sci b/tests/unit_tests/double/test_double_OpDotBackSlash.sci deleted file mode 100644 index 3e9ac329..00000000 --- a/tests/unit_tests/double/test_double_OpDotBackSlash.sci +++ /dev/null @@ -1,30 +0,0 @@ -function test_double_OpDotBackSlash() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0.\d0) - disp(z0.\z0) - disp(d2.\d0) - disp(z2.\z0) - - disp(d0.\d2) - disp(z0.\z2) - - disp(d2.\d2) - disp(z2.\z2) - - disp(d2.\z0) - disp(z2.\d0) - - disp(d0.\z2) - disp(z0.\d2) - - disp(d0.\z0) - disp(z0.\d0) - - disp(d2.\z2) - disp(z2.\d2) - -endfunction diff --git a/tests/unit_tests/double/test_double_OpDotHat.sci b/tests/unit_tests/double/test_double_OpDotHat.sci deleted file mode 100644 index a35f6c0f..00000000 --- a/tests/unit_tests/double/test_double_OpDotHat.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpDotHat() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0.^d0) - disp(z0.^z0) - disp(d2.^d0) - disp(z2.^z0) - - disp(d0.^d2) - disp(z0.^z2) - - disp(d2.^d2) - disp(z2.^z2) - - disp(d2.^z0) - disp(z2.^d0) - - disp(d0.^z2) - disp(z0.^d2) - - disp(d0.^z0) - disp(z0.^d0) - - disp(d2.^z2) - disp(z2.^d2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpDotSlash.sci b/tests/unit_tests/double/test_double_OpDotSlash.sci deleted file mode 100644 index c9ba9dea..00000000 --- a/tests/unit_tests/double/test_double_OpDotSlash.sci +++ /dev/null @@ -1,26 +0,0 @@ -function test_double_OpDotSlash() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0./d0) - disp(d0./z0) - disp(d0./d2) - disp(d0./z2) - - disp(d2./d0) - disp(d2./z0) - disp(d2./d2) - disp(d2./z2) - - disp(z0./d0) - disp(z0./z0) - disp(z0./d2) - disp(z0./z2) - - disp(z2./d0) - disp(z2./z0) - disp(z2./d2) - disp(z2./z2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpDotStar.sci b/tests/unit_tests/double/test_double_OpDotStar.sci deleted file mode 100644 index fe74fddf..00000000 --- a/tests/unit_tests/double/test_double_OpDotStar.sci +++ /dev/null @@ -1,26 +0,0 @@ -function test_double_OpDotStar() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0.*d0) - disp(d0.*z0) - disp(d0.*d2) - disp(d0.*z2) - - disp(d2.*d0) - disp(d2.*z0) - disp(d2.*d2) - disp(d2.*z2) - - disp(z0.*d0) - disp(z0.*z0) - disp(z0.*d2) - disp(z0.*z2) - - disp(z2.*d0) - disp(z2.*z0) - disp(z2.*d2) - disp(z2.*z2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpEqual.sci b/tests/unit_tests/double/test_double_OpEqual.sci deleted file mode 100644 index ef493572..00000000 --- a/tests/unit_tests/double/test_double_OpEqual.sci +++ /dev/null @@ -1,24 +0,0 @@ -function test_double_OpEqual() - - a = %pi; - disp(a); - - - b = %pi + %i; - disp(b); - - - c = "a"; - disp(c); - - - d =[ %pi 4 5]; - disp(d); - - e = [7 8 9]*%i; - disp(e); - - f = "plopilou" ; - disp(f); - -endfunction diff --git a/tests/unit_tests/double/test_double_OpExt.sci b/tests/unit_tests/double/test_double_OpExt.sci deleted file mode 100644 index d924d35f..00000000 --- a/tests/unit_tests/double/test_double_OpExt.sci +++ /dev/null @@ -1,25 +0,0 @@ -function test_double_OpExt () - - a = [1 2 3 ; 4 5 6]; - - - disp(a(2)); - disp(a([3 5])); - disp(a(2,3)); - disp(a(2,[2 3])); - disp(a ([1 2],1)); - disp(a ([1 2],[2 3])); - - - b = [1 2 3 ; 4 5 6] * %i; - - - disp(b(2)); - disp(b([3 5])); - disp(b(2,3)); - disp(b(2,[2 3])); - disp(b ([1 2],1)); - disp(b ([1 2],[2 3])); - - -endfunction diff --git a/tests/unit_tests/double/test_double_OpHat.sci b/tests/unit_tests/double/test_double_OpHat.sci deleted file mode 100644 index 44e8f2c8..00000000 --- a/tests/unit_tests/double/test_double_OpHat.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpHat() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0^d0) - disp(z0^z0) - disp(d2^d0) - disp(z2^z0) - - disp(d0^d2) - disp(z0^z2) - - //disp(d2^d2) // ! Not implemented in Scilab ! - //disp(z2^z2) // ! Not implemented in Scilab ! - - disp(d2^z0) - disp(z2^d0) - - disp(d0^z2) - disp(z0^d2) - - disp(d0^z0) - disp(z0^d0) - - //disp(d2^z2) // ! Not implemented in Scilab ! - //disp(z2^d2) // ! Not implemented in Scilab ! -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_OpIns.sci b/tests/unit_tests/double/test_double_OpIns.sci deleted file mode 100644 index d6ca31aa..00000000 --- a/tests/unit_tests/double/test_double_OpIns.sci +++ /dev/null @@ -1,129 +0,0 @@ -function test_double_OpIns() - //reals -a=[1 2 3; 4 5 6] - -a(3)=-2 -disp(a); - -a(3)=-4+%i -disp(a); - -a(1,3)=-12; -disp(a); - -a(1,3)=-5+%i; -disp(a); - -a([1,2],1)=-12; -disp(a); - -a([1,2],1)=-5+%i; -disp(a); - -a(2,[2,3])=-12; -disp(a); - -a(2,[2,3])=-5+%i; -disp(a); - -a([1 2],[1,2,3])=4; -disp(a); - -a([1 2],[1,2,3])=3+%i; -disp(a); - -a([1,3])=7; -disp(a); - -a([1,3])=2+%i; -disp(a); - -a([1,3])=[1,0]; -disp(a); - -a([1,3])=[3-%i,1+%i]; -disp(a); - -a(2,[1,3])=[-2,-7]; -disp(a); - -a(2,[1,3])=[-4+%i,-5+%i]; -disp(a); - -a([1,2],3)=[-9;-1]; -disp(a); - -a([1,2],3)=[-4+%i;-5+%i]; -disp(a); - -a([1,2],[2,3])=[-31 -45;-29 -51]; -disp(a); - -a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; -disp(a); - - -//complexes - -b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] - -b(3)=-2 -disp(b); - -b(3)=-4+%i -disp(b); - -b(1,3)=-12; -disp(b); - -b(1,3)=-5+%i; -disp(b); - -b([1,2],1)=-12; -disp(b); - -b([1,2],1)=-5+%i; -disp(b); - -b(2,[2,3])=-12; -disp(b); - -b(2,[2,3])=-5+%i; -disp(b); - -b([1 2],[1,2,3])=4; -disp(b); - -b([1 2],[1,2,3])=3+%i; -disp(b); - -b([1,3])=7; -disp(b); - -b([1,3])=2+%i; -disp(b); - -b([1,3])=[1,0]; -disp(b); - -b([1,3])=[3-%i,1+%i]; -disp(b); - -b(2,[1,3])=[-2,-7]; -disp(b); - -b(2,[1,3])=[-4+%i,-5+%i]; -disp(b); - -b([1,2],3)=[-9;-1]; -disp(b); - -b([1,2],3)=[-4+%i;-5+%i]; -disp(b); - -b([1,2],[2,3])=[-31 -45;-29 -51]; -disp(b); - -b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; -disp(b); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_OpLogAnd.sci b/tests/unit_tests/double/test_double_OpLogAnd.sci deleted file mode 100644 index fc2fdfb2..00000000 --- a/tests/unit_tests/double/test_double_OpLogAnd.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpLogAnd() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0&d0) - disp(z0&z0) - disp(d2&d0) - disp(z2&z0) - - disp(d0&d2) - disp(z0&z2) - - disp(d2&d2) - disp(z2&z2) - - disp(d2&z0) - disp(z2&d0) - - disp(d0&z2) - disp(z0&d2) - - disp(d0&z0) - disp(z0&d0) - - disp(d2&z2) - disp(z2&d2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpLogEq.sci b/tests/unit_tests/double/test_double_OpLogEq.sci deleted file mode 100644 index f24c236f..00000000 --- a/tests/unit_tests/double/test_double_OpLogEq.sci +++ /dev/null @@ -1,33 +0,0 @@ -function test_double_OpLogEq() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - g0 = 'A' - g2 = "foo" - - //disp(g0==g0) // ! Unable to manage this case ! - - disp(d0==d0) - disp(z0==z0) - disp(d2==d0) - disp(z2==z0) - - disp(d0==d2) - disp(z0==z2) - - disp(d2==d2) - disp(z2==z2) - - disp(d2==z0) - disp(z2==d0) - - disp(d0==z2) - disp(z0==d2) - - disp(d0==z0) - disp(z0==d0) - - disp(d2==z2) - disp(z2==d2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpLogGe.sci b/tests/unit_tests/double/test_double_OpLogGe.sci deleted file mode 100644 index b50166c1..00000000 --- a/tests/unit_tests/double/test_double_OpLogGe.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpLogGe() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0>=d0) - //disp(z0>=z0) - disp(d2>=d0) - //disp(z2>=z0) - - disp(d0>=d2) - //disp(z0>=z2) - - disp(d2>=d2) - //disp(z2>=z2) - - //disp(d2>=z0) - //disp(z2>=d0) - - //disp(d0>=z2) - //disp(z0>=d2) - - //disp(d0>=z0) - //disp(z0>=d0) - - //disp(d2>=z2) - //disp(z2>=d2) - endfunction diff --git a/tests/unit_tests/double/test_double_OpLogGt.sci b/tests/unit_tests/double/test_double_OpLogGt.sci deleted file mode 100644 index 848da1c7..00000000 --- a/tests/unit_tests/double/test_double_OpLogGt.sci +++ /dev/null @@ -1,30 +0,0 @@ -function test_double_OpLogGt() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0>d0) - //disp(z0>z0) - disp(d2>d0) - //disp(z2>z0) - - disp(d0>d2) - //disp(z0>z2) - - disp(d2>d2) - //disp(z2>z2) - - //disp(d2>z0) - //disp(z2>d0) - - //disp(d0>z2) - //disp(z0>d2) - - //disp(d0>z0) - //disp(z0>d0) - - //disp(d2>z2) - //disp(z2>d2) - -endfunction diff --git a/tests/unit_tests/double/test_double_OpLogLe.sci b/tests/unit_tests/double/test_double_OpLogLe.sci deleted file mode 100644 index 77e3f6e2..00000000 --- a/tests/unit_tests/double/test_double_OpLogLe.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpLogLe() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0<=d0) - //disp(z0<=z0) - disp(d2<=d0) - //disp(z2<=z0) - - disp(d0<=d2) - //disp(z0<=z2) - - disp(d2<=d2) - //disp(z2<=z2) - - //disp(d2<=z0) - //disp(z2<=d0) - - //disp(d0<=z2) - //disp(z0<=d2) - - //disp(d0<=z0) - //disp(z0<=d0) - - //disp(d2<=z2) - //disp(z2<=d2) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_OpLogLt.sci b/tests/unit_tests/double/test_double_OpLogLt.sci deleted file mode 100644 index 416f8dcb..00000000 --- a/tests/unit_tests/double/test_double_OpLogLt.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpLogLt() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0g0) - - disp(d0<>d0) - disp(z0<>z0) - disp(d2<>d0) - disp(z2<>z0) - - disp(d0<>d2) - disp(z0<>z2) - - disp(d2<>d2) - disp(z2<>z2) - - disp(d2<>z0) - disp(z2<>d0) - - disp(d0<>z2) - disp(z0<>d2) - - disp(d0<>z0) - disp(z0<>d0) - - disp(d2<>z2) - disp(z2<>d2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpLogNot.sci b/tests/unit_tests/double/test_double_OpLogNot.sci deleted file mode 100644 index 6b103544..00000000 --- a/tests/unit_tests/double/test_double_OpLogNot.sci +++ /dev/null @@ -1,23 +0,0 @@ -function test_double_OpLogNot() -// test OpLogNot - - disp(~(-2)) - disp(~(0)) - disp(~(3)) - - disp(~(0-2*%i)) - disp(~(0+0*%i)) - disp(~(0+3*%i)) - disp(~(3-5*%i)) - disp(~(3+0*%i)) - disp(~(3+6*%i)) - - a=[-1 2 3; 0 -1 4; 2 -0 5]; - - disp(~(a)) - - b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0*%i] - - disp(~(b)) - -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_OpLogOr.sci b/tests/unit_tests/double/test_double_OpLogOr.sci deleted file mode 100644 index 50e9c98c..00000000 --- a/tests/unit_tests/double/test_double_OpLogOr.sci +++ /dev/null @@ -1,29 +0,0 @@ -function test_double_OpLogOr() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0|d0) - disp(z0|z0) - disp(d2|d0) - disp(z2|z0) - - disp(d0|d2) - disp(z0|z2) - - disp(d2|d2) - disp(z2|z2) - - disp(d2|z0) - disp(z2|d0) - - disp(d0|z2) - disp(z0|d2) - - disp(d0|z0) - disp(z0|d0) - - disp(d2|z2) - disp(z2|d2) -endfunction diff --git a/tests/unit_tests/double/test_double_OpMinus.sci b/tests/unit_tests/double/test_double_OpMinus.sci deleted file mode 100644 index 9220cce1..00000000 --- a/tests/unit_tests/double/test_double_OpMinus.sci +++ /dev/null @@ -1,45 +0,0 @@ -function test_double_OpMinus() - a = 1; - b = 2; - c = a - b; // d0d0OpMinusd0 - disp(c); - - d = 1 - %i; // d0z0OpMinusz0 - e = %i - 3; // z0d0OpMinusz0 - f = d - e; // z0z0OpMinusz0 - - disp(f); - - g = [1 2 3; 4 5 6]; - h = 10; - w = g - h; // d2d0OpMinusd2 - j = h - g; // d0d2OpMinusd2 - - disp(j); - - k = [9 8 7; 6 5 4; 3 2 1] - l = [1 2 3; 4 5 6; 7 8 9] - m = k - l // d2d2OpMinusd2 - - disp(m); - n = k - 2 * %i; //d2z0OpMinusz2 - o = 3 * %i - l; //z0d2OpMinusz2 - p = n - o; // z2z2OpMinusz2 - - disp(p); - q = [1 2 3 ; 4 5 6 ; 7 8 9] - r = %pi * %i; - s = q - r; // d2z0OpMinusz2 - t = r - q; // z0d2OpMinusz2 - - disp(s); - disp(t); - u = [1 2 3] - %i * [4 5 6] - v = [7 8 9] - x = u - v; // z2d2OpMinusz2 - y = v - u; // d2z2OpMinusz2 - - disp(x); - - disp(y); -endfunction diff --git a/tests/unit_tests/double/test_double_OpPlus.sci b/tests/unit_tests/double/test_double_OpPlus.sci deleted file mode 100644 index b0f3c6aa..00000000 --- a/tests/unit_tests/double/test_double_OpPlus.sci +++ /dev/null @@ -1,32 +0,0 @@ -function test_double_OpPlus() - a = 1; - b = 2; - c = a + b; // d0d0OpPlusd0 - - d = 1 + %i; // d0z0OpPlusz0 - e = %i + 3; // z0d0OpPlusz0 - f = d + e; // z0z0OpPlusz0 - - g = [1 2 3; 4 5 6]; - h = 10; - w = g + h; // d2d0OpPlusd2 - j = h + g; // d0d2OpPlusd2 - - k = [9 8 7; 6 5 4; 3 2 1] - l = [1 2 3; 4 5 6; 7 8 9] - m = k + l // d2d2OpPlusd2 - - n = k + 2 * %i; //d2z0OpPlusz2 - o = 3 * %i + l; //z0d2OpPlusz2 - p = n + o; // z2z2OpPlusz2 - - q = [1 2 3 ; 4 5 6 ; 7 8 9] - r = 3 * %i; - s = q + r; // d2z0OpPlusz2 - t = r + q; // z0d2OpPlusz2 - - u = [1 2 3] + %i * [4 5 6] - v = [7 8 9] - x = u + v; // z2d2OpPlusz2 - y = v + u; // d2z2OpPlusz2 -endfunction diff --git a/tests/unit_tests/double/test_double_OpRc.sci b/tests/unit_tests/double/test_double_OpRc.sci deleted file mode 100644 index 8a9afd8e..00000000 --- a/tests/unit_tests/double/test_double_OpRc.sci +++ /dev/null @@ -1,45 +0,0 @@ - -function test_double_OpRc() - - a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 - b = [7 , a];// d0d2OpRcs2 - c = [a , 7];// d2d0OpRcs2 - d = [a , b];// d2d2OpRcs2 - disp(a); - disp(b); - disp(c); - disp(d); - - e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 - f = [7 , e];// z0z2OpRcz2 - g = [e , 7];// z2z0OpRcz2 - h = [e , f];// z2z2OpRcz2 - - disp(e); - disp(f); - disp(g); - disp(h); - - - i = [%i , 4.5]; // z0d0OpRcz2 - j = [4.5 , %i ]; // d0z0OpRcz2 - k = [4.5 , i ]; // d0z2OpRcz2 - l = [i , 4.5]; // z2d0OpRcz2 - - disp(i); - disp(j); - disp(k); - disp(l); - - m = [1 , 4.5]; - n = [%i , m ]; // z0d2OpRcz2 - o = [m , %i ]; // d0z2OpRcz2 - p = [m , n ]; // d2z2OpRcz2 - q = [n , m ]; // z2d2OpRcz2 - - disp(n); - disp(o); - disp(p); - disp(q); - -endfunction diff --git a/tests/unit_tests/double/test_double_OpSlash.sci b/tests/unit_tests/double/test_double_OpSlash.sci deleted file mode 100644 index 8012584c..00000000 --- a/tests/unit_tests/double/test_double_OpSlash.sci +++ /dev/null @@ -1,32 +0,0 @@ -function test_double_OpSlash() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0/d0) - disp(d0/z0) - disp(z0/d0) - disp(z0/z0) - - disp(d2/d0) - disp(d2/z0) - disp(z2/d0) - disp(z2/z0) - - disp(d0/d2) - disp(d0/z2) - disp(z0/d2) - disp(z0/z2) - - disp(d2/d2) - disp(d2/z2) - disp(z2/d2) - disp(z2/z2) - - disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 - disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 - disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 - disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 - -endfunction diff --git a/tests/unit_tests/double/test_double_OpStar.sci b/tests/unit_tests/double/test_double_OpStar.sci deleted file mode 100644 index 12797bbb..00000000 --- a/tests/unit_tests/double/test_double_OpStar.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_OpStar() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(d0*d0) - disp(d0*z0) - disp(z0*d0) - disp(z0*z0) - - disp(d2*d0) - disp(d2*z0) - disp(z2*d0) - disp(z2*z0) - - disp(d0*d2) - disp(d0*z2) - disp(z0*d2) - disp(z0*z2) - - disp(d2*d2) - disp(d2*z2) - disp(z2*d2) - disp(z2*z2) - - disp([1 2 3]*[1 2 3]') //d2d2OpStard0 - disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 - disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 - disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_Size.sci b/tests/unit_tests/double/test_double_Size.sci deleted file mode 100644 index e25f5627..00000000 --- a/tests/unit_tests/double/test_double_Size.sci +++ /dev/null @@ -1,41 +0,0 @@ -function test_double_Size() - disp(size(4)); - disp(size([1 2])) - disp(size(2+3*%i)); - disp(size([1 2 3 ; 4 5 6])); - disp(size([1 2 3 ; 4 5 6]*%i)); - e = %pi ; - disp(size(e)); // d0Sized0 - - f = e * %i; - disp(size(f));// z0Sized0 - - a = [1 2 3 ; 4 5 6]; - disp(size(a));// d2Sized0 - - b = [1 2 3 ; 4 5 6] * %i; - disp(size(b));// z2Sized0 - -// with a second argument - o=1; - - disp(size(4,1)); - disp(size(2+3*%i,1)); - disp(size([1 2 3 ; 4 5 6],o)); - disp(size([1 2 3 ; 4 5 6]*%i,1)); - e = %pi ; - disp(size(e,1)); // d0Sized0 - - f = e * %i; - disp(size(f,1));// z0Sized0 - - a = [1 2 3 ; 4 5 6]; - disp(size(a,o));// d2Sized0 - - b = [1 2 3 ; 4 5 6] * %i; - disp(size(b,1));// z2Sized0 - - - - -endfunction diff --git a/tests/unit_tests/double/test_double_Spec.sci b/tests/unit_tests/double/test_double_Spec.sci deleted file mode 100644 index 61cca50f..00000000 --- a/tests/unit_tests/double/test_double_Spec.sci +++ /dev/null @@ -1,41 +0,0 @@ -function test_double_Spec() - - - disp(spec(45)) ; // d0Spec - disp(spec(4+3*%i)); // z0Spec - - a = [1 2 3; -4 5 98 ; 7 8 5] ; - b = [1 2 3; -4 5 98 ; 7 -100000 5] ; - - - disp(spec(a)); - disp(spec(b)); - - disp(spec(a*%i)); - // 2 outputs - - [aa bb] = spec(45) ; // d0Spec - disp(aa); - disp(bb); - - [cc dd] = spec(4+3*%i); // z0Spec - - disp(cc); - disp(dd); - - a = [1 2 3; -4 5 98 ; 7 8 5] ; - b = [1 2 3; -4 5 98 ; 7 -100000 5] ; - - - [ee ff] = spec(a); - disp(ee); - disp(ff); - [gg hh] = spec(b); - disp(gg); - disp(hh); - - [ii jj] = spec(a*%i); - disp(ii); - disp(jj); - -endfunction diff --git a/tests/unit_tests/double/test_double_Stdevf.sci b/tests/unit_tests/double/test_double_Stdevf.sci deleted file mode 100644 index 2798f98d..00000000 --- a/tests/unit_tests/double/test_double_Stdevf.sci +++ /dev/null @@ -1,45 +0,0 @@ - -function test_double_Stdevf() - disp (stdevf (4 , 5 )) ; - disp ("*******1*******"); - disp (stdevf ([4 5 6], [1 2 3])); - disp ("*******2*******"); - disp (stdevf (4 , 5*%i )) ; - disp ("*******3*******"); - disp (stdevf ([4 5 6], [1 2 3]*%i)); - disp ("*******4*******"); - - - - disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); - disp ("*******5*******"); - disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); -// complex - disp ("*******6*******"); - disp (stdevf (4 +4*%i , 5 )) ; - disp ("*******7*******"); - disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3])); - disp ("*******8*******"); - disp (stdevf (4 +4*%i , 5*%i )) ; - disp ("*******9*******"); - disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); - disp ("******10*******"); - - - disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); - disp ("******11*******"); - disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); - disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; 4 5 6]*%i,1)); - disp ("******12*******"); - disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); - disp ("******13*******"); - disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); - disp ("******14*******"); - - disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); - disp ("******15*******"); - disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); - disp ("******16*******"); -// - -endfunction diff --git a/tests/unit_tests/double/test_double_Trace.sci b/tests/unit_tests/double/test_double_Trace.sci deleted file mode 100644 index 722c75a5..00000000 --- a/tests/unit_tests/double/test_double_Trace.sci +++ /dev/null @@ -1,13 +0,0 @@ -function test_double_Trace() - - a = [1 2 3; 4 %pi 5; 4.5 -3 2]; - disp(trace(a)); - - b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; - disp(trace(b)); - - - disp(trace(5)); - - disp(trace(%i)); -endfunction diff --git a/tests/unit_tests/double/test_double_Type.sci b/tests/unit_tests/double/test_double_Type.sci deleted file mode 100644 index 4585c65d..00000000 --- a/tests/unit_tests/double/test_double_Type.sci +++ /dev/null @@ -1,8 +0,0 @@ -function test_double_Type() - - disp(type(%pi)); - disp(type(%pi + %i)); - disp(type([%pi 4])); - disp(type([%pi %i])); - -endfunction diff --git a/tests/unit_tests/double/test_double_abs.sci b/tests/unit_tests/double/test_double_abs.sci deleted file mode 100644 index 9faccf25..00000000 --- a/tests/unit_tests/double/test_double_abs.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_abs() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(abs(d0)) - disp(abs(z0)) - disp(abs(d2)) - disp(abs(z2)) -endfunction diff --git a/tests/unit_tests/double/test_double_acos.sci b/tests/unit_tests/double/test_double_acos.sci deleted file mode 100644 index 14bb88af..00000000 --- a/tests/unit_tests/double/test_double_acos.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_acos() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - acos(d0); - acos(d2); - acos(z0); - acos(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_acosh.sci b/tests/unit_tests/double/test_double_acosh.sci deleted file mode 100644 index 73fe317a..00000000 --- a/tests/unit_tests/double/test_double_acosh.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_acosh() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(acosh(d0)); - disp(acosh(d2)); - disp(acosh(z0)); - disp(acosh(z2)); -endfunction diff --git a/tests/unit_tests/double/test_double_asin.sci b/tests/unit_tests/double/test_double_asin.sci deleted file mode 100644 index b95efcf8..00000000 --- a/tests/unit_tests/double/test_double_asin.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_asin() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(asin(d0)); - disp(asin(d2)); - disp(asin(z0)); - disp(asin(z2)); -endfunction diff --git a/tests/unit_tests/double/test_double_asinh.sci b/tests/unit_tests/double/test_double_asinh.sci deleted file mode 100644 index d912f201..00000000 --- a/tests/unit_tests/double/test_double_asinh.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_asinh() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - asinh(d0); - asinh(d2); - asinh(z0); - asinh(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_atan.sci b/tests/unit_tests/double/test_double_atan.sci deleted file mode 100644 index 7126dfea..00000000 --- a/tests/unit_tests/double/test_double_atan.sci +++ /dev/null @@ -1,14 +0,0 @@ -function test_double_atan() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(atan(d0)); - disp(atan(d2)); - disp(atan(z0)); - disp(atan(z2)); - - disp(atan(d0,d0)); - disp(atan(d2,d2)); -endfunction diff --git a/tests/unit_tests/double/test_double_atanh.sci b/tests/unit_tests/double/test_double_atanh.sci deleted file mode 100644 index 3bef7ef3..00000000 --- a/tests/unit_tests/double/test_double_atanh.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_atanh() - d0 = %pi - d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(atanh(d0)); - disp(atanh(d2)); - disp(atanh(z0)); - disp(atanh(z2)); -endfunction diff --git a/tests/unit_tests/double/test_double_ceil.sci b/tests/unit_tests/double/test_double_ceil.sci deleted file mode 100644 index 84d96fab..00000000 --- a/tests/unit_tests/double/test_double_ceil.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_ceil() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - ceil(d0); - ceil(d2); - ceil(z0); - ceil(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_chol.sci b/tests/unit_tests/double/test_double_chol.sci deleted file mode 100644 index 33c129f5..00000000 --- a/tests/unit_tests/double/test_double_chol.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_chol() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(chol(d0)); - disp(chol(d2*d2')); - disp(chol(z0)); - disp(chol(z2*z2')); -endfunction diff --git a/tests/unit_tests/double/test_double_conj.sci b/tests/unit_tests/double/test_double_conj.sci deleted file mode 100644 index 8ccea9c3..00000000 --- a/tests/unit_tests/double/test_double_conj.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_conj() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - conj(d0); - conj(d2); - conj(z0); - conj(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_cos.sci b/tests/unit_tests/double/test_double_cos.sci deleted file mode 100644 index 25020612..00000000 --- a/tests/unit_tests/double/test_double_cos.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_cos() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - cos(d0); - cos(d2); - cos(z0); - cos(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_cosh.sci b/tests/unit_tests/double/test_double_cosh.sci deleted file mode 100644 index 6d688b2c..00000000 --- a/tests/unit_tests/double/test_double_cosh.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_cosh() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - cosh(d0); - cosh(d2); - cosh(z0); - cosh(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_exp.sci b/tests/unit_tests/double/test_double_exp.sci deleted file mode 100644 index d00388bd..00000000 --- a/tests/unit_tests/double/test_double_exp.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_exp() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - exp(d0); - exp(d2); - exp(z0); - exp(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_eye.sci b/tests/unit_tests/double/test_double_eye.sci deleted file mode 100644 index 4bf9727d..00000000 --- a/tests/unit_tests/double/test_double_eye.sci +++ /dev/null @@ -1,14 +0,0 @@ -function test_double_eye() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(eye(d0)) - disp(eye(z0)) - disp(eye(d2)) - disp(eye(z2)) - //disp(eye(0,0)) // ! sci2c does not manage [] ! - disp(eye(1,1)) - disp(eye(d0,d0)) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_fix.sci b/tests/unit_tests/double/test_double_fix.sci deleted file mode 100644 index 827276a7..00000000 --- a/tests/unit_tests/double/test_double_fix.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_fix() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - fix(d0); - fix(d2); - fix(z0); - fix(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_floor.sci b/tests/unit_tests/double/test_double_floor.sci deleted file mode 100644 index abfcd6bd..00000000 --- a/tests/unit_tests/double/test_double_floor.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_floor() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - floor(d0); - floor(d2); - floor(z0); - floor(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_imag.sci b/tests/unit_tests/double/test_double_imag.sci deleted file mode 100644 index aa7da25e..00000000 --- a/tests/unit_tests/double/test_double_imag.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_imag() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(imag(d0)) - disp(imag(z0)) - disp(imag(d2)) - disp(imag(z2)) -endfunction diff --git a/tests/unit_tests/double/test_double_int.sci b/tests/unit_tests/double/test_double_int.sci deleted file mode 100644 index 00a4aaef..00000000 --- a/tests/unit_tests/double/test_double_int.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_int() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - int(d0); - int(d2); - int(z0); - int(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_inv.sci b/tests/unit_tests/double/test_double_inv.sci deleted file mode 100644 index 956abe56..00000000 --- a/tests/unit_tests/double/test_double_inv.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_inv() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - inv(d0); - inv(d2); - inv(z0); - inv(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_isnan.sci b/tests/unit_tests/double/test_double_isnan.sci deleted file mode 100644 index 1ea38d48..00000000 --- a/tests/unit_tests/double/test_double_isnan.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_isnan() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(isnan(d0)) - disp(isnan(d2)) - disp(isnan(z0)) - disp(isnan(z2)) -endfunction diff --git a/tests/unit_tests/double/test_double_log.sci b/tests/unit_tests/double/test_double_log.sci deleted file mode 100644 index b5790f14..00000000 --- a/tests/unit_tests/double/test_double_log.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_log() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(log(d0)); - disp(log(d2)); - disp(log(z0)); - disp(log(z2)); -endfunction diff --git a/tests/unit_tests/double/test_double_log10.sci b/tests/unit_tests/double/test_double_log10.sci deleted file mode 100644 index a30176d9..00000000 --- a/tests/unit_tests/double/test_double_log10.sci +++ /dev/null @@ -1,11 +0,0 @@ - function test_double_log10() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(log10(d0)); - disp(log10(d2)); - disp(log10(z0)); - disp(log10(z2)); - endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_log1p.sci b/tests/unit_tests/double/test_double_log1p.sci deleted file mode 100644 index 03196ceb..00000000 --- a/tests/unit_tests/double/test_double_log1p.sci +++ /dev/null @@ -1,12 +0,0 @@ -function test_double_log1p() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(log1p(d0)); - disp(log1p(d2)); - //disp(log1p(z0)); // ! Not Implemented in Scilab ! - //disp(log1p(z2)); // ! Not Implemented in Scilab ! - -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_max.sci b/tests/unit_tests/double/test_double_max.sci deleted file mode 100644 index b43e47a4..00000000 --- a/tests/unit_tests/double/test_double_max.sci +++ /dev/null @@ -1,32 +0,0 @@ -function test_double_max() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(max(d0)) - //disp(max(z0)) - disp(max(d2)) - //disp(max(z2)) - - disp(max(d0, 1)) - //disp(max(z0, 1)) - disp(max(d2, 1)) - //disp(max(z2, 1)) - - disp(max(d0, 2)) - //disp(max(z0, 2)) - disp(max(d2, 2)) - //disp(max(z2, 2)) - -// disp(max(d0, 'r')) -// disp(max(z0, 'r')) -// disp(max(d2, 'r')) -// disp(max(z2, 'r')) - -// disp(max(d0, 'c')) -// disp(max(z0, 'c')) -// disp(max(d2, 'c')) -// disp(max(z2, 'c')) - -endfunction diff --git a/tests/unit_tests/double/test_double_mean.sci b/tests/unit_tests/double/test_double_mean.sci deleted file mode 100644 index 66859d01..00000000 --- a/tests/unit_tests/double/test_double_mean.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_mean() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(mean(d0)) - disp(mean(z0)) - disp(mean(d2)) - disp(mean(z2)) - - disp(mean(d0, 1)) - disp(mean(z0, 1)) - disp(mean(d2, 1)) - disp(mean(z2, 1)) - - disp(mean(d0, 2)) - disp(mean(z0, 2)) - disp(mean(d2, 2)) - disp(mean(z2, 2)) - -// disp(mean(d0, 'r')) -// disp(mean(z0, 'r')) -// disp(mean(d2, 'r')) -// disp(mean(z2, 'r')) - -// disp(mean(d0, 'c')) -// disp(mean(z0, 'c')) -// disp(mean(d2, 'c')) -// disp(mean(z2, 'c')) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_min.sci b/tests/unit_tests/double/test_double_min.sci deleted file mode 100644 index 65f267bc..00000000 --- a/tests/unit_tests/double/test_double_min.sci +++ /dev/null @@ -1,32 +0,0 @@ -function test_double_min() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(min(d0)) - //disp(min(z0)) - disp(min(d2)) - //disp(min(z2)) - - disp(min(d0, 1)) - //disp(min(z0, 1)) - disp(min(d2, 1)) - //disp(min(z2, 1)) - - disp(min(d0, 2)) - //disp(min(z0, 2)) - disp(min(d2, 2)) - //disp(min(z2, 2)) - -// disp(min(d0, 'r')) -// disp(min(z0, 'r')) -// disp(min(d2, 'r')) -// disp(min(z2, 'r')) - -// disp(min(d0, 'c')) -// disp(min(z0, 'c')) -// disp(min(d2, 'c')) -// disp(min(z2, 'c')) - -endfunction diff --git a/tests/unit_tests/double/test_double_ones.sci b/tests/unit_tests/double/test_double_ones.sci deleted file mode 100644 index eb30b0a4..00000000 --- a/tests/unit_tests/double/test_double_ones.sci +++ /dev/null @@ -1,14 +0,0 @@ -function test_double_ones() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(ones(d0)) - disp(ones(z0)) - disp(ones(d2)) - disp(ones(z2)) - //disp(ones(0,0)) // ! sci2c does not manage [] ! - disp(ones(1,1)) - disp(ones(d0,d0)) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_prod.sci b/tests/unit_tests/double/test_double_prod.sci deleted file mode 100644 index f5b2c552..00000000 --- a/tests/unit_tests/double/test_double_prod.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_prod() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(prod(d0)) - disp(prod(z0)) - disp(prod(d2)) - disp(prod(z2)) - - disp(prod(d0, 1)) - disp(prod(z0, 1)) - disp(prod(d2, 1)) - disp(prod(z2, 1)) - - disp(prod(d0, 2)) - disp(prod(z0, 2)) - disp(prod(d2, 2)) - disp(prod(z2, 2)) - -// disp(prod(d0, 'r')) -// disp(prod(z0, 'r')) -// disp(prod(d2, 'r')) -// disp(prod(z2, 'r')) - -// disp(prod(d0, 'c')) -// disp(prod(z0, 'c')) -// disp(prod(d2, 'c')) -// disp(prod(z2, 'c')) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_rand.sci b/tests/unit_tests/double/test_double_rand.sci deleted file mode 100644 index c6b1893e..00000000 --- a/tests/unit_tests/double/test_double_rand.sci +++ /dev/null @@ -1,14 +0,0 @@ -function test_double_rand() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(rand(d0)) - disp(rand(z0)) - disp(rand(d2)) - disp(rand(z2)) - //disp(rand(0,0)) // ! sci2c does not manage [] ! - disp(rand(1,1)) - disp(rand(d0,d0)) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_real.sci b/tests/unit_tests/double/test_double_real.sci deleted file mode 100644 index 31748476..00000000 --- a/tests/unit_tests/double/test_double_real.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_real() - d0 = %pi - d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(real(d0)) - disp(real(z0)) - disp(real(d2)) - disp(real(z2)) -endfunction diff --git a/tests/unit_tests/double/test_double_round.sci b/tests/unit_tests/double/test_double_round.sci deleted file mode 100644 index 4c57b494..00000000 --- a/tests/unit_tests/double/test_double_round.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_round() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - round(d0); - round(d2); - round(z0); - round(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_sign.sci b/tests/unit_tests/double/test_double_sign.sci deleted file mode 100644 index c13cb2f1..00000000 --- a/tests/unit_tests/double/test_double_sign.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_sign() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - sign(d0); - sign(d2); - sign(z0); - sign(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_sin.sci b/tests/unit_tests/double/test_double_sin.sci deleted file mode 100644 index cb00390f..00000000 --- a/tests/unit_tests/double/test_double_sin.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_sin() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - sin(d0); - sin(d2); - sin(z0); - sin(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_sinh.sci b/tests/unit_tests/double/test_double_sinh.sci deleted file mode 100644 index d23706fa..00000000 --- a/tests/unit_tests/double/test_double_sinh.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_sinh() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - sinh(d0); - sinh(d2); - sinh(z0); - sinh(z2); -endfunction diff --git a/tests/unit_tests/double/test_double_sqrt.sci b/tests/unit_tests/double/test_double_sqrt.sci deleted file mode 100644 index 3f39cbd6..00000000 --- a/tests/unit_tests/double/test_double_sqrt.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_sqrt() - d0 = %pi - d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(sqrt(d0)); - disp(sqrt(d2)); - disp(sqrt(z0)); - disp(sqrt(z2)); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_st_deviation.sci b/tests/unit_tests/double/test_double_st_deviation.sci deleted file mode 100644 index ddff4c63..00000000 --- a/tests/unit_tests/double/test_double_st_deviation.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_st_deviation() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(st_deviation(d0)) - disp(st_deviation(z0)) - disp(st_deviation(d2)) - disp(st_deviation(z2)) - - disp(st_deviation(d0, 1)) - disp(st_deviation(z0, 1)) - disp(st_deviation(d2, 1)) - disp(st_deviation(z2, 1)) - - disp(st_deviation(d0, 2)) - disp(st_deviation(z0, 2)) - disp(st_deviation(d2, 2)) - disp(st_deviation(z2, 2)) - -// disp(st_deviation(d0, 'r')) -// disp(st_deviation(z0, 'r')) -// disp(st_deviation(d2, 'r')) -// disp(st_deviation(z2, 'r')) - -// disp(st_deviation(d0, 'c')) -// disp(st_deviation(z0, 'c')) -// disp(st_deviation(d2, 'c')) -// disp(st_deviation(z2, 'c')) -endfunction diff --git a/tests/unit_tests/double/test_double_sum.sci b/tests/unit_tests/double/test_double_sum.sci deleted file mode 100644 index 11beb8b7..00000000 --- a/tests/unit_tests/double/test_double_sum.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_sum() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(sum(d0)) - disp(sum(z0)) - disp(sum(d2)) - disp(sum(z2)) - - disp(sum(d0, 1)) - disp(sum(z0, 1)) - disp(sum(d2, 1)) - disp(sum(z2, 1)) - - disp(sum(d0, 2)) - disp(sum(z0, 2)) - disp(sum(d2, 2)) - disp(sum(z2, 2)) - -// disp(sum(d0, 'r')) -// disp(sum(z0, 'r')) -// disp(sum(d2, 'r')) -// disp(sum(z2, 'r')) - -// disp(sum(d0, 'c')) -// disp(sum(z0, 'c')) -// disp(sum(d2, 'c')) -// disp(sum(z2, 'c')) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_tanh.sci b/tests/unit_tests/double/test_double_tanh.sci deleted file mode 100644 index bf1a8a73..00000000 --- a/tests/unit_tests/double/test_double_tanh.sci +++ /dev/null @@ -1,11 +0,0 @@ -function test_double_tanh() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - tanh(d0); - tanh(d2); - tanh(z0); - tanh(z2); -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_double_variance.sci b/tests/unit_tests/double/test_double_variance.sci deleted file mode 100644 index cafe17b5..00000000 --- a/tests/unit_tests/double/test_double_variance.sci +++ /dev/null @@ -1,31 +0,0 @@ -function test_double_variance() - d0 = 0.2113249 - d2 = [0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - //disp(variance(d0)) - //disp(variance(z0)) - disp(variance(d2)) - disp(variance(z2)) - - //disp(variance(d0, 1)) - //disp(variance(z0, 1)) - disp(variance(d2, 1)) - disp(variance(z2, 1)) - - //disp(variance(d0, 2)) - //disp(variance(z0, 2)) - disp(variance(d2, 2)) - disp(variance(z2, 2)) - -// disp(variance(d0, 'r')) -// disp(variance(z0, 'r')) -// disp(variance(d2, 'r')) -// disp(variance(z2, 'r')) - -// disp(variance(d0, 'c')) -// disp(variance(z0, 'c')) -// disp(variance(d2, 'c')) -// disp(variance(z2, 'c')) -endfunction diff --git a/tests/unit_tests/double/test_double_zeros.sci b/tests/unit_tests/double/test_double_zeros.sci deleted file mode 100644 index 37045a9e..00000000 --- a/tests/unit_tests/double/test_double_zeros.sci +++ /dev/null @@ -1,14 +0,0 @@ -function test_double_zeros() - d0 = %pi - d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] - z0 = d0 + %i * d0 - z2 = d2 + %i * d2 - - disp(zeros(d0)) - disp(zeros(z0)) - disp(zeros(d2)) - disp(zeros(z2)) - //disp(zeros(0,0)) // ! sci2c does not manage [] ! - disp(zeros(1,1)) - disp(zeros(d0,d0)) -endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_exp.sci b/tests/unit_tests/double/test_exp.sci new file mode 100644 index 00000000..35fad912 --- /dev/null +++ b/tests/unit_tests/double/test_exp.sci @@ -0,0 +1,11 @@ +function test_exp() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + exp(d0); + exp(d2); + exp(z0); + exp(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_eye.sci b/tests/unit_tests/double/test_eye.sci new file mode 100644 index 00000000..1241e86d --- /dev/null +++ b/tests/unit_tests/double/test_eye.sci @@ -0,0 +1,14 @@ +function test_eye() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(eye(d0)) + disp(eye(z0)) + disp(eye(d2)) + disp(eye(z2)) + //disp(eye(0,0)) // ! sci2c does not manage [] ! + disp(eye(1,1)) + disp(eye(d0,d0)) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_fix.sci b/tests/unit_tests/double/test_fix.sci new file mode 100644 index 00000000..d484c439 --- /dev/null +++ b/tests/unit_tests/double/test_fix.sci @@ -0,0 +1,11 @@ +function test_fix() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + fix(d0); + fix(d2); + fix(z0); + fix(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_floor.sci b/tests/unit_tests/double/test_floor.sci new file mode 100644 index 00000000..d9bbc8d5 --- /dev/null +++ b/tests/unit_tests/double/test_floor.sci @@ -0,0 +1,11 @@ +function test_floor() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + floor(d0); + floor(d2); + floor(z0); + floor(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_imag.sci b/tests/unit_tests/double/test_imag.sci new file mode 100644 index 00000000..b89fec27 --- /dev/null +++ b/tests/unit_tests/double/test_imag.sci @@ -0,0 +1,11 @@ +function test_imag() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(imag(d0)) + disp(imag(z0)) + disp(imag(d2)) + disp(imag(z2)) +endfunction diff --git a/tests/unit_tests/double/test_int.sci b/tests/unit_tests/double/test_int.sci new file mode 100644 index 00000000..9afdb3ce --- /dev/null +++ b/tests/unit_tests/double/test_int.sci @@ -0,0 +1,11 @@ +function test_int() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + int(d0); + int(d2); + int(z0); + int(z2); +endfunction diff --git a/tests/unit_tests/double/test_inv.sci b/tests/unit_tests/double/test_inv.sci new file mode 100644 index 00000000..020c1821 --- /dev/null +++ b/tests/unit_tests/double/test_inv.sci @@ -0,0 +1,11 @@ +function test_inv() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + inv(d0); + inv(d2); + inv(z0); + inv(z2); +endfunction diff --git a/tests/unit_tests/double/test_isnan.sci b/tests/unit_tests/double/test_isnan.sci new file mode 100644 index 00000000..e0370562 --- /dev/null +++ b/tests/unit_tests/double/test_isnan.sci @@ -0,0 +1,11 @@ +function test_isnan() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(isnan(d0)) + disp(isnan(d2)) + disp(isnan(z0)) + disp(isnan(z2)) +endfunction diff --git a/tests/unit_tests/double/test_log.sci b/tests/unit_tests/double/test_log.sci new file mode 100644 index 00000000..d3967899 --- /dev/null +++ b/tests/unit_tests/double/test_log.sci @@ -0,0 +1,11 @@ +function test_log() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log(d0)); + disp(log(d2)); + disp(log(z0)); + disp(log(z2)); +endfunction diff --git a/tests/unit_tests/double/test_log10.sci b/tests/unit_tests/double/test_log10.sci new file mode 100644 index 00000000..e4ef7b68 --- /dev/null +++ b/tests/unit_tests/double/test_log10.sci @@ -0,0 +1,11 @@ + function test_log10() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log10(d0)); + disp(log10(d2)); + disp(log10(z0)); + disp(log10(z2)); + endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_log1p.sci b/tests/unit_tests/double/test_log1p.sci new file mode 100644 index 00000000..cf02842c --- /dev/null +++ b/tests/unit_tests/double/test_log1p.sci @@ -0,0 +1,12 @@ +function test_log1p() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log1p(d0)); + disp(log1p(d2)); + //disp(log1p(z0)); // ! Not Implemented in Scilab ! + //disp(log1p(z2)); // ! Not Implemented in Scilab ! + +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_max.sci b/tests/unit_tests/double/test_max.sci new file mode 100644 index 00000000..ab601f1e --- /dev/null +++ b/tests/unit_tests/double/test_max.sci @@ -0,0 +1,32 @@ +function test_max() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(max(d0)) + //disp(max(z0)) + disp(max(d2)) + //disp(max(z2)) + + disp(max(d0, 1)) + //disp(max(z0, 1)) + disp(max(d2, 1)) + //disp(max(z2, 1)) + + disp(max(d0, 2)) + //disp(max(z0, 2)) + disp(max(d2, 2)) + //disp(max(z2, 2)) + +// disp(max(d0, 'r')) +// disp(max(z0, 'r')) +// disp(max(d2, 'r')) +// disp(max(z2, 'r')) + +// disp(max(d0, 'c')) +// disp(max(z0, 'c')) +// disp(max(d2, 'c')) +// disp(max(z2, 'c')) + +endfunction diff --git a/tests/unit_tests/double/test_mean.sci b/tests/unit_tests/double/test_mean.sci new file mode 100644 index 00000000..b0b3434a --- /dev/null +++ b/tests/unit_tests/double/test_mean.sci @@ -0,0 +1,31 @@ +function test_mean() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(mean(d0)) + disp(mean(z0)) + disp(mean(d2)) + disp(mean(z2)) + + disp(mean(d0, 1)) + disp(mean(z0, 1)) + disp(mean(d2, 1)) + disp(mean(z2, 1)) + + disp(mean(d0, 2)) + disp(mean(z0, 2)) + disp(mean(d2, 2)) + disp(mean(z2, 2)) + +// disp(mean(d0, 'r')) +// disp(mean(z0, 'r')) +// disp(mean(d2, 'r')) +// disp(mean(z2, 'r')) + +// disp(mean(d0, 'c')) +// disp(mean(z0, 'c')) +// disp(mean(d2, 'c')) +// disp(mean(z2, 'c')) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_min.sci b/tests/unit_tests/double/test_min.sci new file mode 100644 index 00000000..a99e8b36 --- /dev/null +++ b/tests/unit_tests/double/test_min.sci @@ -0,0 +1,32 @@ +function test_min() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(min(d0)) + //disp(min(z0)) + disp(min(d2)) + //disp(min(z2)) + + disp(min(d0, 1)) + //disp(min(z0, 1)) + disp(min(d2, 1)) + //disp(min(z2, 1)) + + disp(min(d0, 2)) + //disp(min(z0, 2)) + disp(min(d2, 2)) + //disp(min(z2, 2)) + +// disp(min(d0, 'r')) +// disp(min(z0, 'r')) +// disp(min(d2, 'r')) +// disp(min(z2, 'r')) + +// disp(min(d0, 'c')) +// disp(min(z0, 'c')) +// disp(min(d2, 'c')) +// disp(min(z2, 'c')) + +endfunction diff --git a/tests/unit_tests/double/test_ones.sci b/tests/unit_tests/double/test_ones.sci new file mode 100644 index 00000000..056330b9 --- /dev/null +++ b/tests/unit_tests/double/test_ones.sci @@ -0,0 +1,14 @@ +function test_ones() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(ones(d0)) + disp(ones(z0)) + disp(ones(d2)) + disp(ones(z2)) + //disp(ones(0,0)) // ! sci2c does not manage [] ! + disp(ones(1,1)) + disp(ones(d0,d0)) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_prod.sci b/tests/unit_tests/double/test_prod.sci new file mode 100644 index 00000000..cddb081e --- /dev/null +++ b/tests/unit_tests/double/test_prod.sci @@ -0,0 +1,31 @@ +function test_prod() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(prod(d0)) + disp(prod(z0)) + disp(prod(d2)) + disp(prod(z2)) + + disp(prod(d0, 1)) + disp(prod(z0, 1)) + disp(prod(d2, 1)) + disp(prod(z2, 1)) + + disp(prod(d0, 2)) + disp(prod(z0, 2)) + disp(prod(d2, 2)) + disp(prod(z2, 2)) + +// disp(prod(d0, 'r')) +// disp(prod(z0, 'r')) +// disp(prod(d2, 'r')) +// disp(prod(z2, 'r')) + +// disp(prod(d0, 'c')) +// disp(prod(z0, 'c')) +// disp(prod(d2, 'c')) +// disp(prod(z2, 'c')) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_rand.sci b/tests/unit_tests/double/test_rand.sci new file mode 100644 index 00000000..1f82dbab --- /dev/null +++ b/tests/unit_tests/double/test_rand.sci @@ -0,0 +1,14 @@ +function test_rand() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(rand(d0)) + disp(rand(z0)) + disp(rand(d2)) + disp(rand(z2)) + //disp(rand(0,0)) // ! sci2c does not manage [] ! + disp(rand(1,1)) + disp(rand(d0,d0)) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_real.sci b/tests/unit_tests/double/test_real.sci new file mode 100644 index 00000000..102efc3c --- /dev/null +++ b/tests/unit_tests/double/test_real.sci @@ -0,0 +1,11 @@ +function test_real() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(real(d0)) + disp(real(z0)) + disp(real(d2)) + disp(real(z2)) +endfunction diff --git a/tests/unit_tests/double/test_round.sci b/tests/unit_tests/double/test_round.sci new file mode 100644 index 00000000..90e8cf73 --- /dev/null +++ b/tests/unit_tests/double/test_round.sci @@ -0,0 +1,11 @@ +function test_round() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + round(d0); + round(d2); + round(z0); + round(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_sign.sci b/tests/unit_tests/double/test_sign.sci new file mode 100644 index 00000000..eb348e1b --- /dev/null +++ b/tests/unit_tests/double/test_sign.sci @@ -0,0 +1,11 @@ +function test_sign() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sign(d0); + sign(d2); + sign(z0); + sign(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_sin.sci b/tests/unit_tests/double/test_sin.sci new file mode 100644 index 00000000..8d61a42e --- /dev/null +++ b/tests/unit_tests/double/test_sin.sci @@ -0,0 +1,11 @@ +function test_sin() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sin(d0); + sin(d2); + sin(z0); + sin(z2); +endfunction diff --git a/tests/unit_tests/double/test_sinh.sci b/tests/unit_tests/double/test_sinh.sci new file mode 100644 index 00000000..b489ede6 --- /dev/null +++ b/tests/unit_tests/double/test_sinh.sci @@ -0,0 +1,11 @@ +function test_sinh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sinh(d0); + sinh(d2); + sinh(z0); + sinh(z2); +endfunction diff --git a/tests/unit_tests/double/test_sqrt.sci b/tests/unit_tests/double/test_sqrt.sci new file mode 100644 index 00000000..aceecc94 --- /dev/null +++ b/tests/unit_tests/double/test_sqrt.sci @@ -0,0 +1,11 @@ +function test_sqrt() + d0 = %pi + d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(sqrt(d0)); + disp(sqrt(d2)); + disp(sqrt(z0)); + disp(sqrt(z2)); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_st_deviation.sci b/tests/unit_tests/double/test_st_deviation.sci new file mode 100644 index 00000000..f2d0aa6e --- /dev/null +++ b/tests/unit_tests/double/test_st_deviation.sci @@ -0,0 +1,31 @@ +function test_st_deviation() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(st_deviation(d0)) + disp(st_deviation(z0)) + disp(st_deviation(d2)) + disp(st_deviation(z2)) + + disp(st_deviation(d0, 1)) + disp(st_deviation(z0, 1)) + disp(st_deviation(d2, 1)) + disp(st_deviation(z2, 1)) + + disp(st_deviation(d0, 2)) + disp(st_deviation(z0, 2)) + disp(st_deviation(d2, 2)) + disp(st_deviation(z2, 2)) + +// disp(st_deviation(d0, 'r')) +// disp(st_deviation(z0, 'r')) +// disp(st_deviation(d2, 'r')) +// disp(st_deviation(z2, 'r')) + +// disp(st_deviation(d0, 'c')) +// disp(st_deviation(z0, 'c')) +// disp(st_deviation(d2, 'c')) +// disp(st_deviation(z2, 'c')) +endfunction diff --git a/tests/unit_tests/double/test_sum.sci b/tests/unit_tests/double/test_sum.sci new file mode 100644 index 00000000..88b1d456 --- /dev/null +++ b/tests/unit_tests/double/test_sum.sci @@ -0,0 +1,31 @@ +function test_sum() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(sum(d0)) + disp(sum(z0)) + disp(sum(d2)) + disp(sum(z2)) + + disp(sum(d0, 1)) + disp(sum(z0, 1)) + disp(sum(d2, 1)) + disp(sum(z2, 1)) + + disp(sum(d0, 2)) + disp(sum(z0, 2)) + disp(sum(d2, 2)) + disp(sum(z2, 2)) + +// disp(sum(d0, 'r')) +// disp(sum(z0, 'r')) +// disp(sum(d2, 'r')) +// disp(sum(z2, 'r')) + +// disp(sum(d0, 'c')) +// disp(sum(z0, 'c')) +// disp(sum(d2, 'c')) +// disp(sum(z2, 'c')) +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_tanh.sci b/tests/unit_tests/double/test_tanh.sci new file mode 100644 index 00000000..cf9a3650 --- /dev/null +++ b/tests/unit_tests/double/test_tanh.sci @@ -0,0 +1,11 @@ +function test_tanh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + tanh(d0); + tanh(d2); + tanh(z0); + tanh(z2); +endfunction \ No newline at end of file diff --git a/tests/unit_tests/double/test_variance.sci b/tests/unit_tests/double/test_variance.sci new file mode 100644 index 00000000..a5acac33 --- /dev/null +++ b/tests/unit_tests/double/test_variance.sci @@ -0,0 +1,31 @@ +function test_variance() + d0 = 0.2113249 + d2 = [0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + //disp(variance(d0)) + //disp(variance(z0)) + disp(variance(d2)) + disp(variance(z2)) + + //disp(variance(d0, 1)) + //disp(variance(z0, 1)) + disp(variance(d2, 1)) + disp(variance(z2, 1)) + + //disp(variance(d0, 2)) + //disp(variance(z0, 2)) + disp(variance(d2, 2)) + disp(variance(z2, 2)) + +// disp(variance(d0, 'r')) +// disp(variance(z0, 'r')) +// disp(variance(d2, 'r')) +// disp(variance(z2, 'r')) + +// disp(variance(d0, 'c')) +// disp(variance(z0, 'c')) +// disp(variance(d2, 'c')) +// disp(variance(z2, 'c')) +endfunction diff --git a/tests/unit_tests/double/test_zeros.sci b/tests/unit_tests/double/test_zeros.sci new file mode 100644 index 00000000..be4196dd --- /dev/null +++ b/tests/unit_tests/double/test_zeros.sci @@ -0,0 +1,14 @@ +function test_zeros() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(zeros(d0)) + disp(zeros(z0)) + disp(zeros(d2)) + disp(zeros(z2)) + //disp(zeros(0,0)) // ! sci2c does not manage [] ! + disp(zeros(1,1)) + disp(zeros(d0,d0)) +endfunction \ No newline at end of file -- cgit