Page 66 - 33
P. 66
105 PRINT " Такого варiанту немає! ": GOTO 40
120 INPUT "Дiаметр бурильних труб, м (для закiнчення - 0) ",DBT
125 IF DBT=0 THEN PRINT "ТРИВАЛIСТЬ РУХУ В БУР. КОЛОНI, хв. ";
TS1/60: GOTO 40
130 INPUT "Товщина стiнки труби, м ", TBT
135 INPUT "Довжина секцiї∙, м ", LBT
140 D1=DBT-2*TBT
145 D2=0
150 L=LBT
155 GOSUB 500
160 TS1=TS1+T
165 GOTO 120
200 INPUT "Дiаметр долота, м ",DD
205 INPUT "Коефiцiєнт кавернозностi (для закiнчення -0) ",KAV
210 IF KAV=0 THEN PRINT "ТРИВАЛ. РУХУ В НЕЗАКРIПЛ. IНТЕРВ., хв.";
TS2/60: GOTO 40
215 INPUT "Зовнiшнiй дiаметр бурильних труб, м ",DBT
220 INPUT "Довжина дiлянки незакрiпленого iнтервалу, ",LD
225 D1=DD*KAV
230 D2=DBT
235 L=LD
240 GOSUB 500
245 TS2=TS2+T:GOTO 205
250 INPUT "Зовнiшнiй дiаметр обсадної труби, м ", DOT
255 INPUT "Дiаметр бурильної труби, (для закiнчення - 0) ", DBT
260 IF DBT=0 THEN PRINT " ТРИВАЛ. РУХУ В ЗАКРIПЛ. IНТЕРВ., хв.";
TS3/60: GOTO 40
265 INPUT "Товщина стiнки обсадної труби, м ", TOT
270 INPUT "Довжина секцiї обсадної колони, м ", LOT
275 D1=DOT-2*TOT
280 D2=DBT
285 L=LOT
290 GOSUB 500
295 TS3=TS3+T: GOTO 255
300 INPUT " Об'єм розчину в ємкостях на поверхнi, куб.м ", WN
305 TN=WN/Q
310 TS=TS+TN
315 PRINT " ЧАС НА ВИКАЧУВАННЯ РОЗЧИНУ З ЄМКОСТЕЙ, хв. " ;
TN/60: GOTO 40
320 CLS:PRINT :PRINT " Результати розрахунку
325 PRINT "Сумарний час руху бур. розчину "; TS/60; "хв."
330 PRINT " у т.ч. в бурильнiй колонi "; TS1/60; "хв."
335 PRINT " в незакрiпл. iнтерв. "; TS2/60; "хв."
340 PRINT " в закрiпл. iнтервалi "; TS3/60; "хв."
345 PRINT " час на викачуван. з ємкостей "; TN/60; "хв."
66