600 PRIHT

610 PRIHT

620 PRINT "

630 PRINT

640PRIHI" ЯРИ НА ПРІНТЕР (Y/U)"

650 Q$=I9XEI$

660-IF Q$="y" OB 3S-"i:! THEH 590

670 IF QS="nu OR Q$=T THE!! 783

680 GOTO 650

ОУО L-ґЛІіії ГОЗрЗХУНОЕ Dt КЗ ЕИТрИЕлЛІСТЬ СТ'/ЛёНТЗ ГрУПі! "'. bEGl'Fi; '' '; ?IF$

700 LPRIHT "І_t . ' ] ] "

710 LPRIBT " И L, І І УЗОБ І Ш I Ds j DTP і запас | "

720 LPRINT " I ms І на І шш І т ІетШсгі! 1!

730 LPHIHT '**.=*———I^——J *———I———JJ- J " 7jn rOR - _ ! ТГійпПл » * я « «

/*iv iUu ii - 1 ІУ ya-i

750 LPRIHT USIliG "| |i;; ^^ ;| "-^ Л =?i !i :^ з ї?г !! ^.?^ ;: "; Z; LfZ)

; BKZmoo0;B2{zmow::. ... ;:D.;i2!ncco:;;;:;

760 НЕП Z

770 ІРВШ "" * " !! -Д———ii— i! -J "

730 Ш

я oo am Q к. Ж

10 CIS 20 LS-0

30 DIH G(50),D1(50).D2(50),L{50),GT{50)',H(50}.LZ!50).1)3(50) 40 PI=3.14159:6E=9.8100Gl:El=2.1Eill:I-OM-7S50 45 TOT Трупа ? ".GROUPS 45 INPUT "Прізвище ",РШ 50 INPUT "Кількість інтервалів ",QQQ 60 INPUT "Коефіцієнт Архимеда ",ВЕТА 70 INPUT "Кутова швидкість долота, 1/с ",OMEGA ; 80 INPUT "Густина 6.p., кг/Іуб.м. "ДО і 90 INPUT Тілр. сили в полот! та ОБ!. Н :'-GG і 100 INPUT "йоиент ка лслоті, Н*н B.HD:H(0)=HD*

105 INPUT "йзвантаї. на лолото, Н ",GD І ПО ШРОТ "Коефіцієнт V ",В \ 120 INPUT "Діаметр лолота, т \ВВ:0В-Ш.ООІ , 130 hi

;;140 PRINT "Інтервал";!;" обсаліекий ? (у/п) ї 150 Q$-INEEY$

; 160 IF Q$=V OR Gi-T THEH 200 ' 170 IF &$-V OR Q$-"N" THEN 190 ' 180 GOTO 150 190 INPUT "Коефіцієнт Еоверкоутворення ",EK:DC:EK»:BD:GOTO 2

(10

,'200 IKFUT "Внутрішній діаметр обе. колони, мм ",DC:DC=DC*.001 ' '210 PRINT "Відстань віл 0-го ло ";!;"-го перерізу, м ";:ЇЙРІ'Т" \ї ^220 INPUT "Зовнішній ліаметр замка, мк u,DZ{I):D2iI):BZ(I)**

.001

і 230 PRINT "Зовн.ліакетр тр.";І;"-го перерізу, мн ";:I!iFUT" ",LGiIi:D*

3{I)=D3(I)*.001

І240 INPUT "Зовнішній ліаметр перерізу, мн ЧМИІІВШ^ВШ)*

Г .001

'250 INPUT "Внутрішній ліаметр перерізу. MM ",D2(I):D2(!)=D2(I)t

і .001

260 PRINT "Вага 1 м труб POST, нал ":І;"-ин пер.,кг/н ";:І8РОГ ",QT(I}:Q tI(I)=QT(I)*9.810001

^270 PRINT "ДовІ. міі ";І;"-ии і ";Ы:"-ин пер., к ";:ІШТ" ",L(I ;.) . 280 INPUT "Неіа текучості, Шіа ",ST:ЈT-STnODOOOO!

290 INPUT "Неіа витривалості, Нйа ' ",8Й1:8Н1:ЗН1ПООООО

О! .300F1=(PI/4)*(D3(I)"2-D2(I)'2)

ЗОЇ IF Z>0 THEN 302 ELSE SOS=GD/F1:GOTO 320

302 IF Ql=l THEH 310 ELSE G(I-l)=QT{I-l}tZ:Ql=l:EEEP

310 SOS=(G(I-1)*BETA+L-(I)*QT(I)*BETA+GG)/F1

320 F=(DC-DZ(I})/2:IZ=fPI/64)*{Dl{I)4-D2{I)A4):re2={?!/S2:i*((Dl{I)4-D2{I)"4)/Bl

(I))

330 LP=SQRfGE/2*(Z4SQR(""2^(4^1 ti:?-OHEGA'2)/{GT(I)tGE})))*Fi/GHEGA

340 SZG=Pn*El*IZ*F/(LF"2^Z',

350 G{I)=G(IHQT{lML(It

360 H(I)=H(I-1)^;''' .7tD3fir2*LiD

370 »K=2*»Z

380 Щ=И(І)/»І

390 TT=ST/SQR(3)

400 ST=TT/T!8:SS=(ST*SHl}/(STtSZG+SHl*SOS)

410 Я(І)=83Ш/80йіКЗ'2+йї'2)

420 CLS

430 PRINT

440 PRINT

450 IF fi(IXI.5 ТНЕІІ РВШ"Змешть ловіияу лзної секдіі або перейдіть ка більшу

групу мішюсті

460 PRINT

{$оо а/л о it X

10 CLS

20 LS^O

ЗО ВІН 6(50),D1(50).D2(50),L{50},GT{50KH(50}.DZ{50}.D3;SO)

40 PI=3.14159:GE=9.810001:E1=2.1E+11:FOK=7850

45 ТОТ Трупа ? ':.GBOU?$

46 INPUT "Прізвище \P1F3*

50 INPUT "Шшеть інтервалів ",QQQ ', 60 IHPUT "Коефіцієнт Архимеда ",БЕТА ;; 70 INPUT Тутова швидкість долота, 1/с ",OMEGA

-'80 INPUT "Густина 6.p., кг/куб.м. \W

ї 90 IHPUT Тілр. сили в долоті та GBT. Н '"Ж

І 100 INPUT "йомент на долоті, Н*н \HD:HiO)-HB

\ 105 INPUT "НавантаІ. на долото, Н ",GB

Ш IHPUT Коефіцієнт V М,Б

г 120 IHPUT "Діаметр долота, мм ",BB:DD-BDU01

\ 130 1=1

\Ш PRINT "Інтервал";!;" обсаліений ? (у/п)

S 150 Q$:IN!EY$

\ 160 IF QS-Y OR fiS-"Y" ШН 200

; ПО IF Q$="n" OR Q$=T THEN ISO

l 1ЁО GOTO 150

{190 IHPUT "Коефіцієнт коверкоутворення ",KK:DC:EK»:DD:GOTO 2

HO

j:200 INPUT "Внутрішній діаметр обе. колони, мм ",DC:DC=DC*.001 "

('210 PRIHT "Відстань віл 0-гс ло ";І;"-го перерізу, м ";:ШиІ" %Z

"220 INPUT "Зовнішній діаметр замка, мк UJZ{I):BZ(I}:BZ(I)*

f .001

\ 230 PRIHT "Зови.діаметр тр.";І;"-го перерізу, мн ";:I!iFUT" ",B3(I5:D

v3(I}rD3(I)*.001

1240 I8PUT "Зовнішній діаметр перерізу, ми МШІІІВИМШ)*

І.001

r'250 INPUT "Внутрішній діаметр перерізу. MM ",D2{I):D2(!)=D2{D*

[ .001

\ 260 PRINT "Вага 1 м труб &озт. над ":І;"-як пер.,кг/и ";:!ЙРОТ" ",QT(I}:Q

ll(I)=QT(I)*9.810001

Г 270 PRIHT "Довї. міі ";І;"-им і ";!+1;"-ии пер., м . "::ІйРиГ ",КІ

!;)-,-

: 280 INPUT "Heis текучості, МПа ",8Т:5Т-8ТПОООООО!

^*290 INPUT "Mesa витривалості, НПа * ' ",SHl:SMl=SKinOOOOO

О!

:300Pl=(PI/4)*(D3(I)"2-D2(n'2) '. 301 IF Z>0 ЇНЕВ 302 ELSE SOS=GD/F1:GOTO 320

302 IF Ql=l ШН 310 ELSE G(I-l)=QT(I-l)tZ:Ql=l:EEEP : 310 SOS=(G{I-11*BETA+L(I)*QT{I)*BETA+G6)/F1

320 F=(DC-DZ(I))/2:IZ=fPI/64)HDl{I)4-D2{I)A4):»2=(PI/S2i*({DKI)'4-D2{I)^)/Dl

(I))

330 LP=SQR(GE/2*(Z^SQRiZ*2tf4*Eiri:»OHEGA'2)/:QT{I:-i:-ES!!^Fi/OHEGA

340 SZG=Pr2*El*IZ*F/(LP*2*HZ)

350 G(I)=G(I)+QT{I)«L(I) :360 Н(І)=Н(І-І)ФГ ' .7i[(3frr2*LiI)

370 WK=2*WZ

380 ТЮПШ :390 TT=ST/SQR(3)

400 HT=T^IB:8S=(ST<SHl)/«STtSZG+SHl*SOS)

410 H(I)=83*BT/SQSiSS*2+NT'2)

420 CLS

430 PRIHT

440 PRIHT

450 IF ВПХ1.5 ЇШ РВІНТ"Зменаіть ЛОБЇИЯУ даної секаіі або перейдіть ка білішу

групу міиаості

460 PRIHT____________________________________________

?ОЗр5ХуКОК 1>ї На БИТрИБаЛІСЇЬ С~УДсН75 ГруПіі hfc-J;';-i А^ОМЄЙ

ї N І! І *

І я

1 |

L ш |

ВЗСЕ

ЇГІЕ |

DBH І| Вз І

ЗЕі 1 Шы !* |

Втр

SS |

І запас

Іі СТІЙКОСТІ

її

л

В .-,!! Oil

4І d

! 1 |

6 270 250 2250 370 |

117 117 114 114 І 114 J

; |

68

68 90 90 90 |

146 j 146 1 114 j 114 і

114 І

1 |

146 146 114 114 114 |

1 ІІ.40ІЗ І 7.8132 ї 2.4955 І 2. 1618

І 2.4272

1

Розрахунок II на витривалість студента групи НБ-97-1 Хромей

Н і

і |

L, ш |

Е'ЭОБ ES |

!і

DBH І Бз

ШЗ S ES |

І В:Г

' !TtU

а |

і запас | стійкості

и

11 6

2 114 3 250 |

163 183 132 |

90 90 101- |

І 223 Г 229

1 178

і |

1 2-'9

і b~Q

\ ^Q

1 ііЗ ! 1 .Іл

'? і Ч У

і |

і 1.5809 І 1.6020 ! 3.3555

Розрахунок EF, на витривалість студента групи НБ-97-1 Хрокей

Я І

1 |

L, aj!

! |

Е'зов 1 шш І |

DBH і

шш і

і! |

Вз j

sa I |

І Г,Тг. і

І І!Т^

1 ES I |

;* запас 1 j стійкості}!

її 2| |

ft I 1

36 1 |

133 І

iUt' »

183 |