s (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 = Mn - Rashod * (i + h/2) (3, 1) = h * (Rs - 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 = Mn - Rashod * (i + h) (4, 1) = h * (Rs - 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)) (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)))/ 6 = 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) & vbCrLfIfi = Tg Then
str = str & "Значення коефіцієнтів" & vbCrLf & "на першому кроці Р-К" & vbCrLf
str = str & "K (1,1) =" & Round (K (1, 1), CLng (Text21.Text)) & vbCrLf = str & " ; K (1,2) = "& Round (K (1, 2), CLng (Text21.Text)) & vbCrLf = str &" K (1,3) = "& Round ( K (1, 3), CLng (Text21.Text)) & vbCrLf = str & "K (1,4) =" & Round (K (1, 4), CLng (Text21.Text)) & vbCrLf = str & "K (2,1) =" & Round (K (2, 1), CLng (Text21.Text)) & vbCrLf = str & "K (2,2 ) = "& Round (K (2, 2), CLng (Text21.Text)) & vbCrLf = str &" K (2,3) = "& Round (K (2, 3) , CLng (Text21.Text)) & vbCrLf = str & "K (2,4) =" & Round (K (2, 4), CLng (Text21.Text)) & vbCrLf = str & ; "K (3,1) =" & Round (K (3, 1), CLng (Text21.Text)) & vbCrLf = str & "K (3,2) =" & Round (K (3, 2), CLng (Text21.Text)) & vbCrLf = str & "K (3,3) =" & Round (K (3, 3), CLng (Text21.Text )) & vbCrLf = str & "K (3,4) =" & Round (K (3, 4), CLng (Text21.Text)) & vbCrLf = str & "K (4 , 1) = "& Round (K (4, 1), CLng (Text21.Text)) & vbCrLf = str &" K (4,2) = "& Round (K (4, 2), CLng (Text21.Text)) & vbCrLf = str & "K (4,3) =" & Round (K (4, 3), CLng (Text21.Text)) & vbCrLf = str & "K (4,4) =" & Round (K (4, 4), CLng (Text21.Text)) & vbCrLf = 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)). Text = strIfi.Text = Round (V, CLng (Text21 . Text)). Text = Round (Q, CLng (Text21.Text)). Text = Round (x, CLng (Text21.Text)). Text = Round (y, CLng (Text21.Text))
'----------...
