| Код | void __fastcall TForm2::Button1Click(TObject *Sender) { int m = 0,k1,k2,k3,k4,k5,k6,k7,k8; double y_r,x_r,x_t,previous_angle,phi,angle; Edit1->Text = Max_X; for(int i=Max_X;i>0;i--,m++) { if (y_r>H_celi) break; if (y_r<250) k1++; if ((y_r>=250)&(y_r<500)) k2++; if ((y_r>=500)&(y_r<750)) k3++; if ((y_r>=1200)&(y_r<1500)) k4++; if ((y_r>=1500)&(y_r<1800)) k5++; if ((y_r>=2000)&(y_r<2300)) k6++; Series1->AddXY(i-1,H_celi,"",clRed); Series2->AddXY(i,0,"",clRed); Series3->AddXY(x_r,y_r,"",clBlue); Series4->AddXY(x_r,0,"",clBlue); Series5->AddXY(x_t,y_r,"",clGreen); angle = atan2(H_celi,i); //óãîë ìåñòà öåëè phi = angle - previous_angle; x_r = (m+1)*V_raketi*cos(angle)*cos(phi); x_t = x_r + k1 - k2 + k3 - k4 + k5 - k6; y_r = (m+1)*V_raketi*sin(angle)*cos(phi); previous_angle = angle; } }
|
|