1 files changed, 14 insertions, 0 deletions
diff --git a/964/CH22/EX22.1/22_1.sce b/964/CH22/EX22.1/22_1.sce
new file mode 100755
index 000000000..c22fee356
--- /dev/null
+++ b/964/CH22/EX22.1/22_1.sce
@@ -0,0 +1,14 @@
+//clc()
+h = [0.8,0.4,0.2];
+I = [0.1728,1.0688,1.4848];
+E = [89.5,34.9,9.5];
+I1 = 4 * I(2) / 3 - I(1) / 3;
+t = 1.640533;
+et1 = t - I1 ;
+Et1 = et1 * 100/t;
+disp("%",Et1,"Error of the improved integral for segment 1 and 2 = ")
+I2 = 4 * I(3) / 3 - I(2) / 3;
+et2 = t - I2 ;
+Et2 = et2 * 100/t;
+disp("%",Et2,"Error of the improved integral for segment 4 and 2 = ")
+