, HA
130 INPUT ’’Введіть коефіцієнт кавернозності ……………………...’’ , K
140 INPUT ’’Введіть внутрішній діаметр обсадної колони (м)……...’’ , DOK
150 INPUT ’’Введіть глибину спуску обсадної колони (м)…………..’’ , LK
160 PRINT ’’Введіть коефицієнти місцевих опорів обв’язки ,(м^(-4))*10^(-5):
170 INPUT -вертлюга……………….’’ , A1
180 INPUT -стояка…………………..’’ , A2
190 INPUT -квадрата………………..’’ , A3
200 INPUT -шланга………………….’’ , A4
205 INPUT ’’Введіть перепад тиску на долоті (Па)……………………’’ , PD
210 PRINT
220 INPUT’’Чи всі дані що не змінюються введені правильно (Y/N) – ’’ , K$
230 IF K$=’’Y’’ OR K$=’’y’’ THEN 260
240 IF K$=’’N’’ OR K$=’’n’’ THEN 70
Продовження до додатку В
250 GOTO 220
260 CLS
280 PRINT ’’Введіть змінні вихідні дані’’
290 INPUT ’’Введіть кількість секцій труб ( БT i ОБТ ) – ’’ , N
300 FOR I=1 TO N
305 CLS
310 PRINT ’’Введіть довжину ’’ ; I ; : INPUT ’’секції (м)……………’’ , L(I)
320 PRINT ’’Введіть зовнішній діаметр труб ’’; I ;
330 INPUT ’’секції (м)……… ’’ , D1(I)
340 PRINT ’’Введіть товщину стінки труб ’’ ; I ; : INPUT ’’секції ….’’ , TS(I)
350 D2(I)=D1(I)-2*TS(I)
360 PRINT’’Введіть зовнішній діаметр замка труб ’’ ; I ;
370 PRINT ’’секції (м)………’’ , DS(I)
380 INPUT’’Введіть внутрішній діаметр замка труб ’’ ; I ;
390 INPUT’’секції (м)………’’ , DV(I)
400 INPUT ’’Введіть відстань між замками (м)……………………….’’ , LS(I)
410 INPUT ’’Чи всі змінні дані введені правильно (Y/N) – ’’ , K$
420 IF K$=’’Y’’ OR K$=’’y’’ THEN 450
430 IF K$=’’N’’ OR K$=’’n’’ THEN 310
440 GOTO 410
450 NEXT I
470 PI=3.1415
370 INPUT
480 FOR I=1 TO N
490 DSV=0
500 V(I)=(4*Q)/(PI*(D2(I))^2)
510 VKR(I)=(3000*EF+(9*10^6*EF^2+2000*(D2(I))^2*HA*R)^(1/2))/(2*R*D2(I))
520 IF V(I)>VKR(I) THEN 570
Продовження до додатку В
530 RE(I)=((V(I))^2*D2(I)*R*6)/(D2(I)*HA+6*V(I)*EF)
540 LM(I)=64/(RE(I))
550 PT(I)=(LM(I)*L(I)*(V(I))^2*R)/(D2(I)*2)
560 GOTO 600
570 RE(I)=(V(I)*D2(I)*R)/EF
580 LM(I)= .181/((RE(I))^(1/5))
590 PT(I)=(LM(I)*L(I)*(V(I))^2*R)/(D2(I)*2)
600 PSA(I)=((((D2(I))^2/(DV(I))^2-1)^2*L(I)*(V(I))^2*R)/LS(I)
610 L=L+L(I)
620 IF L>=LK THEN 630 ELSE 640
630 DSV=DD*K :GOTO 650
640 DSV=DOC
650 VK(I)=(4*Q)/(PI*(DSV^2-(D1(I))^2))
660 VKK(I)=(3000*EF+(9*10^6*EF^2+1500*(DSV-D1(I))^2*HA*R)^(1/2))/2*R*(DSV))
670 IF VK(I)>VKK(I) THEN 720
680 REK(I)=((VK(I))^2*R*8*(DSV-D1)))/(((DSV-D1(I))*HA)+(8*VK(I)(I)*EF))
690 LKP(I)=96/REK(I)
700 PKP(I)=(LKP(I)*L(I)*(VK(I))^2*R)/((DSV-D1(I))*2)
710 GOTO 750
720 REK(I)=(VK(I)*(DSV-D1(I))*R)/EF
730 LKP(I)= .181/((REK(I)^(1/5)
740 PKP(I)=(LKR(I)*L(I)*(VK(I))^2*R)/((DSV-D1(I))*2)
750 PKS(I)=((((DSV^2-(D1(I))^2)/(DSV^2-(DV(I))^2))-1)^2*L(I)*(VK(I))^2*R)/
760 P1=P1+PT(I)+PSA(I)
770 P2=P2+PKP(I)+PKS(I)
780 NEXT I
790 POB=(A1+A2+A3+A4)*10^5*R*Q^2
800 P=P1+P2+POB+PD
Продовження до додатку В
810 PRINT ’’ Вихідні дані ’’
820 PRINT ’’ ====== === ’’
830 PRINT ’’ Конструкція бурильної колони ’’
840 PRINT
850 PRINT ’’===============================================’’
860 PRINT ’’| номер секції | довжина | діаметр | товщина | ’’
870 PRINT ’’| (звеху – вниз ) | секції ,(м) | секції , (м)| стінки , (м) | ’’
880 PRINT ’’===============================================’’
890 FOR I=1 TO N
900 PRINT USING ’’ | ## | #### | ### | ’’ ; I ,L(I),D1(I)*1000
910 PRINT USING ’’## . ## | ’’ ; TS(I/*1000
920 NEXT I
930 PRINT ’’=============================================’’
940 PRINT
950 PRINT ’’ Для продовження натисніть ’Ввод’ ’’ , W
960 PRINT
970 PRINT ’’ Конструкція обсадної колони ’’
980 PRINT
990 PRINT ’’==============================================’’
1000 PRINT ’’ | Довжина колони, | Усереднений внутрішній | ’’
1010 PRINT ’’ | м | діаметр ,мм | ’’
1020 PRINT ’’=============================================’’
1030 PRINT USING ’’ | #### | ### . # | ’’ ; LK,DOK*1000
1040 PRINT ’’==============================================’’
1050 PRINT ’’ Для продовження натисніть ’Ввод’ ’’ , W
1060 PRINT
1070 PRINT ’’діаметр долота (м)……………………………….’’ , DD
1080 PRINT ’’коефіцієнт кавернозності ……………………...’’ , K
1090 PRINT ’’густина бурового розчину (кг/м^3)…………….’’ , R
Продовження до додатку В
1100 PRINT ’’витрата бурового розчину (м^3/с)…………….’’ , Q
1110 PRINT ’’ефективна в’язкість (Па*с)…………………….’’ , EF
1120 PRINT ’’напруження зсуву (Па)…………….’’ , HA
1130 PRINT ’’коефицієнти місцевих опорів обв’язки ,(м^(-4)):
1140 PRINT -вертлюга……………….’’ , A1*10^5
1150 PRINT -стояка…………………..’’ , A2*10^5
1160 PRINT -квадрата………………..’’ , A3*10^5
1170 PRINT -шланга………………….’’ , A4*10^5
1175 PRINT ’’перепад тиску на долоті (Па)……………………’’ , PD
1180 PRINT
1190 PRINT ’’ Результати розрахунку ’’
1200 PRINT ’’ ========= ========= ’’
1210 PRINT ’’Втрати тиску в циркуляційній системі ’’ ; P
1220 PRINT ’’ в тому числі: ’’
1230 PRINT ’’ в кільцевому просторі ’’ ; P2
1240 PRINT ’’ в трубах ’’ ; P1
1245 PRINT ’’ перепад тиску на долоті ’’ ; PD
1250 INPUT ’’Чи буде друкувати ? (Y/N) – ’’ , K$
1260 IF K$=’’Y’’ OR K$=’’y’’ THEN 1290
1270 IF K$=’’N’’ OR K$=’’n’’ THEN 1810
1280 GOTO 1250
1290 INPUT ’’Чи буде друкувати вихідні дані ? (Y/N) – ’’ , K$
1300 IF K$=’’Y’’ OR K$=’’y’’ THEN 1330
1310 IF K$=’’N’’ OR K$=’’n’’ THEN 1710
1320 GOTO 1290
1330 INPUT ’’Введіть межі інтервалу (розділяючи їх комою) ’’ , Z1 , Z2
1340 LPRINT ’’ Інтервал ’’ ; Z1 ; ’’ - ’’ ; Z2 ’’м’’
1350 LPRINT
1360 LPRINT’’ Вихідні дані ’’
Продовження до додатку В
1370 LPRINT’’ ====== === ’’
1380 LPRINT’’ Конструкція бурильної колони ’’
1390 LPRINT
1400 LPRINT ’’==============================================’’
1410 LPRINT ’’| номер секції | довжина | діаметр | товщина | ’’
1420 LPRINT ’’| (звеху – вниз ) | секції ,(м) | секції , (м) | стінки , (м) | ’’
1430 LPRINT ’’==============================================’’
1440 FOR I=1 TO N
1450 LPRINT USING ’’ | ## | #### | ### | ’’ ; I ,L(I),D1(I)*1000
1460 LPRINT USING ’’## . ## | ’’ ; TS(I/*1000
1470 NEXT I
1480 LPRINT ’’=============================================’’
1490 LPRINT ’’ Конструкція обсадної колони ’’
1500 LPRINT
1510 LPRINT
1520 PRINT ’’==============================================’’
1530 PRINT ’’ | Довжина колони, | Усереднений внутрішній | ’’
1540 PRINT ’’ | м | діаметр ,мм | ’’
1550 PRINT ’’=============================================’’
1560 PRINT USING ’’ | #### | ### . # | ’’ ;