Лабораторна робота №12 Побудова графіків функцій в середовищі Delphi
12.1 Мета роботи
Вивчити можливості TeeChart-компонента для побудови графіків функцій (серія Line), створити проект для побудови графіків, що описують точність процесу обробки партії заготовок.
12.2 Початкові дані
Нехай точність обробки партії заготовок (наприклад, з циліндричними шийками) на токарному верстаті описується такими залежностями:
1) систематична зміна у мкм середини поля розсіяння розмірів залежно від часу роботи інструмента Х (хв.) та швидкості різання V (м/хв.)
, (7.1)
де а – коефіцієнт, що характеризує вплив розмірного спрацювання інструмента (мкм/км);
b – коефіцієнт, що характеризує вплив теплового видовження інструмента від часу роботи (мкм);
V – швидкість різання (м/хв.);
Х – час (хв.).
Дану залежність можна подати на Chart-діаграмі у вигляді Line1.
2) випадкова можлива зміна розмірів М (мкм) у кожен момент часу роботи інструмента (незалежна від часу роботи). Вплив випадкових чинників на зміну розмірів можна представити у вигляді двох графіків:
Line2 – верхньої межі можливого розсіяння розмірів; розміщена паралельно відносно і вище від неї на відстані М/2;
Line3 – нижньої межі можливого розсіяння розмірів; розміщена паралельно відносно і вище від неї на відстані М/2;
3) час роботи інструмента обмежений його стійкістю Т. Отже, 0 ≤ Х ≤ Т. На діаграмі стійкість можна показати лінією Line4 (Х = Т);
Між стійкістю Т і швидкістю різання V існує зв’язок
, (7.2)
де Тпоч і Vпоч – початково вибрані параметри Т і V;
m – показник степеня (0,2 ≤ m ≤ 0,4).
Все поле розсіяння розмірів можна представити полем між двома лініями, паралельними осі абсцис:
Line5 – нижньої межі поля розсіяння, яка проходить через точку з найменшим значенням ymin на Line3;
Line6 – верхньої межі поля розсіяння розмірів; проходить через точку з найбільшим значенням ymax на Line2.
Відстань між Line5 та Line6 – поле розсіяння R розмірів за весь час роботи інструмента – це характеристика точності процесу обробки
(7.3)
12.3 Хід роботи
12.3.1 Завантажте середовище візуального програмування Delphi.
12.3.2 Змініть заголовок форми з “Form1” на “Назва роботи. Виконавець”, де “Назва роботи” – це номер та назва даної лабораторної роботи, “Виконавець” – прізвище, ініціали та група студента, який виконує дану роботу.
12.3.3 Збережіть виконану на даний момент форму у своїй особистій папці (попередньо вона вже має бути створена).
12.3.4 Розмістіть на даній формі компонент TChart і задайте його розміри.
12.3.5 Додайте до графіка 6 серій (Series) типу Line (лінія).
12.3.6 В процедурі події OnCreate (створення форми) введіть початкові дані згідно з варіантом.
12.3.7 Для побудови графіків функцій доцільно використати окрему процедуру. Для прикладу наведемо зразок процедури для побудови ліній..
procedure TForm1.DrawLine;
var
i: Integer;
begin
with Series1 do
begin
Сlear;
x:=0;
for i:=1 to n do
begin
y:=a*(1+0.001*v*x-exp(-0.005*v*x))-b*(1-exp(-0.25*x));
AddXY(x, y, FloatToStr(x), clteecolor);
x:=x+h;
end;
end;
with Series2 do
begin
x:=0;
Сlear;
for i:=1 to n do
begin
y:=mv/2+a*(1+0.001*v*x-exp(-0.005*v*x))-b*(1-exp(-0.25*x));
AddXY(x, y, FloatToStr(x), clteecolor);
x:=x+h;
end;
end;
with Series3 do
begin
x:=0;
Сlear;
for i:=1 to n do
begin
y:=-mv/2+a*(1+0.001*v*x-exp(-0.005*v*x))-b*(1-exp(-0.25*x));
AddXY(x, y, FloatToStr(x), clteecolor);
x:=x+h;
end;
end;
with Series4 do
begin
Сlear;
y:= Ymin- mv/ 2- 10;
n:= Trunc((Ymax- y)/ h);
for i:= 0 to n+1 do
begin
AddXY(t,y,FloatToStr(x),clTeeColor);
y:= y+ h;
end;
end;
with Series5 do
begin
x:=0;
Сlear;
for i:=1 to n do
begin
y1:=ymin-mv/2;
AddXY(x, y1, FloatToStr(x), clteecolor);
x:=x+h;
end;
end;
with Series6 do
begin
x:=0;
Сlear;
for i:=1 to n do
begin
y1:=ymax+mv/2;
AddXY(x, y1, FloatToStr(x), clteecolor);
x:=x+h;
end;
end;
end;
Не забудьте оголосити вашу процедуру в розділі оголошення типів type.
12.3.8 Розмістіть на формі кнопку, і задайте для її властивості Caption значення „Нарисувати графіки”.
12.3.9 В процедурі події TForm1.Button1Click запрограмуйте побудову графіків функцій серій Series1 – Series6, для цього в тілі процедури достатньо ввести один рядок – виклик процедури побудови графіків.
procedure TForm1.Button1Click(Sender: TObject);
begin
drawline;
end;
12.3.10 Відредагуйте вигляд TChart за допомогою EditChart:
Змініть заголовок елемента Chart на „Теоретична діаграма точності обробки циліндричної шийки”, змініть тип, колір та розмір шрифта;
перейменуйте назви серій, замінивши їх на назви кривих, змініть шрифт легенди та кольори, вид і товщини кривих;
задайте межі лівої (від -100 до 100) та нижньої (від 0 до 40) шкали осей координат;
задайте крок градуювання: 20 – для лівої осі, 5 – для нижньої;
перемістіть нижню вісь на 0-ординату діаграми;
задайте назви осей („Зміна розмірів у, мкм” – ордината, „Час роботи інструмента” – абсциса), змініть шрифт, його колір та розмір;
задайте фонове градієнтне забарвлення;
задайте розміщення поля діаграми відносно до поля форми;
розмістіть легенду в нижній частині поля діаграми.
12.3.11 Запустіть проект на виконання, покажіть його викладачу.