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

Метод Ньютона 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

/ /

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

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

Только зарегистрированые пользователи имеют возможность комментировать работы
Другие работы автора
Новые работы
Тип Название Рейтинг Категория Стоимость
Диплом Разработка Telegram-бота для колледжа АГУ (Python) new 0 Python 10 000,00
Исходник Учёт товаров (Python, Tkinter, Sqlite) new 0 Python 3 000,00
Курсовая АИС "Авиакасса" (C#, WPF, WinForms, SQLite, SQL Server, Access) new 0 .NET (C#) 5 500,00
Курсовая Курсовая работа разработка мобильных приложений "FTP клиент для Android" new 0 Сетевые протоколы 6 500,00
Исходник Транспонирование матрицы new 0 .NET (C#) 150,00
Купить

70,00 

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

рейтинг

Поделись работой с друзьями

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