420 GOTO 390

430 1=1

440 GOSUB 840

450 M = B*R*WA .7 * Dl A 2 * L(I)

460 G = QO(I) * L(I)

470 LS = LS + L(I)

475 IF LSxLSV THEN L(I)=L(I)-(LS-LSV)

480 1=1+1

490 M(I - 1) = M(I - 2) + M

500 G(I - 1) = G(I - 2) + G

510 IF LS > LSV THEN 530

520 GOTO 440

530 PRINT " Результат розрахунку бурильної колони: "

540 PRINT " н

550 PRINT " N L, m d,mm | t, mm |Група| G,kH | М,кНм | "

560 PRINT " м-CTij | |

570 PRINT " н

580 FOR Z = 1 TO I - 1

590 PRINT USING » # #### ###.# ##.# ! ####.## ###.##

Z; L(Z); Dl * 1000; DEL(Z) * 1000; SS$(Z); G(Z) / 1000; M(Z) / 1000

600 NEXT Z

610 PRINT » „

620 PRINT : PRINT

630 PRINT " Сумарна довжина бур.колони дорівнює: Ьсум = "/ LS; " "

640 PRINT " Приймаємо довжину бур.колони рівну : Ьбк = "; LSV; " "

650 PRINT

660 INPUT "Бажаєте роздрукувати результати розрахунку (у/п) ?", ASK$

670 IF ASK$ = "у" OR ASK$ = "Y" THEN GOTO 700

680 IF ASK$ = "n" OR ASK$ = "N" THEN SYSTEM

690 GOTO 650

700 LPRINT " Результат розрахунку розрахунку бурильної колони "

710 LPRINT " "

720 LPRINT " "

730 LPRINT " N L, m d,mm | t, mm |Група| G ,kH | М,кНм | "

740 LPRINT "м-сті| | | "

750 LPRINT " "

760 FOR Z = 1 TO I - 1

770 LPRINT USING » # #### ###.# ##.# ! ####.## ###.##

Z; L(Z); Dl * 1000; DEL(Z) * 1000; SS$(Z); G(Z) / 1000; M(Z) / 1000

780 NEXT Z

790 LPRINT " "

800 LPRINT

810 LPRINT " Сумарна довжина бур.колони дорівнює: Ьсум = "/ LS; " м "

820 LPRINT " Приймаємо довжину бур.колони рівну : Ьбк = "; LSV/ " м "

830 END

840 SC = 1

850 D = 1

860 D2 = Dl - 2 * DEL(D)

870 АЕ = (48 * Dl A 2) / (Dl A 2 + D2 А 2) А 2

880 DE = G(I - 1) * BETA + PG: F = PI / 4 * (Dl Л 2 - D2 ж 2)

890 СЕ = (S(SC) * F / N) A 2

900 FE=B*R*W^.7*D1^2

910 SE = Q(D) * BETA: QWE =SE^2+AE*FE^2

920 LR = (-(DE * SE + AE * FE * M(I - 1)) + SQR(CE * (SE A 2 - AE * FE A 2) -

AE * (DE * FE - SE * M(I -1)) A 2)) / QWE

930 L(I) = 12 * INT(LR / 12)

940 IF L(I) > 252 THEN 970 ELSE 950

950 IF D < DK THEN D = D + 1: GOTO 860 ELSE 960

960 IF SC < 7 THEN SC = SC + 1: GOTO 850 ELSE 530

970 DEL(I) = DEL(D): QO(I) = Q (D) : SS$ (I) = S$ (SC)

980 RETURN

Результат розрахунку бурильної колони

№ | L, m | D, мм | t, MM | Група

м-сті | G,kH | М, кНм

1 |

1524 | 127.00 | 10.0 | д | 2199.86 | 6.26

2 | 940 | 127.00 | 9.0 | Е | 1798.65 | 5.37

3 |

485 |

127.00 |

10.0 |

Д |

796.88 |

3.89

Сумарна довжина бурильної колони дорівнює: Ьсум = 2949 м " Приймаємо довжину бурильної колони рівну : Ьбк = 2940 м

ДОДАТОК В

10 CLS

20 PRINT " "

30 PRINT " Розрахунок бурильної колони на витривалість |"

40 PRINT " "

50 PRINT " Програму склав: ст.гр.НБз-99-2 "

60 PRINT " Янікович І.О. "

70 PRINT : PRINT : PRINT

80 INPUT "Бажаєте провести розрахунок (у/п) ?", ASK$

90 IF ASK$ = "у" OR ASK$ = "Y" THEN GOTO 120

100 IF ASK$ = "n" OR ASK$ = "N" THEN SYSTEM

110 GOTO 80

120 CLS

130 DIM G (10), Dl (10), D2 (10), L (10), QT (10), M (10), DZ (10), D3 (10)

140 LS = 0

150 PI = 3.14159: G = 9.810001: El = 2.1E+11: PM = 7850: M = 1000000!

160 PRINT "Для проведення розрахунку введіть наступні величини:"

170 INPUT " -кількість інтервалів К = ", К

180 INPUT " -коефіцієнт Архімеда в = ", ВТ

190 INPUT " -швидкість обертання долота, с-1 w = ", W

200 INPUT " -густину бурового розчину, кг/мА3 р = ", R

210 INPUT " -нав-ня,що створ-ся внасл.перепаду тиску Gr= ", GT

220 INPUT " -момент на долоті, Нм Мд= ", MD: М(0) = MD

230 INPUT " -навантаження на долото, Н Сд= ", GD

240 INPUT " -коефіцієнт 'b1 b = ", В

250 INPUT " -діаметр долота, м Вд= ", DD

260 1=1

270 PRINT " -інтервал "; І/ " обсаджений(у/п)? "; : INPUT " ", ASK$

280 IF ASK$ = "у" OR ASK$ = "Y" THEN GOTO 340

290 IF ASK$ = "n" OR ASK$ = "N" THEN