1 files changed, 23 insertions, 0 deletions
diff --git a/260/CH4/EX4.14/4_14.sce b/260/CH4/EX4.14/4_14.sce
new file mode 100644
index 000000000..8785b761b
--- /dev/null
+++ b/260/CH4/EX4.14/4_14.sce
@@ -0,0 +1,23 @@
+//Eg-4.14
+//pg-179
+
+clear
+clc
+
+deff('[z]=f(x)','z=4*x^3+3*x^2+2*x+1');
+
+
+deriv=0;
+a=[1 2 3 4];
+F5=feval(5,f);
+F=a(4);
+x=5;
+for i=1:3
+    deriv=deriv*x+F;
+    F=F*x+a(4-i);
+end
+
+
+
+printf('The value of the function at x = 5 is %f\n',F5)
+printf(' The value of the derivative of the function at x = 5 is %f\n',deriv)