1 files changed, 14 insertions, 0 deletions
diff --git a/413/CH4/EX4.4/Table_4_4.sce b/413/CH4/EX4.4/Table_4_4.sce
new file mode 100644
index 000000000..d261a1ed8
--- /dev/null
+++ b/413/CH4/EX4.4/Table_4_4.sce
@@ -0,0 +1,14 @@
+clc
+clear
+function a=pade(x)
+    a=(x+7*x.*x.*x/9 +64*x.*x.*x.*x.*x/945)/(1+10*x.*x/9 +5*x.*x.*x.*x/21)    
+endfunction
+function a=mac(x)
+    a=x-x.*x.*x/3+x.*x.*x.*x.*x/5-x.*x.*x.*x.*x.*x.*x/7+x.*x.*x.*x.*x.*x.*x.*x.*x/9
+endfunction
+function out=tab4(y)   
+out=[y,atan(y),pade(y),atan(y)-pade(y),mac(y),atan(y)-mac(y)]
+endfunction
+for y=0.2:0.2:1
+disp(tab4(y))
+end
+\ No newline at end of file