1 files changed, 14 insertions, 0 deletions
diff --git a/1670/CH5/EX5.5/5_5.sce b/1670/CH5/EX5.5/5_5.sce
new file mode 100755
index 000000000..b1ccca848
--- /dev/null
+++ b/1670/CH5/EX5.5/5_5.sce
@@ -0,0 +1,14 @@
+//Example 5.5
+//Finite Differences
+//Page no. 132
+clc;close;clear;
+printf('   x\t f(x)\tdf(x)\t    d2f(x)\td3f(x)\t        d4f(x)\n')
+printf('------------------------------------------------------------------------------------------')
+x=[0,1;1,3;2,9;3,poly(0,"y3");4,81]
+for i=3:6
+    for j=1:7-i
+        x(j,i)=x(j+1,i-1)-x(j,i-1)
+    end
+end
+disp(x)
+disp(roots(x(1,6)),"y3 = ")
+\ No newline at end of file