Курсовая работа: Регулировочный участок цеха

LP = 0

5: x = Rnd(x)

Tau = -Tau_postupleniya * Log(x)

Tpost = Tpost + Tau

If Tpost > Tmod Then

GoTo 40

Else

GoTo 10

End If

10: K = K + 2

If Tpost < Tosv1 Then

GoTo 30

Else

Tnezan1 = Tpost - Tosv1

x = Rnd(x)

Tobs1 = -Tau_obs_1ya_regul * Log(x)

Tosv1 = Tpost + Tobs1

Tsis1 = Tsis1 + Tobs1

GoTo 20

End If

20: If Tosv1 < Tosv2 Then

n = n + 2

Toch2(n - 1) = Tosv1

Toch2(n) = Tosv1

GoTo 5

Else

If n = 0 Then

Kobs = Kobs + 2

a2 = a2 + 2