/6
y = y + (K (1, 4) + K (4, 4) + 2 * (K (2, 4) + K (3, 4)))/6Option2.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 = 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)). Text = strIf = 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). ForeColor = & HC000 &. Caption = "Розрахунок виконаний" SubSub Command2_Click ()
EndSub
Список літератури
. Бахвалов Н.С. Чисельні методи. т.1., М.: Наука, 1975.
. Волков Е.А. Чисельні методи. М.: Наука, 1982
. Шалигін А.С. та ін Автоматизація розрахунку траєкторій ЛА: Навч. посібник. - Л., 1990. p> 4. <
