Составители:
Рубрика:
144
Ниже приводится программа №2 расчета на ЭВМ, которая позволяет вести
проектирование струйного насоса по заданному режиму работы с выполнением двух
указанных условий.
Программа № 2
PROGRAM PUMP 2
REAL K0,KI,K2,K3,KPQ,KH,KA
BYTE ESC,CL,HOM
DATA ESC,CL,HOM/27,69,72/
DIMENSION AS(100),HS(100),QS(100), ETAS(I00), DSS(100),
*DKSS(100),P04S(100),P01S(100), Q0S(100)
61 TYPE 54.ESC.CL
54 FORMAT (2X,2A)
OPEN (UNIT= 1 ,NAME='PUMP 2-DAT;l)
READ (5,20) KPQ,KH,KA,P4i,Q!,RO,E,P04X,P04N,Q0X,Q0N
20 FORMAT (F 16.5)
TYPE 54,ESC,CL
K0=0.03
Kl=0.06
PI=3.1415926
B=l.
43 I=1
WRITE (5,44)
WRITE (1,44)
44 FORMAT (//3X,'A',6X,'Q',6X,'H',6X,’ETA',6X,'DS',6X,'DKS',
*6X,’P04’,5X,’P01’,4X,’Q0’)
P04=P04X
Q0=Q0N
IF(P04N-P04X) 21,21,6
21 IF(Q0N-Q0X) 22,22,6
22 DQ=KPQ*(Q0X-Q0N)
DP=KPQ*(P04X-P04N)
GOTO 1
2 Q0=Q0+DQ
IF(Q0-Q0X) 23,23,6
23 P04=P04-DP
IF(P04-P04N) 6,1,1
1 H=P41/(P41+P04)
IF (H-l.) 24,6,6
24 Q=Ql/Q0
IF (Q*H/(I.-H)-0.4) 26,25,25
25 IF (Q0-Q0X) 2,6,6
26 AN=Q+1.
АХ=(1.+(1.-Н)**0.5/Н
A=AN
IF (AX-AN) 2,2,5
5 A=A+KA*(AX-AN)*B
IF (A-AX) 27,27,2
27 IF (A-1.4) 28,29,29
28 K3=0.22
K2=0.08
GOTO 30
Click here to buy
A
B
B
Y
Y
P
D
F
T
r
a
n
s
f
o
r
m
e
r
2
.
0
w
w
w
.
A
B
B
Y
Y
.
c
o
m
Click here to buy
A
B
B
Y
Y
P
D
F
T
r
a
n
s
f
o
r
m
e
r
2
.
0
w
w
w
.
A
B
B
Y
Y
.
c
o
m
Страницы
- « первая
- ‹ предыдущая
- …
- 142
- 143
- 144
- 145
- 146
- …
- следующая ›
- последняя »
