Исходный текст программы

По блок-схеме алгоритма (рисунок 4) разрабатываем программу расчета собственных колебаний подпрыгивания кузова вагона на рессорном подвешивании. Программа пишется на языке программирования «Turbo Pascal».

program var1;

Uses Crt;

Var Mk,Mg,c,h,g,t,Tmax,M,q0,q2,q1,qi:real;

F1:text;

begin

clrscr;

Mk:=27;

Mg:=18;

Writeln('vvesti c');

Readln(c);

assign(F1, 'C:\Мат. модели.txt');

rewrite(F1);

h:=0,016;

Tmax:=1,6;

g:=9.8;

t:=0;

M:=Mg+Mk;

q0:=(M*g)/(2*c);

q1:=q0;

qi:=q0;

q2:=2*qi-q1+sqr(h)*(g-(2*c*qi)/M);

repeat

M:=Mk;

q2:= 2*qi-q1+sqr(h)*(g-(2*c*qi)/M);

writeln(q2:30:5,t:30:3);

writeln(F1,q2:30:5);

q1:=qi;

qi:=q2;

t:=t+h;

until t>=Tmax;

readln;

end.

5 АНАЛИЗ РЕЗУЛЬТАТОВ МАТЕМАТИЧЕСКОГО МОДЕЛИРОВАНИЯ

5.1. Графики собственных колебаний

На рисунке 5 приведен график собственных колебаний подпрыгивания вагона-цистерны модели 15-1500, построенный при h=0,016 и С=309 тс/м

Рисунок 5 - График собственных колебаний подпрыгивания при C=309 тс/м

На рисунке 6 приведен график собственных колебаний подпрыгивания вагона-цистерны модели 15-1500, построенный при h=0,016 и С=370,8 тс/м

Рисунок 6 - График собственных колебаний подпрыгивания при С=370,8 тс/м

На рисунке 7 приведен график собственных колебаний подпрыгивания вагона-цистерны модели 15-1500, построенный при h=0,016 и С=432,6 тс/м

Рисунок 7 - График собственных колебаний подпрыгивания при С=432,6 тс/м