1 files changed, 25 insertions, 0 deletions
diff --git a/413/CH4/EX4.1/Table_4_1.sce b/413/CH4/EX4.1/Table_4_1.sce
new file mode 100644
index 000000000..709546706
--- /dev/null
+++ b/413/CH4/EX4.1/Table_4_1.sce
@@ -0,0 +1,25 @@
+clc
+clear
+
+function a=eco4(x)
+    a=1.000043+x+x.*x.*0.499219+x.*x.*x/6+x.*x.*x.*x.*0.043750
+endfunction
+function a=eco5(x)
+    a=1.000043+x+x.*x.*0.499219+x.*x.*x/6+x.*x.*x.*x.*0.043750+x.*x.*x.*x.*x/120
+endfunction
+function a=mac4(x)
+    a=1+x+x.*x/2+x.*x.*x/6+x.*x.*x.*x/24
+endfunction
+function a=mac5(x)
+    a=1+x+x.*x/2+x.*x.*x/6+x.*x.*x.*x/24+x.*x.*x.*x.*x/120
+endfunction
+function a=mac6(x)
+    a=1+x+x.*x/2+x.*x.*x/6+x.*x.*x.*x/24+x.*x.*x.*x.*x/120+x.*x.*x.*x.*x.*x/720
+endfunction
+function out=tab4(y)   
+out=[y,exp(y),mac6(y),mac5(y),mac4(y),eco5(y),eco4(y)]
+
+endfunction
+for y=0:0.2:1
+disp(tab4(y))
+end
+\ No newline at end of file