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 "Введіть кількість секцій труб ( БТ і ОБТ ) - " ,N

300 FOR 1=1 ТО N

305 CLS

310 PRINT "Введіть довжину ";І;:INPUT "секціі (м) ................. ", L(I)

320 PRINT "Введіть зовнішній діаметр труб "/І;

330 INPUT "секціі (м) ..... " ,DZ(I)

340 PRINT "Введіть товщину стінки труб";І;:INPUT "секціі (м) ....... ",TS(I)

350 DV(I)=DZ(I)-2*TS(I)

360 PRINT "Введіть зовнішній діаметр замка труб ";І;

370 INPUT "секціі (м).... ",DZZ(I)

380 PRINT "Введіть внутрішній діаметр замка труб ";І;

390 INPUT "секціі (м)... ",DVZ(I)

400 INPUT "Введіть відстань між замками (м) ..................... ",LZ(І)

405 INPUT "Коефіцієнт опору................................ ",КМС

410 INPUT "Чи всі змінні дані введені правильно (Y/N) - ", К$

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

480 FOR 1=1 TO N

490 DSV=0

500 V(I)=4*Q/(PI*DV(I)X2)

510 RE(I)=V(I)*DV(I)*RO/ETA

520 HE(I)=TAU*DV(I)X2*RO/ETAA2

530 REKR(I)=2100+7.3*HE(I)".58

540 IF RE(I)>REKR(I) THEN 600

550 PRINT "При ламінарному русі використовуємо спрощену методику

(Труба)";І;"Секція"

560 SEN(I)=TAU*DV(I)/(ETA*V(I)) ;PRINT " SEN= ",SEN(I)

570 INPUT "Коефіцієнт BETA ",BETAT(I)

580 PT(I)=4*TAU*L(I)/(BETAT(I)*DV(I))

590 GOTO 630

600 DELTA=.0003

610 LAM(I)=.1*(1.46*DELTA/DV(I)+100/RE(I))".25

620 PT(I)=LAM(I)*V(I)'2/2*RO/DV(I)*L(I)

630 PZAM(I)=KMC*(DV(I)^/DVZ (І)Л2-1)'2*RO*V(I)'2/2*L(I)/LZ (I)

640 L=L+L(I):L1(I)=L1(I-1)+L(I)

650 IF L>=LK THEN 660 ELSE 670

660 DSV=DD*K^.5 :DELTA=.003:GOTO 680

670 DSV=DOK:DELTA=.0003

680 VKP(I)=4*Q/(PI*(DSV'2-DZ(I)A2))

690 REKP(I)=VKP(I)*(DSV-DZ(I))*RO/ETA

700 HEKP(I)=TAU*(DSV-DZ(I))A2*RO/ETA'2

710 REKPKR(I)=2100+7.3*HEKP(I)".58

720 IF REKP(I)>REKPKR(I) THEN 780

730 PRINT "При ламінарному режимі використовуємо спрощену методику (КП) " ;І; "Сек"

740 SENKP(I)=TAU*(DSV-DZ(І))/(ETA*VKP(І)):PRINT "SEN=",SENKP(І)

750 INPUT " Коефіцієнт BETA ",BETAKP(I)

760 PKP(I)=4*TAU*L(I)/(BETAKP(I)*(DSV-DZ(I)))

770 GOTO 800

780 LAMKP(I)=.106*(1.46*DELTA/(DSV-DZ(I))+100/REKP(I))".25

790 PKP(I)=LAMKP(I)*VKP(I)A2/2*RO/(DSV-DZ(I))*L(I)

800 PKZAM(I)=KMC*((DSVA2-DZ(І)Ж2)/(DSV'2-DZZ(I)A2)-1)A2*RO*VKP(I)'2/2*L(I)/LZ(I)

810 PT=PT+PT(I)+PZAM(I)

820 PKP=PKP+PKP(I)+PKZAM(I)

830 NEXT I

840 POBV=(A1+A2+A3+A4)*10^5*RO*Q'2

850 PSUM=PT+PKP+POBV

860 INPUT "Коефіцієнт bp ",BP

870 PD1=BP*PNAS-PSUM

880 INPUT "Коефіцієнт витрати my ",MY

890 VD=MY*(2*PD1/RO)A.5

900 IF VD<80 THEN 990

910 FD1=Q/VD

920 DN=INT((4*FD1/(PI*3))A.5*1000)+!

930 FD=PI*(DN/1000)A2*3/4

940 VN=Q/FD

950 PD=RO*VNX2/(2*MY^2)

960 GOTO 1020

990 PRINT " Гідромоніторний ефект не забезпечується "

1000 INPUT " Коефіцієнт витрати my ",MY

1010 PD=RO*VDA2/(2*MY^2)

1020 P=PSUM+PD

1030 PRINT " Вихідні дані "

1040 PRINT » ======= ===== «

1050 PRINT " Результати розрахунку "
1060 PRINT
1070 PRINT

n__=___========-=========-=======================================:==-====-=====»

1080 PRINT "| інтервал | D, |товщ,.ст| V, | RE | REKn | Втр. | Втр. в

кільц. I"

1090 PRINT "| м | mm | mm | м/с | | | Р,МПа |

перер. Ркп ,МПа | "

1100 PRINT

1110 FOR 1=1 TO N

1120 PRINT USING "| ####-#### | ###.#| ##.## |##.U\ ##### | ##### | ##.## |

##.## |";L1(I-

1) ,L1(I) ,DZ(I)*1000/TS(I)*1000,V(I) /RE (I) /REKPd) , PT (I)/1000000 !;PKP (I)/1000000 !

1130 NEXT I

1140 PRINT

1150 PRINT

1160 INPUT "Для продовження натисніть 'Ввод' ",W

1170 PRINT

1180 PRINT " Конструкція обсадноі колони "

1190 PRINT

1200 PRINT «==============================================="

1210 PRINT "| Довжина колони, | Усереднений внутрішній |" 1220 PRINT "| м | діаметр ,мм |" 1230 PRINT "==============================================="

1240 PRINT USING "| #### | ###.# |";LK,DOK*1000
1250 PRINT »==============================================="

1260 INPUT "Для продовження натисніть 'Ввод' ",W

1270 PRINT

1280 PRINT "Діаметр долота ,мм .................. " /DD*1000

1290 PRINT "Коефіцієнт кавернозності ............" ;К * 4

1300 PRINT "Густина бурового розчину (кг/мА3) .... " ;RO ..;

1310 PRINT "Витрата бурового розчину (л/с)....... " ;Q*1000

1320 PRINT "Ефективна в'язкість (Па*с)............" /ЕТА

1330 PRINT "Динамічне напруження зсуву (Па)......." ;TAU

1340 PRINT "Коефіцієнти місцевих опорів обв'язки (мА(-4)):п
1350 PRINT " -вертлюга........." /А1*10А5

1360 PRINT " -стояка .........." /А2*10А5

1370 PRINT " -квадрата........." ;АЗ*10А5 Ј

1380 PRINT " -шланга .........." ;А4*10А5

1390 PRINT

1400 PRINT " Результати розрахунку "

1410 PRINT " ========== ========== »

1420 PRINT "Втрати тиску в циркуляційній системі "/ Р/1000000! " МПа"

1425 PRINT " без долота "; PSUM/1000000!" МПа"

1430 PRINT " в тому числі:"

1440 PRINT " в кільцевому просторі "/ РКР/1000000! " МПа"

1450 PRINT " в трубах "; РТ/1000000! " МПа"

1455 PRINT "Втрати тиску в долоті "; PD/1000000! " МПа"

1460 INPUT "Чи будете друкувати ? (Y/N) - ", К$

1470 IF K$="Y" OR К$="у" THEN 1500

1480 IF K$="N" OR K$="n" THEN 2010

1490 GOTO 1460

1500 INPUT "Чи будете друкувати вихідні дані ? (Y/N) - ", К$

1510 IF K$="Y" OR K$="y" THEN 1540

1520 IF K$="N" OR K$="n" THEN 1910

1530 GOTO 1500

1540 INPUT "Введіть межі інтервалу (розділяючи іх комою) ",Z1,Z2

1550 LPRINT " Інтервал ";Zl/"-"/Z2 "м"

1560 LPRINT

1570 LPRINT " Вихідні дані "

1580 LPRINT " ======== == = = = »

1590 LPRINT " Результати розрахунку "
1600 LPRINT
1610 LPRINT

1620 LPRINT "І інтервал | D, |товщ.стін| V, | RE | КЕкп | Втр. | Втр. І

кільц. |"

1630 LPRINT "| м | мм | ки,мм | м/с | | | Р,МПа |

перер.Ркп,МПа |"

1640 LPRINT

II».__.. — _.._.-._-.—„__ — — ._.-___ — — — -- — —.— — — — _.__ — ,— ^ — _ — — _^___- — — — — — _ — __ — —._.___»___._____«______««___ II

1650 FOR 1=1 ТО N

1660 LPRINT USING »| ####-####| ###.# | ##.## | ##.#| ##### | ##### | ##.## |

##.## І» ;L1(I-

1),L1(I),DZ(I)*1000,TS(I)*1000,V(I),RE(I),REKP(I),PT(I)/1000000!,PKP(I)/1000000!

1670 NEXT I

1680 LPRINT

1690 LPRINT

1700 LPRINT " Конструкція обсадноі колони "

1710 LPRINT

1720 LPRINT "===============================================»

1730 LPRINT "І Довжина колони, | Усереднений внутрішній |" 1740 LPRINT "І м | діаметр ,мм |"

1750 LPRINT »===============================================»

1760 LPRINT USING "| #### | ###.# |";LK,DOK*1000
1770 LPRINT "===============================================»

1780 LPRINT

1790 LPRINT "Діаметр долота ,мм .................. " ;DD*1000

1800 LPRINT "Коефіцієнт кавернозності ............ " ;К

1810 LPRINT "Густина бурового розчину (кг/мА3).... " ;RO

1820 LPRINT "Витрата бурового розчину (л/с).....'.. " ;Q_*1000

1830 LPRINT "Ефективна в'язкість (Па*с)............" ;ЕТА

1840 LPRINT "Динамічне напруження зсуву (Па)......." ;TAU

1850 LPRINT "Коефіцієнти місцевих опорів обв'язки (мА(-4)):"
I860 LPRINT " -вертлюга........." ;АІ*10А5

1870