Лабораторная работа: Планирование машинного эксперимента с имитационной моделью системы массового обслуживания

Dim Tobs As Currency

Dim Tosv As Currency

Dim Toch() As Currency

Dim Potk As Currency

Dim q As Currency

Dim a(8) As Currency

Dim Kpr As Currency

List1.Clear

List2.Clear

List2.AddItem ("Коэффициенты:")

For lyamda = 10 To 20 Step 10

For nyu = 5 To 15 Step 10

For L = 8 To 12 Step 4

ReDim Toch(L) As Currency

x = 0.5

k = 0

Kotk = 0

Noch = 0

Toj = 0

Tsis = 0

Kobs = 0

Tnezan = 0

Tpost = 0

Tosv = 0

10: x = Rnd(x)

T = -1 / lyamda * Log(x)

Tpost = Tpost + T

k = k + 1

If k > 50 Then