- •Введение
- •1 Цели и задачи моделирования
- •2 Конструктивная схема и описание объекта моделирования
- •3 Расчетная схема объекта моделирования, характреристики объекта моделирования и окружающей среды
- •4 Математическое описание объекта моделирования, начальные и граничные условия
- •5 Программная реализация задачи
- •6 Исхордные данные для моделирования
- •7 Результаты расчета и их анализ
- •Литература
- •Приложение а
7 Результаты расчета и их анализ
Исходные данные для расчета:
– неподрессоренная масса mN=352кг;
– подрессоренная масса MP=3168кг;
– масса сидения с водителем mc=80кг;
– жесткость подвески cp1=200000Н/м;
– жесткость шин csh1=420000Н/м, csh2=450000Н/м;
– жесткость сидения СС=70000Н/м;
– коэффициент демпфирования шин ksh1=1200 Н·c/м, ksh1=1500 Н·c/м;
– коэффициент демпфирования сидения kc=7000Н·c/м;
– расстояние от передней точки подвеса до центра масс подрессоренного остова l1=1.58м;
– расстояние от задней точки подвеса до центра масс подрессоренного остова l2=0.79м;
– расстояние от центра масс подрессоренного остова до места крепления сиденья lc=0.56м;
- рельеф представлен в виде таблицы высот через определенный шаг.
Результаты расчета представлены на рисунке12.
Рисунок 12 – Результаты расчета.
Анализируя результаты расчета можно прийти к следующим выводам:
1. при данных исходных данных у трактора МТЗ-80 наблюдается достаточно высокая плавность хода.
2. колебания на сиденье водителя по амплитуде, скорости и значениям ускорений являются гармоническими.
3. варьируя положением сидения установлено, что наименьшие колебания сидения возникают при его установке над задним мостом.
Литература
-
Тракторы МТЗ-80 и МТЗ-82/И. П. Ксеневич, Л. С. Кустанович, П. Н. Степанюк и др.; – М.: Колос, 1983.
-
Математическое моделирование: Методические указания по выполнению практических и курсовых робот для студентов специальностей 1-37 01 04 «Многоцелевые гусеничные и колесные машины», 1-37 01 03 «Тракторостроение», 1-37 01 05 «Городской электрический транспорт»/ В.П.Бойков, Г.П.Грибко, А.С.Поварехо, А.И.Рахлей; БНТУ. Минск., 2009.
-
ГОСТ 12.2.002-91. Определение параметров вибрационной характеристики самоходных машин. Тракторы сельскохозяйственные колесные и машины для полевых работ.
-
Барский И. Б., Анилович В. Я., Кутьков Г. М. Динамика трактора. М., «Машиностроение», 1973.
-
Тракторы: Теория: Учебник для студентов вузов по спец. «Автомобили и тракторы»/В.В.Гуськов, Н.В.Велев, Ю.Е.Атаманов и др.; – М.: Машиностроение, 1988.
-
Анилович В. Я., Володажченко Ю. Т. Конструирование и расчет сельскохозяйственных тракторов. Справочное пособие. Изд. 2-е, переработ. и доп. М., «Машиностроение», 1976.
-
ГОСТ 2.105-95 «Общие требования к текстовым документам»
-
Информация с официального сайта ПО «Минский тракторный завод»: http://belarus-tractor.com.
Приложение а
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, TeEngine, Series,
TeeProcs, Chart, Math, Grids;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label20: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit20: TEdit;
TabSheet3: TTabSheet;
Chart1: TChart;
Chart2: TChart;
Chart3: TChart;
Edit15: TEdit;
Label15: TLabel;
Series2: TLineSeries;
Series3: TLineSeries;
Series1: TLineSeries;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Chart4: TChart;
Series4: TLineSeries;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type mas1=array[1..8] of extended;
mas2=array[1..5] of extended;
mas3=array[1..1201] of extended;
var
Form1: TForm1;
m,n,k_schet,k:integer;
l,l1,l2,lc,hmax,v,th,tmax,tnach,cn1,ksh1,ksh2,ks2,kc,csh1,csh2,cc,Jn,mn,mp,mc,hc,HH1,HH:extended;
Fr: TextFile;
c: mas2;
znach,zh,z2,z1,koef_rks,d,z: mas1;
y,yp,h1,h1p,h2,h2p: mas3;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DecimalSeparator:='.';
AssignFile(Fr,'A.dat');
Reset(Fr);
for m:=1 to 1201 do readln(Fr,y[m],yp[m]);
CloseFile(Fr);
end;
procedure dwig(n:integer; var tnach:extended; var z1,z2:mas1);
begin
h1[m]:=y[m]; h1p[m]:=yp[m];
h2[m]:=y[m]; h2p[m]:=yp[m];
z2[1]:=z1[2];
z2[2]:=(-2*csh1*(z1[1]-h1[m])+2*cn1*(z1[3]-z1[5]*l1-z1[1])-2*ksh2*(z1[2]-h1p[m]))/mn;
z2[3]:=z1[4];
z2[4]:=(-2*cn1*(z1[3]-z1[5]*l1-z1[1])-2*csh2*(z1[3]+z1[5]*l2-h2[m])+cc*(z1[7]-z1[5]*lc-z1[3])-2*ksh2*(z1[4]+z1[6]*l2-h2p[m])+kc*(z1[8]-z1[6]*lc-z1[4]))/mp;
z2[5]:=z1[6];
z2[6]:=(2*l1*cn1*(z1[3]-z1[5]*l1-z1[1])-2*l2*csh2*(z1[3]+z1[5]*l2-h2[m])+lc*cc*(z1[7]-z1[5]*lc-z1[3])-2*l2*ksh2*(z1[4]+z1[6]*l2-h2p[m])+lc*kc*(z1[8]-z1[6]*lc-z1[4]))/Jn;
z2[7]:=z1[8];
z2[8]:=(-cc*(z1[7]-z1[5]*lc-z1[3])-kc*(z1[8]-z1[6]*lc-z1[4]))/mc;
end;
procedure rks(n:integer; var HH1,tnach,th:extended; var z1,zh,koef_rks,d:mas1; var c:mas2);
var i,j:integer;
begin
th:=tnach;
for i:=1 to n do
begin
zh[i]:=z1[i];
d[i]:=z1[i];
end;
for j:=1 to 4 do
begin
dwig(n,th,d,koef_rks);
th:=tnach+c[j];
for i:=1 to n do
begin
zh[i]:=zh[i]+c[j+1]*koef_rks[i]/3;
d[i]:=z1[i]+c[j]*koef_rks[i]
end;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
decimalseparator:=',';
n:=8;
HH:=0.03;
series1.Clear;
series2.Clear;
series3.Clear;
series4.Clear;
l1:=strtofloat(edit13.text);
l2:=strtofloat(edit20.text);
lc:=strtofloat(edit14.text);
mp:=strtofloat(edit2.text);
mn:=strtofloat(edit1.text);
mc:=strtofloat(edit3.text);
cn1:=strtofloat(edit4.text);
csh1:=strtofloat(edit5.text);
csh2:=strtofloat(edit6.text);
cc:=strtofloat(edit7.text);
kc:=strtofloat(edit12.text);
ksh1:=strtofloat(edit8.text);
ksh2:=strtofloat(edit9.text);
v:=strtofloat(edit11.text)/3.6;
Jn:=strtofloat(edit15.text);
tmax:=14;
c[1]:=HH/2; c[2]:=c[1]; c[5]:=c[1];
c[3]:=HH; c[4]:=HH;
k:=0;k_schet:=10;
z1[1]:=0; z1[2]:=0; z1[3]:=0;
z1[4]:=0; z1[5]:=0; z1[6]:=0;
z1[7]:=0; z1[8]:=0; tnach:=0; z2[8]:=0;
m:=1;
repeat
rks(n,HH,tnach,th,z1,zh,z2,d,c);
series1.addxy(tnach,z1[7]);
series4.addxy(tnach,h1[m]);
series2.addxy(tnach,z1[8]);
series3.AddXY(tnach,z2[8]);
for i:=1 to n do z1[i]:=zh[i];
m:=m+1;
tnach:=tnach+0.05;
until m>1201;
PageControl1.ActivePageIndex:=1;
end;
end.