5. Розрахунки в математичному пакеті Mat lab
У математичному пакеті за умовою завдання був побудований графік функції і знайдений корінь рівняння з використанням символьного рішення і в чисельному вигляді використовуючи вбудовані функції. Для опису функції створений m-файл функції.
На наступному малюнку представлений графік функції:
Для запису команд використаний m-файл:
У командному вікні були отримані наступні результати:
tochnoe=0.56226=0.5555=0.5691=0.5623=0.5623
6. Звіт про результати обчислення наближеного значення кореня рівняння в MS Excel
У MS Excel було проведено розрахунок наближеного значення кореня рівняння.
Інтерфейс програми:
Графік рівняння:
Коріння, отримані в excel:
. Опис додатка створеного в середовищі Delphi
При створенні програми в середовищі Delphi в інтерфейсі був передбачений висновок виду функції і графіка. Знаходження кореня рівняння інтеграла було реалізовано з використання трьох методів: методу правих і лівих прямокутників, методу трапецій і методу Сімпсона. На відміну від розрахунку в Excel, де коріння перебували, у програмі передбачено введення точності обчислення користувачем. Результати розрахунку виводяться, як у вікно програми, так і в текстовий файл.
8. Блок - схеми, що реалізують чисельні методи
Блок-схема для методу правих прямокутників:
Блок-схема для методу лівих прямокутників
Блок-схема для методу трапецій
Блок-схема методу Сімпсона:
9. Лістинг програми
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Math, AxCtrls, OleCtrls, VCF1, ExtCtrls, TeeProcs ,, Chart, Menus, Series, OleCtnrs; =class (TForm): TButton ;: TButton ;: TEdit ;: TButton ;: TEdit; Book1: TF1Book ;: TEdit ;: TButton ;: TLabel ;: TLabel ;: TLabel ;: TChart ;: TEdit ;: TButton ;: TLineSeries ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TLabel ;: TOleContainer; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject) ; N1Click (Sender: TObject); N2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;, b, h, s, x, e: real;, j, n: integer;: text;: string;
{$ R * .dfm} integral (x: real): real;:=1/sqrt (power (x, 2) + 2 * x + 2) ;; methlev;:=( ba)/(n - 1);:=0;:=0; abs (s) lt; e doi:=2 to n do:=x + h;:=s + integral (x) * h ;;; methpr;:=(ba)/n;:=0;:=0; abs (s) lt; e doi:=1 to n do:=s + integral (x) * h;:=x + h ;; ; methtr;, sb: real;:=(ba)/n;:=0;:=0; abs (s) lt; e doi:=1 to n do:=integral(x);:=integral(x+h);:=s+h*(sa+sb)/2;:=x+h;;;meths;,sb,sh:real;:=(b-a)/n;:=0;:=0;abs(s)lt;e doi:=1 to n do:=integral (x);:=integral (x + h);:=s + (2 * sa + sb) * h/3;:=x + h ;;; TForm1.Button1Click ( Sender: TObject);:=StrToInt(Form1.Edit1.Text);:=StrToFloat(Form1.Edit2.Text);:=StrToFloat(Form1.Edit3.Text);:=StrToFloat(Edit4.Text);;Book1.textRC[1,1]:= Method raquo ;; Book1.textRC [1,2]:= levix raquo ;; Book1.textRC [2,1]:= S= raquo ;; Book1.numberRC [2,2]:=s ;; TForm1.Button2Click (Sender: TObject);:=StrToInt(Edit1.Text);:=StrToFloat(Edit2.Text);:=StrToFloat(Edit3.Text);:=StrToFloat(Edit4.Text);;Book1.textRC[1,3]:=laquo;pravixraquo;;Book1.numberRC[2,3]:=s;;TForm1.Button3Click(Sender: TObject);:=StrToInt(Edit1.Text);:=StrToFloat(Edit2.Text);:=StrToFloat(Edit3.Text);:=StrToFloat(Edit4.Text);;Book1.textRC[1,4]:=laquo;trapeziiraquo;;Book1.numberRC[2,4]:=s;;TForm1.Button5Click(Sender: TObject);:=StrToInt(Edit1.Text);:=StrToFloat(Edit2.Text);:=StrToFloat(Edit3.Text);:=StrToFloat(Edit4.Text);;Book1.textRC[1,5]:=laquo;sumpsonaraquo;;Book1.numberRC[2,5]:=s;;TForm1.Button4Click(Sender: TObject);y:real;.Chart1.Series[0].Clear;:=StrToInt(Edit1.Text);:=StrToFloat(Edit2.Text);:=StrToFloat(Edit3.Text);:=StrToFloat(Edit4.Text);:= (ba)/n;:=a; .Series [0] .AddXY (x, y, , clRed); i:=1 to n do begin:=x + h;:=integral (x) ; .Series [0] .AddXY (x, y, , clRed) ;;; TForm1.N1Click (Sender: TObject) ;;; TForm1.N2Click (Sender: TObject); (f, Коріння ); (f); i:=1 to n do begin:= raquo ;; j:=1 to n do str:=str + F1Book1.TextRC [i, j] + raquo ;; (f, str) ;; (f);
end;.
. Зображення вікна програми
Початковий інтерфейс ...
