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

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

Похожие темы
Тема Автор
С++ для начинающих Метод Ньютона для систем нелинейных уравнений
помогите пожалуйста написать прогу решающую систему уравнений методом Ньютона система такая: x*y=9 1/2*x+y=10 Есть такой вот код, но в нем где-то ошибка, немогу найти. В коду х и у заменены на р1 и р2 соответственно. Заранее спасибо. program newton; uses
Tamposhka
Matlab Метод Ньютона для нелинейных систем уравнений.
Здравствуйте, я здесь первый раз поэтому не судите строго если что не так.Помогите пожалуйста написать программу в матлабе Метод Ньютона,для нелинейных систем уравнений,сделанную по алгоритму и с комментариями.Заранее благодарна
235
MathCAD метод ньютона,решения нелинейных уравнений в matlab'e
у вас есть примера задачи решение нелинейных уравнений в matlab'e Добавлено через 4 минуты пожалуста помагите Добавлено через 2 минуты на метод ньютона
Baktybai
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;
sashechyshka
Pascal (Паскаль) Решить систему нелинейных уравнений. метод Ньютона
Здравствуйте! Помогите пожалуйсто сделать программу, очень срочно нужно. Нужно решить систему нелинейных уравнение методом Ньютона! вот файл, где даны исходные данные в виде системы ур-ий.
sashechyshka
Опции темы

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

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