Условие задачи
Найти наименьший по абсолютной величине корень уравнения с точностью 0,00001.
Расчёт заканчивается, когда Результаты записываем в текстовый файл в виде таблицы:
В отчёт вставляются условие задания, формулы для расчёта, текст программы для SciLab, график и таблица.
Ответ
clear; clc;
// Функция
function f=f(x)
f = cos(%pi/3*x) - x^(-1);
endfunction
// Первая производная
function f1=f1(x)
f1 = -%pi/3*sin(%pi/3*x) + x^(-2);
endfunction
// Вторая производная
function f2=f2(x)
f2 = -%pi^2/9*cos(%pi/3*x) - 2*x^(-3);
endfunction
// Строим график
x = [-5:0.01:-1];
y = f(x)
plot(x, y);
xgrid();
a = input('Введите левую границу интервала: ');
b = input('Введите правую границу интервала: ');
eps = 0.00001;
k = 0;
fd = mopen("data.txt","wt");
printf("k\ta\t\tb\t\t|b-a|\t\tf(a)\t\tf(b)\t\tf1(b)\n");
printf("%2d\...