Проверьте правильно ли строится второй график, в координатах V,t

{double t,x,y,dt=0.01,Vx,Vy,ta,co,si,R,V,dm, dQo=1,d,m0,mt,Cx,ro,P,P0,mr, Rov,Vo,
Qo,Sm;
int i=0;
d=StrToFloat(Edit1->Text);
m0=StrToFloat(Edit2->Text);
mt=StrToFloat(Edit3->Text);
ta=StrToFloat(Edit4->Text);
Cx=StrToFloat(Edit5->Text);
Rov=StrToFloat(Edit6->Text);
P0=StrToFloat(Edit7->Text);
Qo=StrToFloat(Edit8->Text)/57.3;
Vo=StrToFloat(Edit9->Text);
 
  FILE*fdan=fopen("MassivDan.txt","w");
      do
      { dm=mt/ta;
       fprintf(fdan,"\n mt=%lf",mt);
      
       co= cos(Qo);
       si=sin(Qo);
       Sm=3.14*d*d/4;
      t=0; x=0; y=0;
       Vy=Vo*si; Vx=Vo*co; V=Vo ;
       mr=m0;
       P=P0;
 
      do
     { t=t+dt;
       R= Cx*Sm*Rov*V*V*0.5;
       if(t>ta) P=0;
       if(t<ta) mr=mr-dm*dt;
       Vx=Vx+dt*(P-R)*co/mr;
       Vy=Vy+dt*(P-R)*si/mr-dt*9.8;
       x=x+dt*Vx;
       y=y+dt*Vy;
       V=sqrt(Vx*Vx+Vy*Vy);
       co=Vx/V; si=Vy/V;
       fprintf(fdan,"\n t=% lf   x=%lf    y=%lf  Vx=%lf   Vy=%lf  si= %lf",t,x,y,Vx,Vy,si);
       Chart1->Series[i]->AddXY(x,y," ", clRed);
 
       } while (y>0);
        Qo=Qo+dQo/57.3;
        i=i+1;
          Chart2->Series[0]->AddXY(V,t," ", clGreen);
       } while (Qo<=42/57.3);
    fclose(fdan);
    ShowMessage("Расчет окончен");