blob: e7d9148038fd53d98027729cbdd9530d7541a063 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
function [x]=secant(a,b,f)
N=100; // define max. no. iterations to be performed
PE=10^-4 // define tolerance for convergence
for n=1:1:N // initiating for loop
x=a-(a-b)*f(a)/(f(a)-f(b));
if abs(f(x))<=PE then break; //checking for the required condition
else a=b;
b=x;
end
end
disp(n," no. of iterations =") //
endfunction
|
