diff options
Diffstat (limited to '845/CH2/EX2.6/Ex2_6.sce')
-rwxr-xr-x | 845/CH2/EX2.6/Ex2_6.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/845/CH2/EX2.6/Ex2_6.sce b/845/CH2/EX2.6/Ex2_6.sce new file mode 100755 index 000000000..e6b8f27e3 --- /dev/null +++ b/845/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,23 @@ +//Example 2.6
+clc
+clear
+
+function f = fun6(x)
+ f = 1./ sqrt(x+1);
+endfunction
+
+tol = 1e-4;
+maxit = 6;
+xold = 1;
+iter = 1;
+while(1)
+ xnew = fun6(xold);
+ EA = abs(xnew - xold);
+ if EA < tol | iter > maxit then
+ break
+ end
+ xold = xnew;
+ iter = iter + 1;
+end
+root = round(xnew*10^4) / 10^4; //rounded to 4 decimal places
+disp(root,"root = ")
|