ject); i: integer; .BottomAxis.Minimum:=- 0.1; .BottomAxis.Maximum:=fi [2 * N + 1] +0.1; .LeftAxis.Minimum:=e [2 * N + 1] - 0.1; .LeftAxis.Maximum:=e [1] + 0.1; i:=1 to 2 * N + 1 do.AddXY(fi[i],w[i],laquo;raquo;,clTeeColor);.AddXY(fi[i],e[i],laquo;raquo;,clTeeColor);.AddXY(fi[i],t[i],laquo;raquo;,clTeeColor);;
MathCad
6. Роздруківка результатів
Малюнок 6.1 - MathCad
Малюнок 6.2 - Delphi
7. Графічне представлення результатів
Малюнок 7.1 - Графічне відображення результатів в середовищі MathCad
Малюнок 7.2 - Результати Delphi
8. Аналіз результатів. Висновки
У ході виконання розрахунків отримали загальні графіки часу прискорення, швидкості в обох середовищах (рис. 8.1). Проаналізувавши їх бачимо, що графіки збігається, що говорить про те, що і в середовищі Delphi, і в середовищі MathCad всі невідомі були знайдені вірно.
Малюнок 8.1 - Результати Delphi
Розгін=1 ф=0,00 w=0,00 e=5,30 t=0,00=2 ф=0,02 w=0,52 e=5,33 t= 0,10=3 ф=0,05 w=0,73 e=5,38 t=0,14=4 ф=0,07 w=0,90 e=5,40 t=0,17=5 ф =0,10 w=1,04 e=5,41 t=0,19=6 ф=0,12 w=1,16 e=5,42 t=0,22=7 ф=0,15 w= 1,27 e=5,43 t=0,24=8 ф=0,17 w=1,37 e=5,43 t=0,26=9 ф=0,20 w=1,47 e=5 , 44 t=0,27=10 ф=0,22 w=1,56 e=5,44 t=0,29=11 ф=0,25 w=1,64 e=5,45 t=0, 31=12 ф=0,27 w=1,73 e=5,45 t=0,32=T [N + 1]=0,33
Гальмування
фт=0,43=13 ф=0,30 w=1,80 e=- 3,80 t=0,33
i=14 ф=0,34 w=1,73 e=- 3,80 t=0,35=15 ф=0,37 w=1,65 e=- 3,80 t=0,38=16 ф=0,41 w=1,56 e=- 3,80 t=0,40=17 ф=0,44 w=1,47 e=- 3,80 t=0, 42=18 ф=0,48 w=1,38 e=- 3,80 t=0,45=19 ф=0,51 w=1,27 e=- 3,80 t=0,47=20 ф =0,55 w=1,16 e=- 3,80 t=0,50=21 ф=0,59 w=1,04 e=- 3,80 t=0,53=22 ф=0,62 w=0,90 e=- 3,80 t=0,57=23 ф=0,66 w=0,74 e=- 3,80 t=0,62=24 ф=0,69 w=0, 52 e=- 3,80 t=0,67=25 ф=0,73 w=0,00 e=- 3,80 t=0,81
Tт=0,47
Малюнок 8.2
Висновок
У ході виконання курсової роботи розробили програму для визначення параметрів обертального руху валу. Також визначили ці параметри за допомогою програмного засобу Mathcad. Були побудовані графіки залежності кута повороту від часу, прискорення і швидкості.
У результаті проведеної роботи видно, що результати розрахунку відповідають досліджуваному процесу:
· швидкість обертання вала в кінці ділянки гальмування дорівнює нулю;
· прискорення при розгоні має позитивне значення, так як вал здійснює прискорений рух;
· прискорення при гальмуванні має від'ємне значення, так як вал здійснює сповільнений рух;
· в точці переходу від прискореного руху до сповільненого значення швидкості максимально;
· функція часу є монотонно зростаючою.
Список використаної літератури
1.Культін Н.Б. Основи програмування в Delphi 7. - СПб .: БХВ .- Петербург, 2011
.Макаров Є.Г. Інженерні розрахунки в MathCad. Навчальний курс.- СПб .: Пітер, 2003 р.
.Марков, Є.П. Програмування в Delphi/П.Г. Дарахвелідае, Є.П. Марков.- СПб .: БХВ-Петербург, 2009 г. - 784 с: ил.
.Нарановіч О.І., скоблю С.Г. Інформатика: методичні вказівки та завдання до лабораторних робіт для студентів 2-го курсу денної форми навчання спеціальностей 40 01 02, 36 01 +03, 36 +01 01. Частина 3. - Барановичі: Баргом, +2005.
5.Пліс А.І., Сливина Н.А. Mathcad математичний практикум.- Москва: Москва Фінанси і статистика, 2013
.Фаронов, В.В. Програмування на мові високого рівня: Підручник для вузів/В.В. Фаронов - СПб .: Питер, 2009 г. - 640 с.
Додаток
Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Math, Chart, XPMan;=class (TForm): TEdit;:TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TMemo ;: TButton ;: TButton ;: TLabel ;: TEdit ;: TButton ;: TChart ;: TLineSeries ;: TLineSeries ;: TLineSeries ;: TXPManifest; Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;
//змінні оголошені глобально
Jo: double;
Mo: double ;: double ;: double ;: integer ;: double;
//----------------: array [1..100] of double;// кут повороту: array [1..100]...
