40 lines
576 B
Mathematica
40 lines
576 B
Mathematica
clear clc
|
|
# Bi section
|
|
pkg load symbolic;
|
|
|
|
|
|
f = @(x) 3*x.^2 - e.^x
|
|
a = 0
|
|
b = 1
|
|
syms x;
|
|
ff = f(x)
|
|
function root = newton(f, x0)
|
|
if abs(f(x0)) < eps
|
|
root = x0;
|
|
return
|
|
endif
|
|
syms x;
|
|
df = diff(f(x));
|
|
ff = function_handle (df);
|
|
x0 = x0 -( f(x0) / deriv(f,x0) )
|
|
newton(f, x0)
|
|
endfunction
|
|
|
|
newton(f, 0.5)
|
|
|
|
function root = secant(f, x0, x1)
|
|
if abs(f(x0)) < eps
|
|
root = x0;
|
|
return
|
|
endif
|
|
syms x;
|
|
df = diff(f(x));
|
|
ff = function_handle (df);
|
|
temp = x1;
|
|
x1 = x1 -( ( f(x1) * (x1 - x0) ) / ( f(x1) - f(x0) ) )
|
|
x0 = temp;
|
|
secant(f, x0,x1)
|
|
endfunction
|
|
secant(f, 1, 0)
|
|
|