Реферат: Отчет по лабораторной работе Моделирование гидравлической системы в нестационарном режиме.

If culc = 4 Then x0 = x0s: y0(1) = y0s(1): y0(2) = y0s(2)

' Число шагов, шаг, кратность вывода

n = .Cells(11, 5): del = .Cells(11, 6): kv = .Cells(11, 7)

' Относительная локальная погpешность ( % ) и Кpатность шагов на вывод

ki1 = .Cells(12, 5): ki2 = .Cells(13, 5)

End With

'For ii = 1 To nv: vm(ii) = 0: Next ii

'For ii = 7 To 10: p(ii) = 0: Next ii

Worksheets("TMP").Activate

Cells.Select

Selection.Clear

Range("a1").Select

Worksheets("RESULTS").Activate

Cells.Select

Selection.Clear

Range("a1").Select

With Worksheets("RESULTS")

.Cells(1, 1) = "x0": .Cells(1, 2) = "y0(1)": .Cells(1, 3) = "y0(2)": .Cells(1, 4) = "p(7)": .Cells(1, 5) = "p(8)": .Cells(1, 6) = "p(9)": .Cells(1, 7) = "p(10)": For ii = 1 To 7: .Cells(1, ii + 7) = "vm(" + Str(ii) + ")": Next ii

.Cells(2, 1) = x0

.Cells(2, 2) = y0(1)

.Cells(2, 3) = y0(2)

For i = 1 To n

ki = ki1

Call step(x0, y0, del, x1, y1)

x0 = x1: x0s = x0

For j = 1 To m: y0(j) = y1(j): y0s(j) = y0(j): Next j

If (i \ kv) = (i / kv) Then

' out

.Cells(ipr1, 1) = x0