Гидромашины и компрессоры. Ч.2. Касьянов В.М - 145 стр.

UptoLike

ВУЗ: 

РГУНиГ им. Губкина | Москва

Составители: 

Рубрика: 

145
29 K3=0.125+Q/(5.6*(A-l.)-! .14)
K2=0.005+Q/(13.48*(A-l.)-3.41)
IF(A-24.) 30,30,31
31 K2=0.02
K3=0.16
30 Y1=(A-I.-Q)*(A-1.+2.*(A-1.)**2.+Q)
Y2=(K2+K3)*((Q+1.)*(A-1.))**2.
Y3=Kl*(Q*A)**2.
Y4=A**2.*((l.+K0)*(A-l.)**2.-(l.+Kl)*Q**2.)
HA=(Y1-Y2-Y3)/Y4
IF((H-HA)**2.-(0.2*H)**2.) 51,51.50
50 B=l.
GOTO 5
51 B=0.1
IF((H-HA)*(H-HA)/H/H-KH*KH) 33,33,5
33 AS(I)=A
HS(I)=HA
QS(I)=Q
Q0S(I)=Q0
ETAS(I)=QS(I)*HS(I)/(1.-HS(I))
P01=P04+P4l
Y5=Q0**2.*8.*RO/(E*PI)**2./P01
Y6=I.+K.0-(Q/(A-1.))**2.*(1.+K1)
DSS(I)=(Y5*Y6)**0.25
DKSS(I)=DSS(I)*(AS(I)*E)**0,5
P04S(I)=P04/10.**6.
WRITE (5.34) AS(I),QS(I),HS(I),ETAS(I),DSS(I),DKSS(I),
/// *P04S(I),P01S(I),Q0S(I)
WRITE (1,34) AS(I),QS(I),HS(I),ETAS(I),DSS(I),DKSS(I),
*P04S(I).P01S(I).Q0S.(I)
I=I+1
KA=-KA
A=AX
GOTO 5
6 WRITE (5.35) P41 ,Q1,RO,E,P04X,P04N,Q0X,Q0N
WRITE(1,35) P41,Q1,RO,E,P04X,P04N,Q0X,Q0N
34 FORMAT (4F7.3,1X,2F8.5,2F8.4,F7.4)
35 FORMAT (6X,F16.5)
D=0.
TYPE
55 FORMAT (1Х,۟ВЫВЕСТИ ДАННЫЕ НА ПЕЧАТЬ (1-ДА; 0-
НЕТ)?۟.*) ACCEPT*,D
IF(D.NE.1)GOTO41
CLOSE (UNIT=1,DISPOSE='PRINT')
GOTO 42
41 CLOSE (UNIT= 1 ,DISPOSE='DELETE')
42 TYPE 60,ESC,CL
60 FORMAT (2Х,2А,'ПРОДОЛЖАТЬ РАБОТУ (1-ДА; 0-HET) ?', °)
ACCEPT*,D
IF(D.EQ.1)GOT0 61
STOP
END
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

Страницы