Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
3 / 0 / 0
Регистрация: 11.10.2013
Сообщений: 21
1

Метод деления отрезка пополам

29.11.2013, 17:21. Просмотров 2514. Ответов 2
Метки нет (Все метки)


Приветствую. Помогите, пожалуйста, решить данную задачу:
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2013, 17:21
Ответы с готовыми решениями:

Метод деления отрезка пополам. Пожалуйста посчитайте количество интераций
У меня то 0, то 1 выходит,а такого быть не может ведь точность взята очень маленькая....

Метод деления отрезка пополам (дихотомии) - Найти минимум функции
Найти минимум функции одной переменной x*x-2*x-2*cos(x) х с точностью 10^(-6) Собственно проблема...

Решить уравнение методом деления отрезка пополам
уравнение arcsin(x)+x-1=0, с погрешностью Е=10^(-6) по математической части знаю, графическим...

Методом деления отрезка пополам решить уравнение
Задание на курсовую работу по информатике Вариант 8 Задание: Методом деления отрезка пополам...

2
3 / 0 / 0
Регистрация: 11.10.2013
Сообщений: 21
29.11.2013, 17:50  [ТС] 2
Методом деления отрезка пополам найти корни уравнения log2 (-x)(x+2) = -1 на отрезке [-8; -1].
0
Модератор
62858 / 46905 / 32327
Регистрация: 18.05.2008
Сообщений: 113,651
29.11.2013, 18:17 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Интервал большой, может быть несколько корней, поэтому будем его разбивать на интервалы, на которых будем искать корень.

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
33
34
35
36
function F(x:real):real;
begin
F:=ln(-x)*(x+2)/ln(2)+1;
end;
function Bisec(a,b,e:real):real;
var x,c:real;
begin
repeat
c:=(a+b)/2;
if F(a)*F(c)<0 then b:=c
else a:=c;
until b-a<e;
Bisec:=(a+b)/2;
end;
 
var x,x1,x2,dx,x11,x12,eps:real;
    i:integer;
begin
x1:=-8;{интервал для поиска корней}
x2:=-1;
dx:=0.1;
eps:=0.0001;
x:=x1;
i:=0;
while x<=x2 do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then
   begin
    i:=i+1;
    writeln('X',i,'=',Bisec(x11,x12,eps):8:5);
   end;
  x:=x+dx;
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2013, 18:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Решить уравнение методом деления отрезка пополам
Решить уравнение методом деления отрезка пополам. Каждый этап решения выводить в файл: sin(1-x)=x...

Методом деления отрезка пополам найти корень уравнения
Методом деления отрезка пополам найти корень уравнения (x-3)cosx-1=0 на отрезке Pascal ABC

Методом деления отрезка пополам (дихотомии) найти корни уравнения
методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 0.001 x^4-18*x^2+6=0 ...

Методом деления отрезка пополам (дихотомии) найти корни уравнения
методом деления отрезка пополам(дихотомии) решить уравнение с точностью до 0.001 (x-2)^2*2^x=1


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

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

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