.56: Fzab = nu * (D1 ^ 2)/4: Q1 = qud * Fzab
v = .5: Fk = nu * (D1 ^ 2 - dn1 ^ 2)/4: Q2 = v * FkQ1> Q2 THEN Q = Q1 ELSE Q = Q2
LOCATE 1, 38 "Раціональний витрата дорівнює"; Q; "м3/с"
'------------------ Початок буріння ---------------------
l1 = lubt: l3 = lobs: l2 = Ln - l1 - ltb - l3
'Розраховуємо втрати всередині труб
'_УБТС_
dv = dv1: l = l1: km = km11 = Pv "Pv1 ="; Pv1/10 ^ 6; "МПа"
'_EU_ = dv2: l = (l2 + l3): km = km21 = Pv "Pv2 ="; Pv2/10 ^ 6; "МПа"
GOTO 4
'Підпрограма для обчислення втрат всередині труб
f (n) = (1 + 3 * n) ^ 2/n * (1/(2 + n)) ^ ((n + 2)/(n + 1)) = 6464 /f (n) = nu * (Revkr * dv ^ (4 - 3 * n) * k * ((3 * n + 1)/n) ^ n/ro/2 ^ ((7 -
* n)) ^ (1/(2 - n)) Q
Pv = 4 * k * l/dv * km * (8 * Q/nu/dv ^ 3 * ((3 * n + 1)/n)) ^ n:
RETURN
v = 4 * Q/nu/dv ^ 2: Rev = 8 ^ (1 - n) * (4 * n/(1 + 3 * n)) ^ n * v ^ (2
-) * dv ^ n * ro/K = .3164/Rev ^ .25: Pv = lam * l * ro * Km * v ^ 2/2/dv: RETURN
4 'Розраховуємо втрати в затрубному просторі
'_УБТС_
D = D1: dn = dn1: l = l15 = Pk "Pk1 ="; Pk1/10 ^ 6; "МПа"
'_Необсаженная частина EU_
D = D2: dn = dn2: l = l2
GOSUB 5 = Pk "Pk2 ="; Pk2/10 ^ 6; "МПа"
'_Обсаженная частина EU_
D = D3: dn = dn3: l = l3
GOSUB 5 = Pk "Pk3 ="; Pk3/10 ^ 6; "МПа" 8
'Підпрограма для обчислення втрат в затрубному просторі
f (n) = (1 + 2 * n) ^ 2/n * (1/(2 + n)) ^ ((n + 2)/(n + 1)) = 4848 /f (n) = nu/4 * (D ^ 2 - dn ^ 2) * (Rekkr * k * ((2 * n + 1)/n) ^ n/ro/12 ^
(1 - n)/(D - dn) ^ n) ^ (1/(2 - n)) Q
Pk = 2 ^ (2 + 4 * n) * k * ((2 * n + 1)/n * Q/nu/(D + dn)) ^ n * l/(D -) ^ (2 * n + 1): RETURN
Pkkr = 2 ^ (2 + 4 * n) * k * ((2 * n + 1)/n * Qkkr/nu/(D + dn)) ^ n * l/
(D - dn) ^ (2 * n + 1) = Pkkr * (Q/Qkkr) ^ 1.5: RETURN
'Втрати в заколонном просторі за замками
'_УБТС_
D = D1: dm = dm1: dn = dn1: lm = lm1: l = l1: l0 = l01
GOSUB 9 = Pkm "Pkm1 ="; Pkm1 ​​/ 10 ^ 6; "МПа"
'_Необсаженная частина EU_ = D2: dm = dm2: dn = dn2: lm = lm2: l = l2: l0 = l029 = Pkm "Pkm2 ="; Pkm2/10 ^ 6; " МПа "
'_Обсаженная ча...
