1 files changed, 21 insertions, 0 deletions
diff --git a/260/CH4/EX4.16/4_16.sce b/260/CH4/EX4.16/4_16.sce
new file mode 100644
index 000000000..7952ea328
--- /dev/null
+++ b/260/CH4/EX4.16/4_16.sce
@@ -0,0 +1,21 @@
+//Eg-4.16    
+//pg-182
+
+clear
+clc
+
+
+//co-efficients of the polynomial
+a=[6.3825 -21.52 21.26 -8 1];
+//one root
+l=3.7;
+n=5;
+for i=n-2:-1:1
+    b(n-1)=a(n);
+    b(i)=b(i+1)*l+a(i+1)
+end
+
+fdef=poly(b,'x','c');
+disp(fdef)
+printf('\nOr\n    The coefficient matrix is \n')
+disp(b)
+\ No newline at end of file