Реферат Моделювання систем

тервал часу

var

S / / поточний пройдений шлях

, Smax / / шлях який необхідно пройти

, Y, Y2, Y3, / / ??втома

Ymax, / / ??максимальна втому

Ymin, / / ??мінімальна втома

V, / / ??швидкість

V0, / / ??початкова швидкість в км / год

Kv, / / ??коефіцієнт швидкості

Kt, / / ??коефіцієнт часу

K0, / / ??коефіцієнт відпочинку

T, / / ??відрізок часу

T1, / / ??час досягнення мінімальної втоми

T2 / / час досягнення максимальної втоми

:Extended;.Chart1.Series[0].Clear;.Chart2.Series[0].Clear;:=StrToFloat(LabeledEdit1.Text);:=StrToFloat(LabeledEdit2.Text);:=StrToFloat(LabeledEdit3.Text);:=StrToFloat(LabeledEdit4.Text);:=StrToFloat(LabeledEdit5.Text);:=StrToFloat(LabeledEdit6.Text);:=StrToFloat(LabeledEdit7.Text);:=0;:=0;:=0;:=0;:=0;:=0;:=0;:=0;(S&lt;=Smax) do:=T + dt; Y <= Ymax then

V:=V0 / (1 + Y);// Обчислюємо поточну швидкість

Form1.Series2.AddXY (T, V);// Відображаємо поточну швидкість на графік

T1:=T1+dt;:=0;:=S+V*dt;:=Kv*V0*Kt*sqr(T1)+Y3;:=Y;.Series1.AddXY(T,S,&laquo;&raquo;);(Y&gt;=Ymin) do

V:=0;

Form1.Series2.AddXY (T, V, «»);// Відображаємо на графіку поточну

/ / швидкість

T1:=0;

T2:=T2 + dt;

Y:=Y2-K0 * sqrt (T2);// Відновлюємо значення втоми

/ / до мінімуму

Y3:=Y;

Form1.Series1.AddXY (T, S, «», clblue);// Відображаємо на графіку період

/ / відпочинку:=T + dt;;;;;

TForm1.Button2Click (Sender: TObject);

close;

end;

end.

Висновок

У ході виконання поставлених завдань отримав навички роботи з GPSS і з ПО Mathcad, навчився проводити регресійний аналіз об'єктів.

Розроблені в курсовому проекті моделі при належному тестуванні, налагодженні і модернізації можуть служити засобом вирішення реальних завдань.