1 files changed, 19 insertions, 0 deletions
diff --git a/260/CH4/EX4.15/4_15.sce b/260/CH4/EX4.15/4_15.sce
new file mode 100644
index 000000000..be7e89720
--- /dev/null
+++ b/260/CH4/EX4.15/4_15.sce
@@ -0,0 +1,19 @@
+//Eg-4.15
+//pg-180
+
+clear
+clc
+
+
+//co-efficients of the polynomial
+a=[-6 11 -6 1];
+//one root
+l=1;
+n=4;
+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)
+\ No newline at end of file