Автоматизация методической печи (стр. 9 из 10)

В рамках данного курсового проекта мною были рассмотрены контуры контроля и регулирования. Так же мною была разработана математическая модель процесса нагрева металла. Эта модель разработана на основании метода конечных разностей.

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. В.А.Шамис "Borland C++ Builder 6. для профессионалов" СПб.:Питер,2003

2. А.Я.Архангельский. "C++ Builder 6. Справочное пособие." М.:Бином – Пресс, 2004г.

3. Нагрев металла и эксплуатация методических печей рельсобалочного цеха. Технологическая инструкция ТИ 232-7-89.

4. Матвеев А.Г. "Теплотехника". М. "Высшая школа" 1981.

5. А.С.Телегин "Теплотехнические расчеты металлургических печей"

6. И.Н.Сушкин "Теплотехника" М. "Металлургия" 1973

7. С.А.Малый "Автоматизация методических печей" Москва 1962.

8. Хоу Чэн Лян. Современное состояние и перспективы развития высокопроизводительных регенеративных печей в КНР // "Металлургическая теплотехника". Сборник научных трудов Государственной металлургической академии Украины. В 2-х томах. Т. 1 – Днепропетровск: ГМетАУ, 1999. – 214 с.

9. Патент 61495А Украина, С21D 9/70. Нагревательный колодец с шариковыми регенераторами / Сокуренко А.В., Шеремет В.А., Кекух А.В. и другие. Опубл. 17.11.2003. Бюллетень No 11.

10. Губинский В.И., Лу Чжун-У. Теория пламенных печей. – М.: Машиностроение, 1995. – 256 с.

Приложение А

Листинг программы

void __fastcall TForm1::Button1Click(TObject *Sender)

{float h,t,l;

float u[1000][100];

float ug[1000][100];

float k[1000];

float v[1000];

float x[1000], w[1000];

int n,m;

double as=0;

if ( CheckBox1->Checked==true)

{

T1=StrToFloat(Edit1->Text);

T2=StrToFloat(Edit2->Text);

Tv=StrToFloat(Edit4->Text);

tau=StrToFloat(Edit5->Text);

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption=" ";

StaticText3->Caption=" ";

}

Edit1->Text=T1;

Edit2->Text=T2;

Edit4->Text=Tv;

Edit5->Text=tau;

Series13->Clear();

h=0.01;

n=1/h;

m=n;

Series9->Clear();

Series10->Clear();

for (int i=0; i<n; i++)

{ k[i]=0;

v[i]=0;

x[i]=0;

w[i]=0;

}

for (int i=0; i<n; i++)

{

for (int j=0; j<m; j++)

{

u[i][j]=0;

}

}

for (int j=0; j<m; j++)

{

u[0][j]=Tv;

}

for (int i=0; i<=n+1; i++)

{

if (as<=0.234)

{

u[i][0]=300/0.234*as+T2-300;

Series13->AddXY(as,u[i][0]);

}

else

if (as>0.234 && as<0.694)

{

u[i][0]=T2;

Series13->AddXY(as,T2);

}

else

if(as>=0.694)

{

u[i][0]=T1;

Series13->AddXY(as,u[i][0]);

}

as+=h;

}

l=(500*(1-0.1*tau))/(h*h*7200*0.6*n);

for (int j=1; j<=m; j+=1)

{

k[0]=0;

v[0]=u[0][j-1];

for (int i=1; i<=n-1; i+=1)

{

v[i]=(u[i][j-1]+l*v[i-1])/(1+2*l-l*k[i-1]);

k[i]=l/(1+2*l-l*k[i-1]);

}

for (int i=n; i>=1; i--)

{

x[n]=u[n][j-1];

x[i-1]=x[i]*k[i-1]+v[i-1];

}

for (int i=1; i<=n; i++)

{

u[i][j]=x[i];

}

for (int i=0; i<=n; i++)

{

w[0]=0;

for (int j=1; j<=n+1; j++)

{

float dw=h;

w[j]=w[j-1]+dw;

}

}

}

Series1->Clear();

Series2->Clear();

Series3->Clear();

Series4->Clear();

Series5->Clear();

Series6->Clear();

Series7->Clear();

Series8->Clear();

Series11->Clear();

Series12->Clear();

float asd;

if(T2<T1)

asd=T1;

else

asd=T2;

for(int f=Tv;f<=asd+10;f+=10)

{

Series11->AddXY(0.234,f);

Series12->AddXY(0.694,f);

}

for (int i=0; i<n; i++)

{

Series1->AddXY(w[i],u[i][5]);

Series2->AddXY(w[i],u[i][10]);

Series3->AddXY(w[i],u[i][20]);

Series4->AddXY(w[i],u[i][30]);

Series5->AddXY(w[i],u[i][40]);

Series6->AddXY(w[i],u[i][50]);

Series7->AddXY(w[i],u[i][60]);

Series8->AddXY(w[i],u[i][70]);

Series9->AddXY(w[i],u[i][80]);

Series10->AddXY(w[i],u[i][99]);

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N24241Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1350;

tau=4;

}

else

if(vsad==2)

{

T2=1320;

tau=3.3;

}

else

if(vsad==3)

{

T2=1290;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Øâåëëåð ¹ 24, 24Ò";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N271Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1350;

tau=4;

}

else

if(vsad==2)

{

T2=1320;

tau=3.3;

}

else

if(vsad==3)

{

T2=1290;

tau=3;

}

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Øâåëëåð ¹ 27";

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N302Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1350;

tau=4;

}

else

if(vsad==2)

{

T2=1320;

tau=3.3;

}

else

if(vsad==3)

{

T2=1290;

tau=3;

}

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Øâåëëåð ¹ 30,30Â";

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N3011Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1360;

tau=4;

}

else

if(vsad==2)

{

T2=1330;

tau=3.3;

}

else

if(vsad==3)

{

T2=1300;

tau=3;

}

T3=T2-50;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Øâåëëåð ¹ 30Â-1";

StaticText4->Caption=T1;

StaticText5->Caption=T2;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N3021Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1370;

tau=4;

}

else

if(vsad==2)

{

T2=1340;

tau=3.3;

}

else

if(vsad==3)

{

T2=1310;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Øâåëëåð ¹ 30Â-2";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N241Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1350;

tau=4;

}

else

if(vsad==2)

{

T2=1320;

tau=3.3;

}

else

if(vsad==3)

{

T2=1290;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹24";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N272Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1350;

tau=4;

}

else

if(vsad==2)

{

T2=1320;

tau=3.3;

}

else

if(vsad==3)

{

T2=1290;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹27";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N303Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1360;

tau=4;

}

else

if(vsad==2)

{

T2=1330;

tau=3.3;

}

else

if(vsad==3)

{

T2=1300;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹30";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N361Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1370;

tau=4;

}

else

if(vsad==2)

{

T2=1340;

tau=3.3;

}

else

if(vsad==3)

{

T2=1310;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹36Ñ";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N362Click(TObject *Sender)

{

T1=1260;

if (vsad==1)

{

T2=1370;

tau=4.3;

}

else

if(vsad==2)

{

T2=1340;

tau=4;

}

else

if(vsad==3)

{

T2=1310;

tau=3.3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹36";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N451Click(TObject *Sender)

{

T1=1300;

if (vsad==1)

{

T2=1380;

tau=4.3;

}

else

if(vsad==2)

{

T2=1350;

tau=4;

}

else

if(vsad==3)

{

T2=1320;

tau=3.3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹45";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N501Click(TObject *Sender)

{

T1=1300;

if (vsad==1)

{

T2=1380;

tau=4.3;

}

else

if(vsad==2)

{

T2=1350;

tau=4;

}

else

if(vsad==3)

{

T2=1320;

tau=3.3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹50";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N551Click(TObject *Sender)

{

T1=1300;

if (vsad==1)

{

T2=1380;

tau=4.3;

}

else

if(vsad==2)

{

T2=1350;

tau=4;

}

else

if(vsad==3)

{

T2=1320;

tau=3.3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Áàëêà ¹55";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N1001501Click(TObject *Sender)

{

T1=1240;

if (vsad==1)

{

T2=1370;

tau=3.3;

}

else

if(vsad==2)

{

T2=1340;

tau=2;

}

else

if(vsad==3)

{

T2=1310;

tau=2.3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò5";

StaticText3->Caption="Êâàäðàò 100-150";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)

{

T1=1270;

if (vsad==1)

{

T2=1370;

tau=5;

}

else

if(vsad==2)

{

T2=1340;

tau=4.3;

}

else

if(vsad==3)

{

T2=1310;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò4";

StaticText3->Caption="Øïóíò ØÏ-1";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N12Click(TObject *Sender)

{

T1=1270;

if (vsad==1)

{

T2=1370;

tau=5;

}

else

if(vsad==2)

{

T2=1340;

tau=4.3;

}

else

if(vsad==3)

{

T2=1310;

tau=3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò4";

StaticText3->Caption="Øïóíò ØÊ-1";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N50655065651Click(TObject *Sender)

{

T1=1250;

if (vsad==1)

{

T2=1370;

tau=3.3;

}

else

if(vsad==2)

{

T2=1340;

tau=3;

}

else

if(vsad==3)

{

T2=1310;

tau=2.3;

}

T3=T2-50;

StaticText4->Caption=T1;

StaticText5->Caption=T2;

StaticText2->Caption="Ñò0 - Ñò4";

StaticText3->Caption="Ä50,ÊÁ50,ÁÏ65";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N1001201Click(TObject *Sender)

{

T1=1240;

if (vsad==1)

{

T2=1370;

tau=3.3;

}

else

if(vsad==2)

{

T2=1340;

tau=3;

}

else

if(vsad==3)

{

T2=1310;

tau=2.3;

}

T3=T2-50;