Пример выполнения задания. Задание к лабораторной работе

Пример выполнения задания

Задача.Построить график зависимости скорости от времени для задачи из лабораторной работы №1. Объяснить график. Определить по нему конечное значение скорости.

Мы хотим наблюдать на экране график так, чтобы он занимал всю форму. Поскольку нужно будет еще вводить исходные данные, создадим приложение с двумя формами. На первой форме будут располагаться поля ввода исходных данных, на второй – график. График расположим непосредственно на форме, появляться он будет при наступлении события «Прорисовка формы». Роль аргумента играет время , роль функции – скорость. Поскольку обе величины принимают только неотрицательные значения, расположим начало координат в левом нижнем углу формы. На форме должны быть изображены и подписаны координатные оси.

Текст процедуры- обработчика события OnPaint компонента Form2:

procedure TForm2.FormPaint(Sender: TObject);

var Hor,Ver:integer; // горизонтальный и вертикальный

                      отступ от краев формы

x0,y0://начало координат

x,y:// текущие координаты точки

Mx,My:real;//горизонтальный и вертикальный масштабы

Begin

// расчет расположения графика на форме

Hor:=10;Ver:=15; x0:=Hor; y0:=Form2.Height-Ver;

Mx:=Form2.Width/16;// ширину формы делим на tmax My:=Form2.Height/63;// высоту формы- на Vmax

with Canvas do begin

Pen.Color:=clBlack; Pen.Width:=2

//горизонтальная ось

MoveTo(X0,Y0);LineTo(Form2.Width-Hor,Y0); TextOut(Form2.Width-Hor,Y0-2,'t');

//вертикальная ось

MoveTo(X0,Y0);LineTo(X0,Ver); TextOut(X0-5,Ver,'v');   

//начальные значения

v:=0;t:=0;h:=h0; c:=0.40;S:=pi*r*r;

//коэффициенты силы сопротивления

k1:=6*pi*mu*r; k2:=0.5*S*c*ro;

Pen.Color:=clRed; // цвет пера - красный

MoveTo(x0,y0); // перо- в начало координат

//цикл построения графика до раскрытия парашюта

repeat

h:=h-v*dt;

v:=v+(m*g-k1+v-k2*v*v)/m*dt; // изменение t,h и v

t:=t+dt ;

X:=trunc(t*Mx)+X0;y:=trunc(-v*My)+Y0;//перевод координат

 в экранные

LineTo(x,y); //построение очередной точки графика

until h<h1 ;

c:=0.55; S1:=pi*r1*r1; // при раскрытии парашюта меняются

k1:=6*pi*mu*r1; // форма тела, его радиус, площадь

k2:=0.5*S1*c*ro; // и коэффициенты силы сопротивления

//цикл построения графика с момента раскрытия парашюта до приземления

repeat

h:=h-v*dt;v:=v+(m*g-k1+v-k2*v*v)/m*dt;

t:=t+dt ;

X:=trunc(t*Mx)+X0;y:=trunc(-v*My)+Y0;

LineTo(x,y);

until h<0 ;

end;

end;      

На рис.4 результат – график изменения скорости парашютиста для исходных данных, введенных на первой форме (рис.3)

 

Рис 3. Ввод исходных данных на первой форме

Рис 4. График зависимости скорости от времени на второй форме

1. Построить графическую модель движения тела согласно варианту лабораторной работы №2.

2. Определить значения исследуемых параметров модели.