Вариант 2

МГТУ им. Н.Э. Баумана

Факультет “Энергомашиностроение”

Кафедра Э5

ДОМАШНЕЕ ЗАДАНИЕ

по курсу “Пневматические системы”

ЭТАП 1

Схема 4

Вариант 2

Студент: Уразбахтин Т.Ф.

Группа: Э5-91

Преподаватель: Чернышёв А.В.

Москва

2014 г

ВВЕДЕНИЕ

Неотъемлемой частью большинства современных сложных технических систем наземного применения и летательных аппаратов является одна или несколько пневматических систем. Чаще всего пневматические системы являются составной частью более общей пневмомеханической или пневмогидравлической системы. Примером таких систем может служить система наддува топливных баков. В летательных аппаратах пневмосистемы, прежде всего, применяются в системах ориентации и стабилизации, кондиционирования и пожаротушения. В наземных комплексах пневмосистемы применяются практически во всех областях техники, например, системы искусственного дыхания в медицине, прецизионные системы подготовки газовых смесей в лазерной технологии, а также системы воздухоснабжения машиностроительных, горнодобывающих и горнообогатительных предприятий. Диапазон применения пневмосистем крайне широк, а их рабочие характеристики оказывают существенное влияние на работоспособность, энергоемкость и надежность комплексов, в состав которых они входят. Поэтому современный инженер, специализирующийся в области разработки и эксплуатации пневматических систем, должен владеть основами расчета процессов, протекающих в них.

Расчетная схема.

Рис. 1

Этап1

На первом этапе необходимо произвести расчет ПС при следующих допущениях:

1. При моделировании процессов, протекающих в системе, за рабочее тело принят идеальный газ, подчиняющийся термическому уравнению состояния;

2. Изменение состояния рабочего тела в полостях системы квазистатическое;

3. Теплообмен между рабочим телом и корпусными элементами системы отсутствует;

4. Процесс истечения рабочего тела из полостей системы через условные сопротивления принимается одномерным, установившимся, протекающим без трения и теплообмена. Потери при истечении рабочего тела, обусловленные принятыми допущениями, учитываются коэффициентами расхода.

МАТЕМАТИЧЕСКАЯ МОДЕЛЬ

Исходные данные:

Начальные условия:

t=0;

Р₁=Р_1Н; Р₂=Р_2Н; Р₃=Р_3Н; Р₄=Р_4Н;

Т₁ =300 К; Т₂=300 К; Т₃=300 К; Т₄=300 К.

Предварительные расчеты:

F₁₂=₁₂d₁₂²/4

F₁₃=₁₃d₁₃²/4

F₃₄=₃₄d₃₄²/4

F₂₃=₂₃d₂₃²/4

S₁= (6V₁/)^2/3

S₂= (6V₂/)^2/3

S₃= (6V₃/)^2/3

S₄= (6V₄/)^2/3

Уравнения расхода:

G₁₂=G(F₁₂,P₁,P₂,T_P1)

G₁₃=G(F₁₃,P₁,P₃,T_P2)

G₃₄=G(F₃₄,P₃,P₄,T_P3)

G₂₃=G(F₂₃,P₂,P₃,T_P4),

где T_Pmaxi – температура газа в той из двух рассматриваемых емкостей, где давление больше.

Уравнения расчета изменения параметров в емкостях ПС:

1-я емкость:

2-я емкость

3-я емкость

4-я емкость

Конечное условие: P_{min } 0.95*P_max

ПРОГРАММА РАСЧЕТА НА ЭВМ.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg, ComCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Panel2: TPanel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Panel3: TPanel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Panel4: TPanel;

Label15: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Edit15: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Edit18: TEdit;

Panel5: TPanel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Edit19: TEdit;

Edit20: TEdit;

Edit21: TEdit;

Edit22: TEdit;

Label43: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

GroupBox1: TGroupBox;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Edit23: TEdit;

Edit24: TEdit;

Edit25: TEdit;

GroupBox2: TGroupBox;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Edit26: TEdit;

Edit27: TEdit;

Edit28: TEdit;

Label60: TLabel;

Label61: TLabel;

Edit29: TEdit;

Label62: TLabel;

Label63: TLabel;

Label64: TLabel;

ScrollBox1: TScrollBox;

Label65: TLabel;

G1: TLabel;

Label66: TLabel;

Label67: TLabel;

Label68: TLabel;

Label69: TLabel;

Label70: TLabel;

Label71: TLabel;

Label72: TLabel;

Label73: TLabel;

Label74: TLabel;

Label75: TLabel;

Label76: TLabel;

Label77: TLabel;

Label78: TLabel;

Label79: TLabel;

t: TMemo;

mg1: TMemo;

mg2: TMemo;

mg3: TMemo;

p1: TMemo;

p2: TMemo;

p3: TMemo;

p4: TMemo;

T1: TMemo;

T2: TMemo;

T3: TMemo;

T4: TMemo;

Edit30: TEdit;

Label80: TLabel;

mg4: TMemo;

Label81: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form1.Close; // закрыть главное окно программы

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

const

R=287.2; k=1.41; Betakr=0.528; PI=3.14;

Var

M1,M2,M3,M4,D1,D2,D3,D4,V1,V2,V3,V4,F1,F2,F3,F4,Pa1,Pa2,Pa3,Pa4,Pb1,Pb2,Pb3,Pb4,

Ta1,Ta2,Ta3,Ta4,A,B,C,D,E,F,L,H,G12,G13,G34,G23,DT,PM,PX,H1,H2,H3,H4,tt,S1,S2,S3,S4:real;

i,max,min,n:integer;

Y,V:array [1..8] of real;

begin

M1:=strToFloat(Edit1.Text);

M2:=strToFloat(Edit2.Text);

M3:=strToFloat(Edit3.Text);

M4:=strToFloat(Edit4.Text);

D1:=strToFloat(Edit6.Text)/1000;

D2:=strToFloat(Edit7.Text)/1000;

D3:=strToFloat(Edit8.Text)/1000;

D4:=strToFloat(Edit9.Text)/1000;

V1:=strToFloat(Edit11.Text)/1000;

V2:=strToFloat(Edit12.Text)/1000;

V3:=strToFloat(Edit13.Text)/1000;

V4:=strToFloat(Edit14.Text)/1000;

DT:=strToFloat(Edit10.Text);

Y[1]:=strToFloat(Edit19.Text)*1000000;

Y[2]:=strToFloat(Edit15.Text);

Y[3]:=strToFloat(Edit20.Text)*1000000;

Y[4]:=strToFloat(Edit16.Text);

Y[5]:=strToFloat(Edit21.Text)*1000000;

Y[6]:=strToFloat(Edit17.Text);

Y[7]:=strToFloat(Edit22.Text)*1000000;

Y[8]:=strToFloat(Edit18.Text);

F1:=M1*PI*sqr(D1)/4;

F2:=M2*PI*sqr(D2)/4;

F3:=M3*PI*sqr(D3)/4;

F4:=M4*PI*sqr(D4)/4;

S1:=PI*exp((2/3)*ln(6*V1/PI));

S2:=PI*exp((2/3)*ln(6*V2/PI));

S3:=PI*exp((2/3)*ln(6*V3/PI));

S4:=PI*exp((2/3)*ln(6*V4/PI));

Edit26.Text :=FloatToStrF(F1*1000000,ffFixed,4,4);

Edit27.Text :=FloatToStrF(F2*1000000,ffFixed,4,4);

Edit28.Text :=FloatToStrF(F3*1000000,ffFixed,4,4);

Edit30.Text :=FloatToStrF(F4*1000000,ffFixed,4,4);

Edit23.Text :=FloatToStrF(S1,ffFixed,4,4);

Edit24.Text :=FloatToStrF(S2,ffFixed,4,4);

Edit25.Text :=FloatToStrF(S3,ffFixed,4,4);

Edit29.Text :=FloatToStrF(S4,ffFixed,4,4);

tt:=0;

n:=1;

t.Lines.Add('____');

mg1.Lines.Add('____');

mg2.Lines.Add('____');

mg3.Lines.Add('____');

mg4.Lines.Add('____');

p1.Lines.Add('____');

p2.Lines.Add('____');

p3.Lines.Add('____');

p4.Lines.Add('____');

T1.Lines.Add('____');

T2.Lines.Add('____');

T3.Lines.Add('____');

T4.Lines.Add('____');

REPEAT

//writeln('Opredelenie napravleniya rashoda');

//writeln;

if Y[1]>Y[3] then

begin

Pa1:=Y[1]; Pb1:=Y[3]; Ta1:=Y[2]; A:=-1; B:=1;

end

else begin

Pa1:=Y[3]; Pb1:=Y[1]; Ta1:=Y[4]; A:=1; B:=-1;

end;

if Y[1]>Y[5] then

begin

Pa2:=Y[1]; Pb2:=Y[5]; Ta2:=Y[2]; C:=-1; D:=1;

end

else begin

Pa2:=Y[5]; Pb2:=Y[1]; Ta2:=Y[6]; C:=1; D:=-1;

end;

if Y[5]>Y[7] then

begin

Pa3:=Y[5]; Pb3:=Y[7]; Ta3:=Y[6]; E:=-1; F:=1;

end

else begin

Pa3:=Y[7]; Pb3:=Y[5]; Ta3:=Y[8]; E:=1; F:=-1;

end;

if Y[3]>Y[5] then

begin

Pa4:=Y[3]; Pb4:=Y[5]; Ta4:=Y[4]; H:=-1; L:=1;

end

else begin

Pa4:=Y[5]; Pb4:=Y[3]; Ta4:=Y[6]; H:=1; L:=-1;

end;

//Расчёт расходов

if (Pb1/Pa1)>Betakr then

begin

H1:=2*k*(exp((2/k)*ln(Pb1/Pa1))-exp(((k+1)/k)*ln(Pb1/Pa1)))/(k-1)/R/Ta1;

if H1<0 then G12:=0

else

G12:=F1*Pa1*sqrt(H1);

end

else begin