На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Метод Ньютона Delphi7

Описание программы

Осуществляется решение системы нелинейных алгебраических уравнений (СНАУ) методом Ньютона. С клавиатуры задается начальное приближение и точность решения.

Фрагмент кода из программы:

function Func(x:real):real;
function D_Func( x:real):real;
function Iter_Func(x,nju:real):real;
  implementation

{$R *.dfm}


//-----------------------------------------------------------------------------
function Func(x:real):real; //функция!
begin
   Func:=x*sqr(x)-3*x-2*exp(-x);
end;

//-----------------------------------------------------------------------------
function D_Func(x:real):real;//производная функции!
begin
  D_Func:=3*sqr(x)-3*x+2*exp(-x);
end;

//----------------------------------------------------------------------------
function Iter_Func(x,nju:real):real;
begin
  Iter_Func:=x-nju*Func(x);
end;


//------------------------------------------------------------------------------
// Метод по приведению к результату х2
function NetownsMetod(Interval:TInterval; eps:real; var Result2:real):integer;
var
  x1,x2,Verification:real;
  CountIter:integer;
begin
  x1:=Interval.x1;
  x2:=x1-Func(x1)/D_Func(x1);
  CountIter:=0;
    while abs(x1-x2)>eps do
    begin
      inc(CountIter);
      x1:=x2;
      x2:=x1-Func(x1)/D_Func(x1);
    end;

  Result2:=x2;
  NetownsMetod:=CountIter;
end;

Содержание архива:

Купить 70,00 
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

flappyd

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Тип Название Рейтинг Категория Стоимость
Исходник Игра Домино Delphi7 0 Pascal/Delphi 1 200,00
Исходник Магазин техники Delphi7 + Firebird 0 Базы данных 1 500,00
Исходник Метод Гаммирования на C# 0 .NET (C#) 500,00
Исходник Метод Хилла на C# 0 .NET (C#) 500,00
Исходник Афинный метод на C# 0 .NET (C#) 300,00
Другие работы автора
Новые работы
Тип Название Рейтинг Категория Стоимость
Контрольная Театр (C#, WinForms, Access) new 0 .NET (C#) 1 500,00
Исходник Автошкола (C#, WPF, SQL Server, SQLite) new 0 .NET (C#) 2 500,00
Исходник Программа Парадокс дней рождения Python new 0 Python 700,00
Исходник ИС Налогоплательщики С# + SQL Server new 0 .NET (C#) 2 500,00
Исходник Логическая игра "Бейглз" Python new 0 Python 700,00
Купить

70,00 

Покупается впервые!
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.

Заказать через

Ньютона.zip
210581
Оцени работу

рейтинг

Категории
Метод Ньютона Delphi7
Осуществляется решение системы нелинейных алгебраических уравнений (СНАУ) методом Ньютона. С клавиатуры задается начальное приближение и точность решения.
Категория: Образование
Стоимость: 70,00