Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

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

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

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

Решение нелинейных уравнений методом Ньютона - Pascal
Помогите...плиз...очень...очень...нужно..... уравнение: 2xsinx-cosx=0; Отрезок, содержащий корень: ; Точное значение корня: 0.6533

Решение нелинейных уравнений методом Ньютона - Pascal
решить методом касательных(метод ньютона). на промежутке (1;3) 2*(ln(x))^2+6*ln(x)-5

Решение нелинейных уравнений методом Ньютона. - Pascal
проверьте пожалуйста. непойму в чем ошибка program zadacha; uses Crt; var x0,x1,a,b,e:real; iteraz:integer; function...

Решение нелинейных уравнений методом Ньютона - Pascal
Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции Зарание спасибо!

Решение систем нелинейных уравнений методом Ньютона. - Pascal
ВОт короче такое дело. НУжна прога которая решает систему нелинейных уравнений методом Ньютона. ПРога есть. ВОт: program...

Решение системы нелинейных уравнений методом Ньютона - Pascal
Решить систему методом Ньютона с точностью ε= 0,00001. x=tg(xy)=x2 y=0.5*x2+2*y2=1 Написать программу. В маткаде. Ответы...

2
avast666
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 11
15.11.2012, 13:34  [ТС] #2
никто не может помочь?
0
avast666
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 11
25.11.2012, 03:55  [ТС] #3
а нужно ли менять?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2012, 03:55
Привет! Вот еще темы с ответами:

Системы нелинейных алгебраических уравнений модифицированным методом Ньютона - Pascal
Помогите решить пожалуйста

Метод секущих - Pascal
Добрый день.Подскажите пожалуйста, почему может быть ошибка. Program cek; uses crt; const p=3.14; var a,b,x,eps:real; ...

Решение нелинейных уравнений - Pascal
Помогите решить линейное уравнение методом половинного деления. На паскале.

Решение нелинейных уравнений. - Pascal
найти с точностью 0,001 корни уравнении на указанных отрезках: x5(в пятой степени) - 0,3|x-1| = 0


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

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

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