Автоматизация методической печи

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";

 Скачать реферат