-** *= ^ ***- ** * * ; . * *- ;
17:r- PRINT '.-:.. ...*-..:.* :'...,.:.;
174 PRIM? USING "-О."' . -! ";Т1("ї ,12 (I) ;
17 S NEXT I
180 PRINT '-:,===*--==——,-.
185 PRINT :Ii'IPUT 'OK I'!-.. . . .. . . . .. .1.. ... . .. . - ,Y M}-".Kv
190 IF К **' OR К.'-.-*'' у THEM ,_ rv
i::o; IF к$- І--;- OR к?- '''' ''
200 BEEP : PRINT : PRIK , ;.,-..:,,. ,.z, -*:*..-..:.< :.L ": Pi-...:.. */,':/ i. о 5 205 PRINT
INPUT * ' ' ' ' ' " ' -****-**** '. v -N; - . K$ :/-: IF КЗ- "Y ' І, ' ' . ' : : ../i'U JL
. '.:: IF КЗ- 'N'' CT, ,,.,;--.. a ':
__- BEEP : PRINT : PRIM? ' -.; [ : ' 1-; :
230 LPRiHT ' ГУСТ: * чсг. . : v.-;:-. ':;.
232 LPRINT " Ji: *
235 LPRINT -===========.==. ______:r:,;;..^
237 LPRINT "(Інтервал, і мі. .. *... . . . .......... . ; .
239 LPRINT "I M : :^ значення ! Б,/: . ' ' ' -
242 LPRINT " Івід до і : , *:,-:. . :
245 LPRINT " І І ——---—————————————;
247 LPRINT ' 1 | кг/:,. .* ::. .*:.. . . . ..ay.. \
255 FOR 1=1 TO N
'260 LPRINT USING "Vir-#-?###; ; ІЛ : -'..': , H,. U ,
^62 LPRINT USING :- I f- :'; Г ;R1 (I; , ::. . . ;
263 LPRINT USING "-.*?^. - . .. ' , ;
265 LPRINT US I KG -щ-~. : * -:. v- ; Г- ' , . ;
PO NEXT 'I
280 GOTO 120
^65 END
/:
ГУСТМНЛ :з -....-...т... - - -,. - ;: ТА
...і,; и iru'i.!. -її ІІ.-І і .....,; І....-. .... ....
овал, (мінімальне,;;.. . .- .... ; ефеь :
! з:: *;'І-_-::ІіЯ і * :;нл ' :/ ::'*: ' . :
! від до І густини і г. *-.. ,-іНИ і П^,'' : ; -. , .
І | . ; | —————————————————————————— ,.
' '.:оо і 9so і Іооо І о. L .. - ....., _ І; І. о ?; І. ~ о:
, .._.. _jOO| 1210 ! 1230 10.00010.000-0.00! 3.46;
і 1200 2::00| 1160 і 1200 | 0 . *"' . . " :.:0 | 0 . 00 S 3.20'
і.3510 -* ' -. і 1170 . . - .
10 CLS Додаток //
20 PRINT " .— -— ——; ЗО ПШ " | Розрахує с.;-:і:ль--:ї г-.-.ини j
40 mm- і І 50 РИНІТ : піт
80 PRINT : PHIS! : PRINT
90 INPUT "Бахаєте1 розпочати co-ow *:- псс:-^:.:;^ {y/n; ?'.Acr-$
100 IF ASKS = Vі OR ASKS - Т ЇНЕІІ GOTO 130
110 IF ASES - i:n" OR ASKS - Т Ш 3ISTEH
120 GOTO 90
130 DIH S$(7K 3(7), L(10), 6(10). НПО), ВЕЫШ, QOflO)
140 G - 0: M - 0: LSOH = 0
150 PI - 3.14159: GVP = 9.810001
160 DATA "flVEYTMVPVT
170 FOR I - 1 TO 6: READ SSfl): НЕП
130 DATA 379.552,655,758,930,1034
190 FOR I = 1 TO 6: READ S(I): S(I) - 3d) * 10 л 6: UEXT
200 CLS
210 PRINT : PRINT
220 PRINT "Для проведеная розрахунку введіть наступні величини :"
230 PRINT
240 INPUT "- глибину свердловини, м L =", LSV
250 ШРОТ "- зовнішній діметр труби, м Ds =", D1
260 INPUT "- густину бурового розчину, кг/мЗ р =", S
270 INPUT "- вагу бур. ікстр-нту ниіче першої сеиії, Н Gi-1-", GiO)
280 INPUT "- крутний момент ниіче першої секції, H*z Ні-1=", 11(0)
290 INPUT "- ДОБЇИКУ БЕ ниіче першої секції, в Ібк -", LS
300 INPUT "- кутову швидкість, с-1 w ' =", S
310 INPUT "- иаБ-ия,во СТВОР.внасл.перепаду тиску, Н G™ -", PG
320 INPUT "- запас стійкості п =". II
330 INPUT "- коефіцієнт V b -% В
340 INPUT "- коефіцієнт Архінела в =", БЕТА
350 І = О
360 І - І + 1
370 IHPUT "- товшину стінки, м t =", LELdi
380 INPUT "- ласу 1 к труби, кг/м q -\ Q(I): Q(i) = Q(
І) * GVP
390 INPUT " Будете вводити ае (y/n) ?".ASF.S
400 IF ASK$="Y" OR ASK$^"y" THEN 360
410 IF ASKS - V OR ASES - 1" ЇШ Ы. - I: GOTO 430
420 GOTO 390
430 I - 1
440 GOSUB 840
450 H = В * R * У '* .7 * Dl ' 2 * L(I)
450 G - QO(I) * Lll)*
;П0 LS = LS + HI; :IF LS>L37 ThEil Lin-LSv-iLS-Lili)
480 1=1+1
490 H(I - 1) -H(I - 2) f H
500 Gil - 1) - G(I - 2) 4 G
510 IF LS > LSv THEN 530
520 GOTO 440
530 PRINT " І-г?.т;.ЬГГ:- :::^X7H^ БЕ ЛЛЛ бї^ІНКЯ ПІН ПІ,. ...ОНУ
540 PRIM " .—————— ; .——, --—————І "
550 FHIlu " . N і, m І D-rtM I