i ii :
i , i i , i i i i;
, i i i i;
, i i i i- i i i ;
i , i i ( i, i, , i), i , i ii i , i i i ;
i;
i (, i ) ii , i i i i i , i i, i ;
- i, i i i .
i ii i i i i. i ii . i i i, ii .
ii i , i , i i, i i i, i i i .
i i , i ' i , / /3. i i ii i ( 5000-15 000 /) i i i ( 200 /).
i , i i , , , i i i i, i i 40-100 / i ii i (i ) i 300 /, - 3000 /.
, i i i ii. (ii i i (), i i i i i i, ).
i - i, i--ii i iii.
ii i , i ii i (, , ii i), i i ii. ii i i ii, i , i , - . i i , i, i i .
i-ii i ( , i i ) i i i ii i, i i i. i i.
|
|
iii i ii iii, iii i i , i i i . i - i , .
i i i , ii i , i i i-i i . i . 8.1.
8.1
ii i i
, / | , | , / | |
5 000-15 000 | 50-100 | ||
50-100 | 25-30 | ||
50-100 | 0,3 | 15-30 | |
ϳ- | 30 | - | 10-15 |
i i i i i, i i i . .
i 100 3/ ii i, - i. - i 4-5 3/ i .
i i , i iii i, i i , i i . i i i 1-2 i i 10-15 i 0,75 i i. ii i i i. i 1 /.
i i i i i i ii. i i i . 0,3 /, iii - 0,15 /. ii 0,5 - 1 .
i :
V h
l = ----,
v
V - i i i; h - ; v - i i i (. 8.2).
i :
Q
F = ---,
v
Q - .
8.2
i i i
, | 0,20 | 0,25 | 0,30 | 0,35 | 0,40 | 0,50 |
, / | 11,2 | 19,0 | 25,6 | 31,6 | 37,8 | 49,3 |
, i i i , i .
ii . i i , ii i . i i 50-100 /. i i i i i i. ii i ii , i i i i i i.
|
|
. 8.3 , 30 /. , ii i 2, i i i i .
. 8.3. i 30 /: 1 - i-; 2 - i ; 3 - i ; 4 - i
i i i i , i ii i i . i i i i i , i i . -, , i i 3, i ii i. -, i, i i 2, i - i.
i i i 1 . i i i . i , i ii , i .
iii i, i i, i i 0,2 i i i. i , ii i, .
i i. i i , i i i i (-) . i i i i . i i , ii ii 2 i . ii i , - . i , - . i - 0,6 /.
i i i ii i ii . 30-40 ., i i. i i i i 100 .
i i i:
d 2
v = --- (r - r),
18 m
d - i , ; m - ii -i ; r i r - i .
i , i i , i i .
i i i (. 8.4) ii -i v i i i v . i i L i i () i i ii v i v .
. 8.4.
i i 0,005-0,01 /. i i i Q, iii i : , L i . , i , :
Q
F = --,
v
Q - ᒺ i.
i (. 8.6) ii i v, v , i L:
|
|
v H
-- = --.
v L
i iii iii H/L i 1:10 1:20.
, , :
v
L = -- H.
v
i i
H L
t = -- = --.
v v
Q = v F = v b H,
b = Q/v H.
i i i i i i i i i . i i i i, , i i i.
i, , i i i 0,2-0,4 , i i, i . i ii i ii i i, .
i i i i. i - 1,5-2% i ii , . i i i i (100-200 1 ), i .
ii , i , i i i. i - , i .
i i: ( i ), i i. - - i .
, i , 1-1,2 1 3 , i i i i i .
i , i ii i, i i i ii, , , - . i ' ii- i i 1:25.
i i i . i, i i , - i.
i i
i, ii, i ii . i , i i i . i i i .
i
1. i ii .
2. i ?
3. i i?
4. i , -i, - i i i i?
1
BASIC
|
|
10 CLS
20 FOR I = 0 TO 1200: NEXT
30 DIM Q(60), HS(60), DST(15), LD(60), KR(60), V(60)
40 FOR I = 1 TO 15: READ DST(I): NEXT I
50 PRINT " ╔═════════════════════════════════╗"
60 PRINT " ║ ║"
70 PRINT " ║ ║"
75 PRINT " ║ ║"
80 PRINT " ╚═════════════════════════════════╝"
83 PRINT
86 PRINT
87 PRINT " "
90 INPUT " . , ./ ",Q
95 PRINT " ─────────────────────────────────"
100 INPUT " , "; L
105 PRINT " ────────────────────────────────"
110 INPUT " . "; KSI
115 PRINT " ────────────────────────────────"
120 INPUT " 1-., 2-. "; Y
125 PRINT " ────────────────────────────────"
130 INPUT " , "; T
135 PRINT " ────────────────────────────────"
140 IF Y =2 GOTO 180
150 INPUT " : -, 1- "; M
160 IF M = 0 THEN GM = 780 ELSE GM = 700
170 IF M = 0 THEN PN = 7600 ELSE PN = 23100
180 INPUT " , ./ ";HK
190 PRINT
200 PRINT TAB(12); ". . NU = 1.25E-06 ./ "
210 PRINT
220 PRINT TAB(12); "-1, - ";: INPUT K
230 IF K = 0 THEN NU = 1.25E-06: GOTO 270
240 PRINT
250 PRINT TAB(8); " : . , ./";
260 INPUT NU
270 PRINT: PRINT TAB(10); " !"
280 PRINT STRING$(80,42);: FOR I = 0 TO 1000: NEXT I
290 PI = 3.1415926#: G = 9.81: PA = 101325!300 IF Y = 1 THEN VMAX = 1.5 ELSE VMAX = 2.5
.1
310 IF Y = 1 THEN B$ = " " ELSE B$ = " "
320 DR = (Q / (900 * PI * VMAX)) ^.5
330 FOR I = 1 TO 15: IF DST(I) >= DR THEN GOTO 370
340 NEXT I
350 PRINT " MAX "; DR; ">"; DST(15)
360 GOTO 810
370 D = DST(I): A$ = " "
380 A1$ = ╔═════════╤════════════╤═══════════╗"
390 AA$ = "║ │ │ . │ │ ║"
400 AB$ = "║ / │ │ │ ./ │ , ║"
410 A2$ ╚═=═════╪════════════╪═══════════╣"
415 A3$ ╚═=═════╧════════════╧═══════════╝"
|
|
420 PRINT TAB(10); A1$: PRINT TAB(10); AA$: PRINT TAB(10); AB$
430 PRINT TAB(10); A2$: J = 0:
440 FOR I = HK TO Q STEP HK
450 J = J + 1: Q(J) = I: V = I / (900 * PI * (D ^ 2)): KR = V * D /NU
460 IF KR <= 2300 THEN 490
470 IF KR <= 100000! THEN 500
480 LD =.771 * KR ^ (-.237) +.0037: GOTO 510
490 LD = 64 / KR: GOTO 510
500 LD =.3164 / (SQR(SQR(KR)))
510 KR (J) = KR: V(J) = V: LD(J) = LD: HS(J) = (V ^ 2) * (LD * L / D + +KSI) / (2 * PI)
520 PRINT TAB(10);"║ ";: PRINT USING "##.###"; V(J);: PRINT TAB(25); "│ ";
530 PRINT USING "######"; KR;: PRINT TAB(37);" │ ";
540 PRINT USING "#.######"; LD;: PRINT TAB(49);" │ ";: PRINT USING "####.#"; I;
550 PRINT TAB(62);" │ ";: PRINT USING "###.###"; HS(J);: PRINT TAB(74); " ║"
560 NEXT I: PRINT TAB(10); A3$: PRINT
570 IF V > VMAX THEN QMAX = 900 * PI * VMAX * (D ^ 2) ELSE GOTO 630
580 PRINT " Q="; QMAX; " ./ "
590 PRINT " "
600 PRINT
610 PRINT " *** "
620 PRINT " *** "
.1
630 PRINT TAB(4); " 'ET' ";
640 A$ = INKEY$: IF A$ = CHR$(&HD) GOTO 650 ELSE GOTO 640
650 IF Y = 2 GOTO 760
660 PVH = PA - HS(J) * GM - V(J) ^ 2 * GM / 2 * G: PT = 1.15 * PN
670 D1$ = "P = ": D2$ = "1,15 P . = "
680 IF PVH <= PT THEN D$ = " ": GOTO 730
690 PRINT STRING$(1,26)
700 PRINT SPC(15); " -."
710 PRINT: PRINT TAB(10); D1$; PVH; " > "; D2$; PT; " "
720 PRINT: GOTO 760
730 PRINT STRING$(1,26)
740 PRINT SPC(15); " ": PRINT
750 PRINT TAB(10); D1$; PVH; " < "; D2$; PT; " ": PRINT
760 PRINT STRING$(1,26)
770 PRINT TAB(6); " "
780 PRINT
790 PRINT " DR "; " DST "; " NU "; " QMAX "; "L "; " KSI "; "HK"
800 PRINT: PRINT DR; D; NU; Q; L; KSI; HK: PRINT
810 PRINT: PRINT TAB(14); "1. "
820 PRINT TAB(14); "2. "
830 PRINT TAB(14); "3. "
840 PRINT TAB(14); "4. "
850 PRINT TAB(14); "5. "
860 PRINT: PRINT TAB(14); " ";
870 FFU$ = INPUT$(1)
880 FU = VAL(FFU$)
890 ON FU GOTO 380, 910, 1010, 50, 1000
900 PRINT
910 PRINT TAB(11); " ( , ):"
920 PRINT: FOR I = 1 TO 8: PRINT SPC(3);
930 PRINT USING "#.###"; DST(I);: NEXT I
940 PRINT: FOR I = 9 TO 15: PRINT SPC(3);
950 PRINT USING "#.###"; DST(I);: NEXT I
960 PRINT: PRINT
970 PRINT TAB(11); " , ";
980 INPUT D: GOTO 380
990 DATA.04,.05,.07,.08,.1,.125,.15,.175,.2,.25,.3,.35,.4,.5,.6
1000 PRINT CHR$(12): END
.1
1010 PRINT TAB(14); "*** '' ***"
1020 LPRINT TAB(43); " "
1030 LPRINT TAB(40); " "
1040 LPRINT: LPRINT TAB(16); B$
1050 LPRINT: LPRINT TAB(18); " ": LPRINT
1060 LPRINT TAB(7); ". . , ./C"; NU
1070 LPRINT TAB(7); " , "; L
1080 LPRINT TAB(7); ". "; KSI
1090 LPRINT TAB(7); " , "; T
1100 LPRINT: LPRINT TAB(16); " ": LPRINT
1110 LPRINT TAB(7); " , ";
1120 LPRINT USING "#.###"; DR:
1130 LPRINT TAB(7); " , ";
1140 LPRINT USING "#.###"; D:
1150 LPRINT: LPRINT TAB(15); AO$:
1160 LPRINT TAB(4); A1$: LPRINT TAB(4); AA$: LPRINT TAB(4); AB$
1170 LPRINT TAB(4); A2$:
1180 FOR I = 1 TO J
1190 LPRINT TAB(4);"║ ";: LPRINT USING "##.###"; V(I);: LPRINT TAB(19); "│ ";
1200 LPRINT USING "######"; KR(I);: LPRINT TAB(31);" │ ";
1210 LPRINT USING "#.######"; LD(I);: LPRINT TAB(43);" │ ";: LPRINT USING "####.#"; Q(I);
1220 LPRINT TAB(56);" │ ";: LPRINT USING "###.###"; HS(I);: LPRINT TAB(68); " ║"
1230 NEXT I:LPRINT TAB(4); A3$
1250 IF Y = 2 GOTO 860
1260 IF PVH <= PT GOTO 1280
1270 LPRINT SPC(15); " - "
1280 LPRINT: LPRINT TAB(10); D1$; PVH; " "
1290 LPRINT: LPRINT TAB(10); "P . = "; PN; " "
1300 GOTO 860
1310 LPRINT TAB(4); STRING$(67, 45): RETURN
2
, 3/ | , | , / | ij , | , | , | , | |
6-72 | 120\140 | 7,7 | |||||
4 | 2950\1450 | 265\280 | 75\14 | ||||
5 | 180\150 | 31-38 | 325-350 | 6,8 | |||
6 | 216\300 | 38-48 | 360-380 | 40-55 | 5,5 | ||
6 | 252-360 | 54-47 | - | 55-75 | - | ||
8 | 400\500 | 36\28 | 500\470 | 6,5 | |||
8-92 | |||||||
8-63 | - | - | |||||
10-102 | |||||||
-51 | 60\120 | 90\45 | 6,5 | ||||
-57 | 150\70 | 70\137 | |||||
6-72 | 110-160 | 140-150 | 57,5 | ||||
-60 | 75\60 | 75\65 | 235\218 | 23,5\19 | 7-7,5 | ||
-20075 | |||||||
4-62 | 120\240 | 300\150 | |||||
4-62 | |||||||
-80-60 |
. 2
-65 | 7,5 | ||||||
-20-40 | 2,9 | 17,0 | 7,5 | ||||
-53 | 8,8 | ||||||
6-61 | 7,8 | ||||||
6-91 | 6,8 | ||||||
4-4 | 60-90 | 67-48 | |||||
3-6 | 5,6 | ||||||
6-8 | 170\140 | 32,5\36 | 5,0\6,3 | ||||
8-93 | |||||||
6-72 | |||||||
6-61 | |||||||
45-8 | |||||||
55-8 | |||||||
6-104 | |||||||
5-68 | |||||||
3-62 | |||||||
4-52 | |||||||
4-54 | |||||||
5-52 | |||||||
4-54 | |||||||
6-104 | |||||||
4-51 | 30-60 | 57-47 | |||||
5-51 | 40-100 | 112-88 | |||||
5-91 | 50-95 | 56-40 |
. 2
8- | 600-400 | 35-42 | ||||||
12- | 1000-650 | 24-30 | ||||||
-65\35-125 | 65-35 | |||||||
-200\120-70 | 200-120 | |||||||
-200\120-10 | 200-120 | |||||||
-560\335-70 | 560-335 | |||||||
-560\335-20 | 560-335 | |||||||
-560\335-80 | 560-335 | |||||||
-200\120-70 | 200-120 | |||||||
-80 | 149\200 | 30(350) | 7,0 () | |||||
-20-24 | 180\200 | 40(433) | ||||||
1-0,9 | 1-3,5 | 32-12,5 | 1,5 | |||||
1,5-1,3 | 4-8 | 50-10 | 6-4 | |||||
-25 | 4,5 | |||||||
-32\25 (3- ) | 25 \2 | |||||||
-45\6,3 (3- ) | 6 \2 | |||||||
-45\4,5 (3- ) | 4,5 \2 | |||||||
-90\6,3 (3- ) | 6 \2 | |||||||
. 2
-85\25 (3- ) | 25 \2 | |||||||
-1,5 | 5,4 | 7,5 | ||||||
-6 | 21,6 | |||||||
-10 | ||||||||
-25 | ||||||||
-8 | 21,5 | |||||||
-50 | ||||||||
-100 | 250 \2 | 150 .. | 5,5 | |||||
-200 (3- ) | 170\200 | 200 \2 | 1350\1500 | 300 .. | 5,5 | |||
-0,2\25 | 0,2 | 0,7 | ||||||
-0,4\20 | 0,4 | 2,2 | ||||||
-3\5 | 3,2 | 1,5 | ||||||
-6,3\25 | 6,3 | 7,5 | ||||||
-3 | 1,1 | 1,5 | ||||||
-4,5 | 3,3 | 1,5 | ||||||
-7,5 | ||||||||
-30 | 5,5 | 48(253) | 6,5 | |||||
-60 | 10,5 | 92,6(415) | 7,0 | |||||
. 2
䳿 | |||||||
-2 | 15-22 \ | ||||||
-2 | 18-27 \ | ||||||
18-27 \ | |||||||
-4 | 40-60 \ | ||||||
-40 | 35-65 \ |
3