Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

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

Код 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.
12.11.2012, 15:20
AdAgent
Объявления
15.11.2012, 13:34  [ТС]   #2
avast666
Новичок
Регистрация: 12.11.2012
Сообщений: 11
Репутация: 0 (0)
Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)

никто не может помочь?
Другие темы раздела
Pascal в матрице А [М * N] найти сумму крупнейших элементов столбцов матрицы
в матрице А найти сумму крупнейших элементов столбцов матрицы помогите пожалуйста на завтра нужна
Олимпиада по информатике: Что выводит на экран фрагмент программы, приведенный ниже? Pascal
Что выводит на экран фрагмент программы, приведенный ниже? for i:=1 to N do if i=1 then x:=A else if x<A then x:=A; writeln(x); Выберите один ответ. минимальное значение элементов массива количество положительных элементов массива
25.11.2012, 03:55  [ТС]   #3
avast666
Новичок
Регистрация: 12.11.2012
Сообщений: 11
Репутация: 0 (0)
Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих) / Pascal (Паскаль)

а нужно ли менять?
25.11.2012, 03:55
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Matlab: Решение нелинейных уравнений (НУ), метод Ньютона
Выдает ошибку и ничего не решается , помогите,пожалуйста,завтра сдавать уже:( function = newton(f,df,tx) x0 = tx(1); % нижняя граница интервала x1 = tx(2); % верхняя граница интервала F = inline(f); % определяем функцию DF = inline(df); % определяем производную e = 1e-5; % Погрешность %...
Matlab Aннa1405 11.06.2014 21:09
Метод Ньютона (Метод касательных) для решения нелинейных уравнений - Численные методы
Преподаватель дал задание: Реализовать метод ньютона для решения нелинейных уравнений. Пробежался по литературе, реализовал метод. НО Почему у метода такие жёсткие условия сходимости? к примеру f(x)' и f(x)'' не должны менять знака. т.е. функции sin и cos методом уже не вычислить. Подскажите для...
Численные методы Yazu 24.12.2013 17:40
C++: Система нелинейных уравнений. Метод ньютона
Всем привет . Хотел попросить чтоб скинули код для решения Системы нелинейного уравнения с помощью метода Ньютона , срочно нужно до завтра. Помогите)
С++ для начинающих arsikkk 05.11.2013 16:24
Turbo Pascal: Решение систем нелинейных уравнений, Метод Ньютона и Метод Зейделя
Ребята пожалуйста помогите с решением Слау Методом Ньютона и Зейделя. Ньютона я пытался набросать, ну что-то делаю не правильно, помогите пожалуйста. Program Newton; const eps = 0.00001; var x0,x,x1,x2: real; Function f(x: real): real; begin f:=2*x-sin(0.5*(x-x2));
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 f2(x:real;y:real):real;//уравнение 2 begin f2:=((x*x)-(y*y)+2)/5;
Pascal ABC Щелыгин Артём 26.02.2013 16:35
Опции темы

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

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