Форум программистов, компьютерный форум 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.
AdAgent
Объявления
12.11.2012, 15:20    Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.11.2012, 15:20    Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)

Посмотрите здесь:

Pascal Решение нелинейных уравнений методом Ньютона

Pascal Решение нелинейных уравнений методом Ньютона.

Pascal Решение систем нелинейных уравнений методом Ньютона.

Turbo Pascal решение системы нелинейных уравнений методом Ньютона

Turbo Pascal Решение нелинейных уравнений методом секущих.

Turbo Pascal Метод простых итераций для систем нелинейных уравнений

Pascal Решение нелинейных уравнений методом Ньютона

Pascal ABC решение нелинейной системы методом простых итераций и решение системы нелинейных уравнений методом Ньютона

Turbo Pascal Решение систем нелинейных уравнений, Метод Ньютона и Метод Зейделя

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

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

Текущее время: 18:25. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.