From 3ac81c6a74034e353daf825672119a4266b834c4 Mon Sep 17 00:00:00 2001
From: torset
Date: Thu, 26 Feb 2009 14:12:15 +0000
Subject: Add some Sci2C tests

---
 .../mainfunctionCeil_Fix_Floor_Int_Round.sci       | 48 ++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 src/Scilab2C/SCI2CTests/Mes_tests/elementary Functions/mainfunctionCeil_Fix_Floor_Int_Round.sci

(limited to 'src/Scilab2C/SCI2CTests/Mes_tests/elementary Functions')

diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/elementary Functions/mainfunctionCeil_Fix_Floor_Int_Round.sci b/src/Scilab2C/SCI2CTests/Mes_tests/elementary Functions/mainfunctionCeil_Fix_Floor_Int_Round.sci
new file mode 100644
index 00000000..a5930c21
--- /dev/null
+++ b/src/Scilab2C/SCI2CTests/Mes_tests/elementary Functions/mainfunctionCeil_Fix_Floor_Int_Round.sci	
@@ -0,0 +1,48 @@
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+function mainfunction()
+
+
+// test ceil/fix/floor/int/round
+
+disp(ceil(4.2))
+disp(fix(4.2))
+disp(floor(4.2))
+disp(int(4.2))
+disp(round(4.2))
+
+disp(ceil(-4.2))
+disp(fix(-4.2))
+disp(floor(-4.2))
+disp(int(-4.2))
+disp(round(-4.2))
+
+
+disp(ceil(4.2 - 2.5*%i))
+disp(fix(4.2 - 2.5*%i))
+disp(floor(4.2 - 2.5*%i))
+disp(int(4.2 - 2.5*%i))
+disp(round(4.2 - 2.5*%i))
+
+disp(ceil(-4.2 + 2.5*%i))
+disp(fix(-4.2 + 2.5*%i))
+disp(floor(-4.2 + 2.5*%i))
+disp(int(-4.2 + 2.5*%i))
+disp(round(-4.2 + 2.5*%i))
+
+a=[12.5 1.3 1.74 ; -2.4 -3.8 1.000001 ; 1.23 1.99999 0.035; 0 2 -4.5];
+
+disp(ceil(a))
+disp(fix(a))
+disp(floor(a))
+disp(int(a))
+disp(round(a))
+
+b=a+[1.2 3.8 -3.9; 7 2.7 1.5; 0 -9.5 2.0001; 2.35 -1. 5.49]*%i;
+disp(ceil(b))
+disp(fix(b))
+disp(floor(b))
+disp(int(b))
+disp(round(b))
+
+endfunction
-- 
cgit