Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Matlab Решение нелинейных уравнений (НУ), метод Ньютона
Выдает ошибку и ничего не решается , помогите,пожалуйста,завтра сдавать уже:( function = newton(f,df,tx) x0 = tx(1); % нижняя граница интервала x1 = tx(2); % верхняя граница интервала F =...
Matlab Aннa1405 11.06.2014 21:09
Метод Ньютона (Метод касательных) для решения нелинейных уравнений
Преподаватель дал задание: Реализовать метод ньютона для решения нелинейных уравнений. Пробежался по литературе, реализовал метод. НО Почему у метода такие жёсткие условия сходимости? к примеру f(x)'...
Численные методы Yazu 24.12.2013 17:40
C++ Система нелинейных уравнений. Метод ньютона
Всем привет . Хотел попросить чтоб скинули код для решения Системы нелинейного уравнения с помощью метода Ньютона , срочно нужно до завтра. Помогите)
С++ для начинающих arsikkk 05.11.2013 16:24
Turbo Pascal Решение систем нелинейных уравнений, Метод Ньютона и Метод Зейделя
Ребята пожалуйста помогите с решением Слау Методом Ньютона и Зейделя. Ньютона я пытался набросать, ну что-то делаю не правильно, помогите пожалуйста. Program Newton; const eps = 0.00001; var...
Turbo Pascal Noobsprog 18.04.2013 14:12
Pascal ABC Решение систем нелинейных уравнений(метод простой итерации,метод Ньютона)
uses crt; var d1,d2,e,x,y,u1,u2:real; //----------------------------- function f1(x:real;y:real):real;//уравнение 1 begin f1:=((x*x)+(y*y)+1)/5; end; function...
Pascal ABC Щелыгин Артём 26.02.2013 16:35
Pascal Исправить ошибку в решении системы нелинейных уравнений. Метод Ньютона.
PROGRAM KURSOVOY_PROEKT; uses crt; VAR P:ARRAY OF REAL; X1,X2,X3,E: REAL; K,N,m,i:INTEGER; PROCEDURE F(X1,X2,X3,F1,F2,F3:REAL); VAR R1,R2,R3,R,Q:REAL; BEGIN F1:=P; F2:=0; F3:=F2;
Pascal (Паскаль) sashechyshka 26.05.2010 00:21
Pascal Решить систему нелинейных уравнений. метод Ньютона
Помогите найти ошибку!!! program course2; uses crt; const n=5; Nn=10; function Nuton(p: array of real ;n : integer; x: array of real; Xx: real):real; var s:real;
Pascal (Паскаль) sashechyshka 22.05.2010 00:28
Pascal Решить систему нелинейных уравнений. метод Ньютона
Здравствуйте! Помогите пожалуйсто сделать программу, очень срочно нужно. Нужно решить систему нелинейных уравнение методом Ньютона! вот файл, где даны исходные данные в виде системы ур-ий.
Pascal (Паскаль) sashechyshka 17.05.2010 03:01
Опции темы

Текущее время: 22:03. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.