ВУЗ:
Составители:
Рубрика:
Series1->Clear();
Series2->Clear();
Series3->Clear();
Series5->Clear();
/*if (Gr4->Checked)*/ Series4->Clear();
Series1->AddNullXY(0,0,"");
Series2->AddNullXY(0,0,"");
Series3->AddNullXY(0,0,"");
Series5->AddNullXY(0,0,"");
//Series4->AddNullXY(0,0,"");
h=pow(10.0,-hSpin->Value);
CGauge1->MaxValue = miSpin->Value;
double mi = miSpin->Value+1.0;
struct time time1;
gettime(&time1);
kk=2.0*Rpp*Rpp/xi;
int t1 = ((((time1.ti_hour*60+time1.ti_min)*60)+time1.ti_sec)*100)+time1.ti_hund;
for (i=0;i<mi;i++)
{
li = (l0*R*R*R)/(1.0-(l0*(1.0-R*R*R)));
//if (R<0.1) R=0.1;
CGauge1->Progress=i;
k[1][1]=Rpp;//fR(t,R,Rpp);
k[2][1]=fRpp(t,R,Rpp);
k[1][2]=Rpp+(0.5*h*k[2][1]);//fR(t+(0.5*h),R+(0.5*h*k[1][1]),Rpp+(0.5*h*k[2][1]));
k[2][2]=fRpp(t+(0.5*h),R+(0.5*h*k[1][1]),Rpp+(0.5*h*k[2][1]));
k[1][3]=Ripp+(0.5*h*k[2][2]); //fR(t+(0.5*h),R+(0.5*h*k[1][2]),Rpp+(0.5*h*k[2][2]));
k[2][3]=fRpp(t+(0.5*h),R+(0.5*h*k[1][2]),Rpp+(0.5*h*k[2][2]));
k[1][4]=Rpp+(h*k[2][3]);//fR(t+h,R+(h*k[1][3]),Rpp+(h*k[2][3]));
k[2][4]=fRpp(t+h,R+(h*k[1][3]),Rpp+(h*k[2][3]));
Ri=R+(0.166666666667*h)*(k[1][1]+2.0*k[1][2]+2.0*k[1][3]+k[1][4]);
Ripp=Rpp+(0.16666666666667*h)*(k[2][1]+2.0*k[2][2]+2.0*k[2][3]+k[2][4]);
Rvp=(Ripp-Rpp)/h;
//if (((Ri-R)<0.0)&&(t>5.0)) break;
Series1->AddXY(t,R,"",clRed);
Series2->AddXY(t,Rpp,"",clRed);
Series3->AddXY(t,Rvp,"",clRed);
Series5->AddXY(t,Ma(Rpp),"",clRed);
R=Ri;
if (fabs(Ripp)<0.000001) Ripp = 0.000001;
Rpp=Ripp;
t+=h;
if (t>1.0) mR=((2.0*Rpp)+(R*Rvp))/xi;
/* if ((kk<mR)&&(t>1.0))
{
kk=mR;
Edit3->Text=t;
u=1;
}
else if ((u=1)&&(t>5.0)) break;*/
}
Edit2->Text=kk;
if (Gr4->Checked)
for (j=100;j<501;j++)
{
R = RSpin->Value*pow(xi,0.3333333333333)/((double)1000.0);
Rpp = RppSpin->Value/((double)1000.0);
xai = (double)j/1000.0;
xi = xa0/xai;
dt = dtd*pow(xi,0.833333333333333333);
li = (l0*xi)/(1.0 – l0*(1.0 – xi));
CGauge2->Progress=j;
t=0;
kk=2.0*Rpp*Rpp/xi;
Edit2->Text=Edit5->Text;
