Octave / task6

f1 = @(x)(x .* x .- log(x));
f2 = @(x)(x .* x + log(x) .- 4);

x1 = [0:0.01:10];
subplot(1, 2, 1);
plot(x1, f1(x1), 'r');
axis([-5, 5, -5, 10])
grid on
xlabel('Ox')
ylabel('Oy')
title('График функции 13')

subplot(1, 2, 2);
x2 = [0:0.01:10];
plot(x2, f2(x2), 'r');
axis([-10, 10, -15, 10])
grid on
xlabel('Ox')
ylabel('Oy')
title('График функции 17')

display("Решение уравнения 13 методом бисекций:");
x = fun1(f1, 1, 2, 0.001)
display("Решение уравнения 17 методом хорд:");
x = fun2(f2, 1, 2, 0.001)

#display("Решение уравнения 13 функцией fzero");
#[X, FVAL, INFO, OUTPUT] = fzero(f1, [1 2])
display("Решение уравнения 17 функцией fzero");
[X, FVAL, INFO, OUTPUT] = fzero(f2, [1 2])
display("Решение уравнения 13 функцией fsolve");
[X, FVAL, INFO, OUTPUT] = fsolve(f1, -5)
display("Решение уравнения 17 функцией fsolve");
[X, FVAL, INFO, OUTPUT] = fsolve(f2, 1)