Составители:
Рубрика:
142
K0=0.03
Kl=0.06
PI=3.1415926
J=5
43 I=1
WRITE (J.44)
44 FORMAT (4X,’Q’,7X,’H’,7X,’ETA’,5X,’Q1’,
*6Х,’Р41’,5Х,’Р04’,5X,’P01’)
A=(DKS/DS)**2./E
DQ=KQ*(A-l.)*0.5
QS(1)=0
7 IF(A-1.4)2,3,3
2 K2=0.08
K3=0.22
GOTO 4
3 K2=0.005+QS(I)(13.48*(A-l.)-3.41)
K3=0.125+QS(I)/(5.6*(A-l.)-! .14)
IF(A-24.) 4,4,5
5 K2=0.02
K3=0.16
4 Q=QS(I)
Y1=(A-1.-Q)*(A-1.+2.*(A-1.)**2.+Q)
Y2=(K2+K3)*((Q+1.)*(A-1.))**2.
Y3=K1*(Q*A)**2.
Y4=A**2.*((1.+K0)*(A-1.) **2-(l.+K1)*Q**2.)
HS(I)=(Y1-Y2-Y3)/Y4
ETAS(I)=QS(I)*HS(I)/(1.-HS(I))
QIS(I)=Q0*QS(I)
Y6=l .+K0-(Q/(A-1 .))**2.*(1.+K1)
Y5=DS**4/Y6
P01S(I)=Q0**2.*8*RO/(E*PI)**2/YS/10.**6.
P41S(I)=HS(I)*P0lS{I)
P04S(I)=P0lS(I)-P4lS(I)
WRITE (J.6) QS(I).HS(I),ETAS(I).Q1S(I),P41S(I),P04S(I),P01S(I)
10 IF (HS(I)0 8,8,10
I=1+1
QS(I)=Q+DQ
GOTO 7
6 FORMAT (1X,7F8.4)
8 WRITE (J,9) DS,DKS,E,RO,Q0,KQ,A
9 FORMAT (6Х,F16.5)
ТУРЕ*,۟ ВВЕДИТЕ ЧИСЛО:0-ВЫХОД НА ПРИНТЕР,
۫ I-ЗАВЕРШЕНИЕ РАСЧЕТА۟
ACCEPT*,D
IF(D-0)40,41,40
40 J=5
GOTO 42
41 J=6
GOTO 43
42 CONTINUE
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
Страницы
- « первая
- ‹ предыдущая
- …
- 140
- 141
- 142
- 143
- 144
- …
- следующая ›
- последняя »
