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

Tau_obs_2ya_regul = Val(Text3.Text)

Tmod = 6000

K = 0

Kobs = 0

Tsis1 = 0: Tsis2 = 0

Tpost = 0

Tosv1 = 0: Tosv2 = 0

Toj1 = 0: Toj2 = 0

Tnezan1 = 0: Tnezan2 = 0

n = 0

p = 0

a2 = 0

L1 = 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

If p = Vmestimost Then

GoTo 1

Else

p = p + 2

L1 = L1 + p

Toch1(p - 1) = Tpost