Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Sashok1996
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
1

Приближенное решение нелинейных уравнений

27.06.2014, 02:18. Просмотров 1247. Ответов 2
Метки нет (Все метки)

На заданном отрезке найти все корни уравнения f(x)=0 с точность ε
http://www.cyberforum.ru/cgi-bin/latex.cgi?{e}^{-x}-3 sin x-0,4=0
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2014, 02:18
Ответы с готовыми решениями:

Решение нелинейных уравнений методом Ньютона. Не выдает результат, когда решение = 0
Есть программа,Решение нелинейных уравнений методом ньютона,но есть проблема,Не выдает результат,...

Решение нелинейных уравнений методом Ньютона
Решить уравнение методом Ньютона. y=log3(x+2)-1 На интервале x0=0 Соблюдая пункты: 1....

Решение нелинейных алгебраических уравнений методом простой итерации
Для нахождения корня используем бесконечный цикл с послеусловием и выходом из цикла с поиощью...

Решение нелинейных уравнений.
найти с точностью 0,001 корни уравнении на указанных отрезках: x5(в пятой степени) - 0,3|x-1| = 0

Решение нелинейных уравнений.
дана такая формула корень из 1 - 0,4х - arcsin х = 0 точность 10 в -3 степени. Что то ни как не...

2
Sashok1996
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
29.06.2014, 23:17  [ТС] 2
решите пожалуйста
0
VSI
Модератор
Эксперт по математике/физике
4231 / 3280 / 1072
Регистрация: 30.07.2012
Сообщений: 9,288
29.06.2014, 23:42 3
Лучший ответ Сообщение было отмечено Sashok1996 как решение

Решение

Держите...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
{Metod Hord}
uses crt;
const e=0.000001;
var a,b,c,x1,x2:real;
function f(arg:real):real;
begin
  f:=exp(-arg)-3*sin(arg)-0.4
end; {function}
function f2(arg:real):real;
begin
  f2:=-exp(-arg)-3*cos(arg)
end; {function}
BEGIN
write('Input a = '); readln(a);
write('Input b = '); readln(b);
if f(a)*f2(a)>0 then
  begin
    x1:=b;
    c:=a
  end
else
  begin
    x1:=a;
    c:=b
  end;
while abs(f(x1))>e do
  begin
    x2:=x1-(f(x1)*(x1-c))/(f(x1)-f(c));
    x1:=x2
  end; {while}
writeln('Rezult = ',x1:10:7);
END.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2014, 23:42

Решение нелинейных уравнений.
Условие задачи: Найти одним из методов с точностью е=0,0001 действительные корни уравнения ( метод...

Решение нелинейных уравнений
Помогите решить линейное уравнение методом половинного деления. На паскале.

Решение нелинейных уравнений методом Ньютона
Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции Зарание спасибо!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.