Методы одномерной оптимизации: объединить метод Свена и метод половинного деления

06.12.2016, 01:02. Показов 1006. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Здравствуйте. Кому не сложно, помогите, пожалуйста, соединить метод Свена и метод Половинного деления в одну программу. Заранее огромное спасибо
Вот код метода Свена:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program l1;
const e=0.000001; 
a, b, x:real;
function f(x:real):real;
begin
f:=sqr(x)*(x-2)*(x+1);
end;
procedure sven;
var h, f0, f1, f2, x:real;
begin
h:=0.0001;
readln(x);
repeat
f0:=f(x-h);
f1:=f(x);
f2:=f(x+h);
if(f0<=f1)and(f1<=f2) then h:=-h;
x:=x+2*h;
until (f0>=f1)and(f1<=f2);
a:=x-h;
b:=x+h;
writeln('a=', a:10:5, 'b=',b:10:5);
end;

И метод половинного деления:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a,b,c,x,e:real;
begin
clrscr;
writeln('Найти корень уравнения ');
a:=0;
b:=1;
repeat
c:=(a+b)/2;
if F(a)*F(c)<=0 then b:=c
else a:=c;
until b-a<e;
x:=(a+b)/2;
writeln('x=',x:0:3);
readln
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

06.12.2016, 01:02

Ответы с готовыми решениями:

Объединить 2 задачи в одну. Отделение корней и метод половинного деления
Нужно объединить две задачи в одну. Первая задача Отделение корней, а вторая задача методом половинного деления. Результат должен выводить...

Численные методы. Метод половинного деления
Нужно различными числовыми методами найти корень функции tan(0.3x+0.4)=x^2 Вопрос скорее всего больше математического характера, но...

Численные методы решения уравнений- метод половинного деления
Здравствуйте. Мне был дан проект на тему - "Численные методы решения уравнений". Есть исходные данные к проекту - "Линейное...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

06.12.2016, 01:02

Помогаю со студенческими работами здесь

Численные методы решения нелинейных уравнений:метод половинного деления
Всем привет! заголовок-тема курсовой. подскажите хотябы с чего начинать?

Численные методы решения нелинейных уравнений: метод половинного деления
Здравствуйте. У меня вот такой вопрос, возможно ли сделать так, чтобы можно было бы вводить уравнения произвольно через edit? на подобии...

Численые методы решения нелинейных уравнение: метод половинного деления
procedure TForm1.Button1Click(Sender: TObject); var a,b,e,c,x: Extended; function f(x: Extended): Extended; begin ...

Численные методы решения нелинейных уравнений:метод половинного деления(График)
Дали делать курсач по методу половинного деления. Все написал а график не знаю как. Помогите пожалуйста

Метод хорд, метод касательных, метод половинного деления
Ребят помогите пожалуйста. Задали тему курсовой "Решение нелинейных уравнений (метод хорд, метод касательных, метод половинного...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

Наверх