стина EU_ = D3: dm = dm3: dn = dn3: lm = lm3: l = l3: l0 = l039 = Pkm "Pkm3 ="; Pkm3/10 ^ 6; " МПа "12
'Підпрограма для обчислення втрат за замками
f (n) = (1 + 2 * n) ^ 2/n * (1/(2 + n)) ^ ((n + 2)/(n + 1)) = 4848 /f (n) = nu/4 * (D ^ 2 - dm ^ 2) * (Rekmkr * k * ((2 * n + 1)/n) ^ n/ro
/12 ^ (1 - n)/(D - dm) ^ n) ^ (1/(2 - n)) = 8 * Q ^ 2 * ro/nu ^ 2/(D ^ 2 - dm ^ 2) ^ 2 * (1.25 + (D ^ 2 - dm ^
2)/(D ^ 2 - dn ^ 2) * (.75 ​​* (D ^ 2 - dm ^ 2)/(D ^ 2 - dn ^ 2) - 2)) PkmmQ < ; Qkmkr THEN 10 ELSE 11
Pkm = l/l0 * (2 ^ (2 + 4 * n) * k * ((2 * n + 1)/n * Q/nu/(D + dm)) ^
n * lm/(D - dn) ^ (2 * n + 1) + Pkmm): RETURN
Pkm = l/l0 * (Pkmm + .192 * Q ^ 2 * ro * lm/nu ^ 2/(D - dm) ^ 3/
(D + dm) ^ 2): RETURN
Pobv = Aobv * ro * Q ^ 2 "Втрати тиску в обв'язці насосів ="; CINT (Pobv * 100/10 ^
6)/100; "МПа" = ro/2 * (Q/ny/fd) ^ 2 "Перепад тиску на долоті"; CINT (Pd * 100/10 ^ 6)/100 ;
"МПа" = Atb * ro * Q ^ 2 "Перепад тиску на турбобура"; CINT (Ptb * 100/10 ^ 6)/100;
"МПа"
Pv = Pv1 + Pv2: PRINT "Втрати тиску всередині труб ="; CINT (Pv * 100
/10 ^ 6)/100; "МПа"
Pk = Pk1 + Pk2 + Pk3 + Pkm1 ​​+ Pkm2 + Pkm3
PRINT "Втрати тиску за трубами і за замками ="; CINT (Pk * 100/
^ 6)/100; "МПа" = Pk + Pv "Втрати тиску в циркуляційної системі (без долота і
турбобура) = "; CINT (Pp * 100/10 ^ 6)/100;" МПа "
Pn = Pp + Pobv + Pd + Ptb "Тиск на насосі одно"; CINT (Pn * 100/10 ^ 6)/100;
"МПа"
Отримані результати:
Розрахункова щільність = 1290 м3/кг
Статична репресія на пласт = 2.239МПа
Раціональний витрата дорівнює 22 л/с = 6.225212 МПа = 4.777287 МПа = .6457102 МПа
Pk2 = .8889973 МПа
Pk3 = 1.353835 МПа = 0 МПа = .2399901 МПа = .2722004 МПа
Втрати тиску в обв'язці насосів = .212 МПа
Втрати тиску всередині труб = 11.002 МПа
Втрати тиску за трубами і за замками = 3.401 МПа
Втрати тиску в циркуляційної системі (без долота і турбобура =
.4 МПа
Тиск на насосі одно 14.616 МПа
