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

x = Rnd(x)

Tobs2 = -Tau_obs_2ya_regul * Log(x)

Tosv2 = Tosv1 + Tobs2

Tsis2 = Tsis2 + Tobs2

List2.AddItem (Str(Kobs - 1) + " и " + Str(Kobs) + " агрегаты - " + Str(Tobs2))

GoTo 5

Else

n = n + 2

Toch2(n - 1) = Tosv1

Toch2(n) = Tosv1

Voj2 = Tosv2 - Toch2(1)

For i = 1 To n - 2

Toch2(i) = Toch2(i + 2)

Next i

n = n - 2

Toj2 = Toj2 + Voj2

x = Rnd(x)

Tobs2 = -Tau_obs_2ya_regul * Log(x)

Tsis2 = Tsis2 + Tobs2 + Voj2

Tosv2 = Tosv2 + Tobs2

Kobs = Kobs + 2

a2 = a2 + 2

List2.AddItem (Str(Kobs - 1) + " и " + Str(Kobs) + " агрегаты - " + Str(Tobs2))

GoTo 5

End If

End If

30: Kotk = Kotk + 2

If Tpost < TosvP Then

m = m + 2