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

Tobs = -1 / nyu * Log(x)

Tsis = Tsis + Tobs + Voj

Tosv = Tosv + Tobs

Kobs = Kobs + 1

GoTo 30

End If

100: Kpr = Tnezan / Tsis

Potk = Kotk / k

q = 1 - Potk

Ab = q * L

j = j + 1

List1.AddItem (Str(j) + "-е испытание при:")

List1.AddItem ("Лямбда=" + Str(lyamda) + " Нью=" + Str(nyu) + " L=" + Str(L))

List1.AddItem ("Количество заявок в" + Str(j) + " испытании = " + Str(k) + " и потраченное время =" + Str(Tsis))

List1.AddItem ("Вероятность отказа=" + Str(Potk))

List1.AddItem ("Коэффициент простоя=" + Str(Kpr))

List1.AddItem ("Относительная пропускная способность" + Str(q))

List1.AddItem ("Обсолютная пропускная способность" + Str(Ab))

List1.AddItem ("")

List1.AddItem ("")

a(j) = (lyamda + nyu + L) * Toj

List2.AddItem ("a(" + Str(j - 1) + ")=" + Str(a(j)))

Next L

Next nyu

Next lyamda

Label1.Caption = "Tож = " + Str(a(1)) + " + " + Str(a(2)) + "lymda" + " + " + Str(a(3)) + "nyu" + " + " + Str(a(4)) + "L"

End Sub