1
: 1, .
:
- 
- = 90 /.;
- ij D = 0,09 ;
- S = 0,09 ;
- = 0,009 ;
- ³ F = 1,3;
- f = 0,4;
- 
, , , 
, . 3 
, 
. 4-10. 4 , 5 :
䒺, , 6 2 . 7 , . , 8 11 . 9 , , 4 . , 10 , 4. 8 .
11 , 12 . 
, 2 , 13 . 14-16 
.
:
CLS
D =.09
S =.09
E =.009
H1 =.004
G = 5
n = 110
F = 2
fc =.2
fz = F * fc
ro = 520
delH =.001
eps0 =.2
fi = ATN(S / 3.14 * D)
Gp = G / n
b = (S - E) * COS(fi)
2:
H = H1 + delH
A1 = (D - 2 * H) / D
w0 = 0
delw =.5
A2 = ((3.14 / 4) * ((D ^ 2) - (D - 2 * H) ^ 2) - ((E * H) / (TAN(fi)))) * 3.14 * D * n * TAN(fi)
4:
w0 = w0 + delw
w1 = ATN((1 / fc) - (A1 / (F * fc * COS(w0 + fi)))) - fi
IF w1 < 0 THEN GOTO 2 ELSE GOTO 7
7:
w1 = w1 - w0
eps = ABS(w1)
IF eps < eps0 THEN GOTO 11 ELSE GOTO 9
9:
IF w1 < 0 THEN GOTO 4 ELSE GOTO 10
10:
w0 = w0 - delw
delw = delw / 3
|
|
|
11:
Gpp = A2 * ro * ((TAN(w0)) / (TAN(fi) + TAN(w0)))
IF Gpp > Gp THEN GOTO 2 ELSE GOTO 13
13:
H = 1.1 * H
IF H < H1 THEN H1 = H1 ELSE GOTO 16
PRINT USING " rifle's lenght of channel ###.##"; H1
PRINT "w1=", w1; "w0=", w0:
16:
H1 = H
PRINT " rezults"
PRINT USING " rifles' lenght of channel1 ####.## "; H1
PRINT w1=,w1;
END
:
.
