Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
avast666
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 11
12.11.2012, 15:20     Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих) #1
имеется исходник программы для решения методом Ньютона (метод касательных), требуется видоизменить для получения исходника под модифицированый метод Ньютона (метод секущих) - что именно и на что?

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
Turbo Pascal Решение нелинейных уравнений методом секущих.
Решение нелинейных уравнений методом Ньютона Pascal
Free Pascal Решение нелинейных уравнений методом Ньютона. Не выдает результат, когда решение = 0
Решение нелинейных уравнений методом Ньютона Free Pascal
Решение системы нелинейных уравнений методом Ньютона Pascal ABC
PascalABC.NET Решение нелинейных уравнений методом Ньютона

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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     Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)
Ответ Создать тему
Опции темы

Текущее время: 06:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru