Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 17, средняя оценка - 4.94
avast666
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 11
#1

Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих) - Pascal

12.11.2012, 15:20. Просмотров 2164. Ответов 2
Метки нет (Все метки)

имеется исходник программы для решения методом Ньютона (метод касательных), требуется видоизменить для получения исходника под модифицированый метод Ньютона (метод секущих) - что именно и на что?

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
37
program Nyton;
uses crt;
var h,a,b,e,f,f2,x,f1: real;
function d(x:real):real;
begin
d:=3*sqr(ln(x))+6*ln(x)-5;
end;
function d1(x:real):real;
begin
d1:=(D(x+e)-D(x))/E;
end;
function d2(x:real):real;
begin
d2:=(D1(x+e)-D1(x))/e;
end;
begin
clrscr;
writeln ('Vvedite a');
readln(a);
writeln ('Vvedite b');
readln(b);
writeln ('vvedite e');
readln(e);
f:=d(b);
f2:=d2(b);
if (f*f2)>0 then x:=b else x:=a;
repeat
f:=d(x);
f1:=d1(x);
h:=f/f1;
x:=x-h;
until abs(h)<=e;
f:=d(x);
writeln('x=',x:6:4);
writeln ('f=',f:6:4);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.11.2012, 15:20     Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)
Посмотрите здесь:

Решение нелинейных уравнений методом Ньютона Pascal
Решение нелинейных уравнений методом Ньютона. Pascal
Решение систем нелинейных уравнений методом Ньютона. Pascal
Turbo Pascal Решение системы нелинейных уравнений методом Ньютона
Turbo Pascal Решение нелинейных уравнений методом секущих.
Решение нелинейных уравнений методом Ньютона Pascal
Решение систем нелинейных уравнений, Метод Ньютона и Метод Зейделя Turbo Pascal
Free Pascal Решение нелинейных уравнений методом Ньютона. Не выдает результат, когда решение = 0
Решение нелинейных уравнений методом Ньютона Free Pascal
Решение системы нелинейных уравнений методом Ньютона Pascal ABC
PascalABC.NET Решение нелинейных уравнений методом Ньютона
Решение системы нелинейных уравнений методом Ньютона Pascal

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
avast666
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 11
15.11.2012, 13:34  [ТС]     Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих) #2
никто не может помочь?
avast666
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 11
25.11.2012, 03:55  [ТС]     Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих) #3
а нужно ли менять?
Yandex
Объявления
25.11.2012, 03:55     Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)
Ответ Создать тему
Опции темы

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