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

End If

30: If Tpost < Tosv Then

GoTo 20

Else

GoTo 40

End If

20: If Noch = L Then

Kotk = Kotk + 1

GoTo 10

Else

Noch = Noch + 1

Toch(Noch) = Tpost

GoTo 10

End If

40: If Noch = 0 Then

Kobs = Kobs + 1

Tnezan = Tpost - Tosv

x = Rnd(x)

Tobs = -1 / nyu * Log(x)

Tosv = Tpost + Tobs

Tsis = Tsis + Tobs

GoTo 10

Else

Voj = Tosv - Toch(1)

For i = 1 To Noch - 1

Toch(i) = Toch(i + 1)

Next i

Noch = Noch - 1

Toj = Toj + Voj