summaryrefslogtreecommitdiff
path: root/260/CH4/EX4.8
diff options
context:
space:
mode:
Diffstat (limited to '260/CH4/EX4.8')
-rw-r--r--260/CH4/EX4.8/4_8.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/260/CH4/EX4.8/4_8.sce b/260/CH4/EX4.8/4_8.sce
new file mode 100644
index 000000000..f310fb243
--- /dev/null
+++ b/260/CH4/EX4.8/4_8.sce
@@ -0,0 +1,23 @@
+//Eg-4.8
+//pg-155
+
+clear
+clc
+
+
+// Newton Raphson Method
+
+A=[6 -5 1];
+x1=0.2;
+x2=4;
+fx=poly(A,'x','c');
+B=[-5 2];
+diffx=poly(B,'x','c');
+for i=1:6
+ printf('\niteration number %i\n',i-1);
+ xnew1=x1-horner(fx,x1)/horner(diffx,x1);
+ xnew2=x2-horner(fx,x2)/horner(diffx,x2);
+ printf('xnew1 = %f \nxnew2=%f\n',x1,x2);
+ x1=xnew1;
+ x2=xnew2;
+end \ No newline at end of file