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

GoTo 5

End If

Else

If p = 0 Then

Tnezan1 = Tpost - Tosv1

x = Rnd(x)

Tobs1 = -Tau_obs_1ya_regul * Log(x)

Tosv1 = Tpost + Tobs1

Tsis1 = Tsis1 + Tobs1

GoTo 20

Else

p = p + 2

Toch1(p - 1) = Tpost

Toch1(p) = Tpost

Voj1 = Tosv1 - Toch1(1)

For i = 1 To p - 2

Toch1(i) = Toch1(i + 2)

Next i

p = p - 2

L1 = L1 + p

Toj1 = Toj1 + Voj1

Tobs1 = -Tau_obs_1ya_regul * Log(x)

Tsis1 = Tsis1 + Tobs1 + Voj1

Tosv1 = Tosv1 + Tobs1

GoTo 20

End If

End If

20: If Tosv1 < Tosv2 Then

n = n + 2