p>
{k [i] = 0;
v [i] = 0;
x [i] = 0;
w [i] = 0;
}
for (int i = 0; i
{
for (int j = 0; j
{
u [i] [j] = 0;
}
}
for (int j = 0; 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 * ll * 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
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
{
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 =...
