- .
:
- ;
- ;
- ;
- =0,3 ;
- =0,15 ;
- : ρ ν ;
- ke.
,
2.5-20.2001
, (2.1)
, ;
- , ;
- , ;
- , 2/;
- 3/;
- , / 3;
- , =0,01 .
(2.1)
(2.2)
, , .
, .
. , :
- (4);
- (26);
- (38);
- (410);
- (512).
, .
( 2.3)
μ - ;
r ' - .
( 2.4)
.
'
(2.5)
' - .
ʳ
(2.6)
.
ϳ (2.2) -1
.
, .
2.1.
2.1 -
ij | Dxδ, | d, | L, | Q, 3/ | Pn, | , | . |
-1 | 3255 | 31,5 | 0,3 | 0,2855 | |||
1-2 | 2735 | 26,3 | 0,2855 | 0,2718 | |||
2-3 | 2735 | 26,3 | 0,2718 | 0,2640 | |||
3-4 | 1594,5 | 0,2640 | 0,1925 | ||||
4- | 1594,5 | 0,1925 | 0,1871 | ||||
4- | 1083 | 10,2 | 0,1925 | 0,1491 | < 0,15 | ||
³ 1 | |||||||
1-5 | 1594,5 | 0,2855 | 0,2687 | ||||
5- | 1594,5 | 0,2687 | 0,2466 | ||||
5- | 1083 | 10,5 | 0,2687 | ³' | < 0,15 | ||
³ 5 | |||||||
5- | 763 | 0,2687 | 0,2262 | ||||
5- | 573 | 5,1 | 0,2262 | ³' | < 0,15 | ||
³ 2 | |||||||
2- | 1083 | 10,2 | 0,2718 | 0,1858 | |||
2- | 893 | 8,3 | 0,1858 | ³' | <0,15 | ||
³ 3 | |||||||
3- | 893 | 8,3 | 0,2640 | 0,1535 | |||
3- | 763 | 0,1535 | ³' | < 0,15 | |||
³ 4 | |||||||
4- | 1594,5 | 0,1925 | 0,1587 | ||||
4- | 1083 | 10,2 | 0,1587 | ³' | < 0,15 |
|
|
2.1
Private Sub CommandButton1_Click()
10 PP = 0.3: v = Worksheets(1).Cells(4, 9): qq = Worksheets(1).Cells(4, 11): m = 0: n = Worksheets(1).Cells(5, 9)
11 Dim L(100)
12 Dim Q(100)
13 Dim d(100)
14 Dim pk(100)
20 For i = 1 To n
30 L(i) = Worksheets(1).Cells(4 + i, 2)
40 Q(i) = Worksheets(1).Cells(4 + i, 3)
50 d(i) = Worksheets(1).Cells(4 + i, 5)
55 Next i
56 For i = 1 To n
57 Worksheets(1).Cells(4 + i, 6) = PP
60 pk(i) = (PP ^ 2 - 1.54 * 10 ^ -5 * (0.01 / d(i) + 1922 * v * d(i) / Q(i)) ^ 0.25 * qq * Q(i) ^ 2 / d(i) ^ 5 * L(i)) ^ (1 / 2)
70 Worksheets(1).Cells(4 + i, 7) = pk(i)
80 PP = pk(i)
90 Next i
110 Dim Lv(100)
120 Dim Qv(100)
130 Dim dv(100)
150 For k = 1 To n - 1
160 Lv(k) = Worksheets(1).Cells(4 + n + k, 2)
170 Qv(k) = Worksheets(1).Cells(4 + n + k, 3)
180 dv(k) = Worksheets(1).Cells(4 + n + k, 5)
190 Next k
195 For k = 1 To n - 1
196 i = k: Po = pk(i): Worksheets(1).Cells(4 + n + k, 6) = Po
200 pk(k) = (Po ^ 2 - 1.54 * 10 ^ -5 * (0.01 / dv(k) + 1922 * v * dv(k) / Qv(k)) ^ 0.25 * qq * Qv(k) ^ 2 / dv(k) ^ 5 * Lv(k)) ^ (1 / 2)
210 Worksheets(1).Cells(4 + n + k, 7) = pk(k)
220 Next k
End Sub