Рис. В
Рис.
В
Рис.
В
Рис.
В
Рис.
Додаток 2
Текст програми, розробленої для інтегрування методами Ейлера і Рунге-Кутта. (Програма виконана на Visual Basic 6.0 Professional Edition)
В
Рис.
Base 1r0 = 1.23r As Doubley As Doublex As DoubleV As DoubleQ As DoubleXx As Doublem As DoubleYg As DoubleXg As DoubleCx As DoubleVg As DoubleS As DoubleMn As DoubleRashod As DoubleTg As DoubleRs As DoubleT As Doubleh As DoubleQg As Doublei As DoubleK (4, 4) As Doublestr As Stringj As DoubleSub Command1_Click (). ForeColor = & HFF &. Caption = "йде розрахунок" = CDbl (Text4.Text) * Sin (CDbl (Text3.Text)) = CDbl (Text4.Text) * Cos (CDbl (Text3.Text)) = CDbl (Text5.Text) = CDbl (Text1.Text) = CDbl (Text6.Text) = CDbl (Text17.Text) = CDbl (Text18.Text ) = CDbl (Text2.Text) = CDbl (Text19.Text) = CDbl (Text16.Text) = CDbl (Text7.Text) = CDbl (Text3.Text). Text = "". Text = "" . Text = "". Text = "". Text = ""
'----------------------------------
'Активний ділянку траєкторії польоту
'Ейлер = Xg
y = Yg
V = Vg
Q = Qg
j = Tg
For i = Tg To T Step h = r0 * Exp (-y/7800) = 0.5 * Cx * r * S * V ^ 2 = Mn - Rashod * i = V + h * ( Rs - 9.81 * m * Sin (Q) - Xx)/m = 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) & vbCrLfIfi = Tg Then = "Значення коефіцієнтів" & vbCrLf & "на першому кроці Е" & vbCrLf
str = str & "V =" & Round (V, CLng (Text21.Text)) & vbCrLf = str & "Q =" & Round (Q , CLng (Text21.Text)) & vbCrLf = str & "X =" & Round (x, CLng (Text21.Text)) & vbCrLf = str & "Y =" & Round (y, CLng (Text21.Text)) & vbCrLf & vbCrLfIfi.Text = Round (V, CLng (Text21.Text)). Text = Round (Q, CLng (Text21.Text)). Text = Round (x , CLng (Text21.Text)). Text = Round (y, CLng (Text21.Text))
'-----------------------------
'Рунге-Кутта = Xg = Yg = Vg = Qg = Tgi = Tg To T Step h = r0 * Exp (-y/7800) = 0.5 * Cx * r * S * V ^ 2 = Mn - Rashod * i (1, 1) = h * (Rs - 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 = Mn - Rashod * (i + h/2) (2, 1) = h * (Rs - 9.81 * m * Sin (Q + K (1, 2)/2) - Xx)/m (2, 2) = -9.81 * h * Co...
