------------------------
'Пасивний ділянка траєкторії польоту
'Ейлер
V = CDbl (Text8.Text) = CDbl (Text9.Text) = CDbl (Text10.Text) = CDbl (Text11.Text)
i = T = Mn - Rashod * T
j = TWhile y> 0 = r0 * Exp (-y/7800) = 0.5 * Cx * r * S * V ^ 2
V = V - h * (9.81 * m * Sin (Q) + Xx)/m
Q = Q - h * 9.81 * Cos (Q)/V = ​​x + h * V * Cos (Q) = y + h * V * Sin (Q) Option1.Value = True And Round (i, 2) = Round (j, 2) Then = j + 1.Text = Text33.Text & Round (i, 2) & vbCrLf.Text = Text34.Text & Round (V, 1) & ; vbCrLf.Text = Text36.Text & Round (Q, 3) & vbCrLf.Text = Text40.Text & Round (x, 0) & vbCrLf.Text = Text38.Text & Round (y, 0) & vbCrLfIfAbs (Q) <0.001 Then
str = "Значення параметрів" & vbCrLf & "в найвищій точці траєкторії" & vbCrLf & "методом Ейлера" & vbCrLf
str = str & "t =" & Round (i, 2) & vbCrLf = str & "V =" & Round (V, CLng (Text21. Text)) & vbCrLf = str & "Q = 0" & vbCrLf = str & "X =" & Round (x, CLng (Text21.Text)) & vbCrLf = str & " ; Y = "& Round (y, CLng (Text21.Text)) & vbCrLf & vbCrLfIf = i + h.Text = Round (V, CLng (Text21.Text)). Text = Round (Q, CLng (Text21.Text)). Text = Round (x, CLng (Text21.Text)). Text = Round (y, CLng (Text21.Text)). Text = Round (i, 2)
'-----------------------------
'Рунге-Кутта = CDbl (Text12.Text) = CDbl (Text13.Text) = CDbl (Text14.Text) = CDbl (Text15.Text) = T
j = T = Mn - Rashod * T
Do While y> 0 = r0 * Exp (-y/7800) = 0.5 * Cx * r * S * V ^ 2 (1, 1) = h * (-9.81 * m * Sin (Q) - Xx)/m (1, 2) = -9.81 * h * Cos (Q)/V (1, 3) = h * V * Cos (Q) (1, 4) = h * V * Sin (Q) = r0 * Exp (- (y + 0.5 * K (1, 4))/7800) = 0.5 * Cx * r * S * (V + 0.5 * K (1, 1)) ^ 2 (2 , 1) = h * (-9.81 * m * Sin (Q + K (1, 2)/2) - Xx)/m (2, 2) = -9.81 * h * Cos (Q + K (1, 2 )/2)/(V + K (1, 1)/2) (2, 3) = h * (V + K (1, 1)/2) * Cos (Q + K (1, 2)/2 ) (2, 4) = h * (V + K (1, 1)/2) * Sin (Q + K (1, 2)/2) = r0 * Exp (- (y + 0.5 * K (2, 4))/7800) = 0.5 * Cx * r * S * (V + 0.5 * K (2, 1)) ^ 2 (3, 1) = h * (-9.81 * m * Sin (Q + K (2 , 2)/2) - Xx)/m (3, 2) = -9.81 * h * Cos (Q + K (2, 2)/2)/(V + K (2, 1)/2) (3 , 3) = h * (V + K (2, 1)/2) * Cos (Q + K (2, 2)/2) (3, 4) = h * (V + K (2, 1)/ 2) * Sin (Q + K (2, 2)/2) = r0 * Exp (- (y + K (3, 4))/7800) = 0.5 * Cx * r * S * (V + K (3 , 1)) ^ 2 (4, 1) = h * (-9.81 * m * Sin (Q + K (3, 2)) - Xx)/m (4, 2) = -9.81 * h * Cos (Q + K (3, 2))/(V + K (3, 1)) (4, 3) = h * (V + K (3, 1)) * Cos (Q + K (3, 2))
K (4, 4) = h * (V + K (3, 1)) * Sin (Q + K (3, 2)) = V + (K (1, 1) + K (4, 1) + 2 * (K (2, 1) + K (3, 1)))/6 = Q + (K (1, 2) + K (4, 2) + 2 * (K ( 2, 2) + K (3, 2)))/6 = x + (K (1, 3) + K (4, 3) + 2 * (K (2, 3) + K (3, 3)) )...
