ВУЗ:
Составители:
Рубрика:
for (i=0;i<mi;i++)
{
li = (l0*R*R*R)/(1.0-(l0*(1.0-R*R*R)));
k[1][1]=Rpp;
k[2][1]=fRpp(t,R,Rpp);
k[1][2]=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]);
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]);
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;
R=Ri;
if (Ripp == 0) Ripp = h;
Rpp=Ripp;
t+=h;
if (t>1)mR=((2.0*Rpp)+(R*Rvp))/xi;
if ((kk<mR)&&(t>1))
{
kk=mR;
Edit3->Text=t;
}
}
Edit5->Text=Series4->MaxYValue();
if (Edit2->Text != Edit5->Text) Edit4->Text=xai;
Series4->AddXY(xai,kk,"",clRed);
}
gettime(&time1);
t1 = (((((time1.ti_hour*60+time1.ti_min)*60)+time1.ti_sec)*100)+time1.ti_hund)-t1;
Edit1->Text=t1;
}
