, , ,

<<


 >>  ()
Pages:     | 1 | 2 ||

...

-- [ 3 ] --

',58, ' ,* F6.2) 38 FORMAT(T8,' ',48,'VC,'/, *T64,F6.2) 132 FORMAT(/) 106 FORMAT(T10,'1.',14,' 3-.') WRITE(11,106) 108 FORMAT( 10,' ',45,'',55, *'',65,'') WRITE(11,108) 109 FORMAT(Tl,'1.',5,' ',T48,'DC,58,'', *T64,F6.2) WRITE (11,109) DC 110 FGHMAT(Tl,'2.',T5,' '|48, *',58,'',T64,F7-2) WRITE(11,110) 111 FOHMAT(T1,'3.',5,' ', *48,',58,'',T64,F6.2) WRITE(11,111) 112 FORMAT(T1,'4.',5,' ', *48,',58,'',T64,F7.2) WHITE(11,112) 113 F0BMAT(T1,'5.',5,' .-',48,'AL2',58,'',64, *F6.3) WRITE(I1,113) AL 114 F0BMAT(T1,'6.',5' ..',48,'AL3',58,'',64, *F6-3) WRIT(11,114) AL 115 FOKMAT(Tl,7.,5, ..,48,'AL4',58,'',64, *F6.3) WRITE(11,115) AL 116 F0RMAT(1,'8.',5, ..',48,'FS1',58, *'2',T64,F7.3) WRITE(11,116) FS 117 FORMAT(T1,'9.',5,' ..',48,'FS2',58,'2', *T64,F7.3) WRITE(11,117) FS 126 F0RMAT(Tl,'10.',5,' ..',48,'FS3', *58,'2',T64,F7.3) WRITE(11,126) FS 118 FORMAT(Tl,'11.',5,' 3..',T48,'K0L',58,'',64,I3) WRITE(11,118) K0L 119 FORMAT(T10,'2.',14,' ) WRITE(11,119) 121 FORMAT(1,'1.',5,' ',48,'TG',58, *',T64,F5.1) WRITE(11,121) TG 122 FORMAT(T1,'2.',5,' ',48,'',58, *'',T64,F6.1) WRITE(11,122) 123 FORMAT(Tl,'I5',5,' ',48,'QR',58, *'/',T64,F10.1) 124 FORMAT(Tl,'14',5,' ..',48, *'WO',58,'/',T64,F5.1) 125 FORMAT(Tl,'5.',5,' ..',48,'',58, *',T64,F10.1) 127 FOHMAT(Tl,'6.',5,' ',48,'DF',58,'', *T64,F6.3) 128 FORMAT*1,'7.',5' ',48,'PF',58, *'',T64,F6.1) 129 FORMAT*Tl,'8',5,' ',48,'GF',58,'/',T64,F8.2) WRITE(11,125) WRITE(11,127) DF WRI(11,128) PF 140 FORMAT(T1,'9',5,' ..',48,'UR',58, *'*/',T64,F8.3) 141 FORMAT(Tl,'11',5,' ..',48,'GZ0', *,/',T64,F8-4) 142 FORMAT(Tl,'12',5,' ',48,'Amed', *58,,T64,F9.6) 143 FORMAT(Tl,'13',5,' ',48,'RP',58, *'/',T64,F7.1) 144 FORMAT (/) 145 FORMAT(T30' Œ) F0PMAT(Tl,'1.',T14,' ') 146 FORMAT( Tl,'1',T5,' ',T48,'TGTB', *58,',T64,F7.1) 156 FORMAT(Tl,'2',T5,' ',T48,'EF',T58,'/',T66,F7.2) 158 FORMAT(Tl,'4',5,' ',48,'GISP',58,'/',T66,F7.2) 161 FORMAT(Tl,'3',5,' ',48,'DPTB', 58,...'T66,F7.1) 162 FORMAT(T1,'5',5,' ',48,'QTB',58,'/',66,F8.1) N=70.

GC=1.584*DC*K0L RG=0. WJ=0. RL=1000.

AD=0.005*DF-0. N1 = AD=. V=11.2*(PF-1.)**0. D0=481O./V/10.** IF(DF-0.012) 90,90, 93 C=6.

C2=0. GO TO 90 C=-7.525*DF*1000.+96. C2=0.83-162.5*DF+11250.*DF** 92 CONTINUE C1=C/D0**C GF= 454.*DF**2*V*1. QR=QZY/K0L/3600.

UR=GF/QR GF= GF*3600./1OOO.

WRITE( 11,129) GF WRITE(11,140) UP WRITE(11,155) GC FAK=6./C2-1.

FAKO=FAK NFAK=FAK N=NFAK- DO 50 1=1,N 50 FAK=FAK*(FAKO-I) C0=UR*0. 001911*C2*C1**(6./2)/FAK ADZ=0. NZ= W0=QR/FS V=V/W N2=10-*10 =10-*10.*10.

N= N*N*N*N*N RG=5.48*TG**2/TEN3**2-4.098*TG/TEN3+1. E=0. WX=W PO-0.

PT8=99800.

QR=W0*FS QP=QR*3600. *K0L TGO=QR*RG CP0-CP*QR A1=0.

DO 1 1=1,N A1=A1+AD VX( I)=V VP( I) = 0.

TK(I) = T A(I)=A XQ(I)=A1*10** ST=C1*A1**C Q(I)=C0*A1**2/EXP(ST) XQ(I)=A1*10** 1 Z(I) = .523*RL*A1**3*Q( I) 20 FOPMAT (10F7.1) LP= G=WI(AD,N1) GSEK=G*QR TW=GSEK+CPO GWP=GSEK FR1=9.81/(W0*W0) VZ0=1.

UDR= GTOP*Z0L*UNOC/QP*1000.

UDR=0. A1 = 0.

DO 40 1=1,NZ VS(I)=l.

VZP(I)=0.

A1=Al+ADZ AZ(I)=AI A2=A1/AMED C=UDR*0.7625/RP/STL0G ST=(ALOG( A2))**2/(2.*STL0G**2) QZ(I)=C/(A1**4*EXP(ST)) XQ( I)=QZ(I)/10.** TZ(I)=0-523*RP*A1**3*QZ(I) QI(I)=TZ(I) 40 Z( I) = TZ( I) WRITE (12,100)(QI(I),I=1,NZ) LP= GZO=WI(ADZ,NZ) GO=GZO*QR WRITE(11,141) GZO WPITEC 11,142) AMED WPITE(11,143) RP WPITE(11,124) WO WRITE(11,123) QP GZ1=GZ0*QR WPITE (11,144) WHITE (11,145) WPITE (11,144) WPITE (11,130) Kl=l LP= XG=1.

0L=0. L1= FR=FR1*OL XL=0.

XDL=0.025/0L XD=XDL V=XDL 11 XL=XL+XDL CALL SPID(P) CALL HEAT(TG) CALL COAG IF(XL-XG) 11,12, 12 CONTINUE XG=1.

0L=AL Ll= FR=FR1*0L XL=0.

XDL=0.05/0L XD=XDL 14 XL=XL+XDL CALL SPID(P) CALL HEAT(TG) CALL COAG IF(XL-XG)14,15, 15 CONTINUE WG=QR/FS WRITE(11,36)WG WRITE(11,37) TG XL=G XG=1.

0L=AL Ll= FR=FRl*OL XL=0.

XDL=0.05/0L XD=XDL 19 XL=XL+XDL CALL SPID(P) CALL HEAT(TG) CALL COAG IF(XL-XG) 19,22, 22 CONTINUE DO 25 1=1,N XQ(I)=A(I)*10** A1=A( I) 25 Z(I)=0-523*RL*A1**3*Q(I) XG=1.

XL=0.

0L=AL Ll= FR=FR1*0L XDL=0.l/OL XD=XDL 23 XL=XL+XDL CALL SPID(P) CALL HEAT(TG) CALL COAG IF(XL-XG) 23,24, 24 CONTINUE DO 18 I=1,N XQ(I)=A(I)*10** A1=A(I) I8 Z(I)=0.523*RL*A1**3*Q(I) QTB=QR DO 333 1=1,N 333 XQ(I)=Q(I)/10.**S TGTB=TG WRITE(11,146) TGTB DO 91 I=1,NZ A1=AZ(I) Z(I)=0.523*RP*Al**3*QZ(I) QI(I)=Z(I) XQ(I)=(TZ(I)-Z(I))/TZ(I)*100.

QI(I)=Z(I) XQ(I) = (TZ(I)-Z(I))/TZ(I)*100.

Al=Al*10.** QTB(I)=Z(I) 91 CONTINUE WRITE (12,100)(QI(I),I=1,NZ) LP= GZ2=WI(ADZ,NZ) EF=(GZO-GZ2)/GZO*100.

WRITE(11,156) EF 100 FORMAT (F25.6) DO 94 1=1,N A1=A(I) 94 Z(I)=0.523*RL*A1**3*Q(I) GSK=WI(AD,N1)*QR GISP=(GSEK-GSK)*3.6*K0L DO lOl 1=1,N A1=A(I) TL=TK(I) 101 Z(I)=0.523*RL*Al**3*Q(I)*TL QTV=WI(AD,N1)*QR TTB=QTV/GSK VC=QR/BC/AC OK=(AC/BC)**0. HD=(HC/DC)**0. GZOL=GZO*QR WRITE(13,100) WJ,RG,RP,VC,GZOL DGOR=SQRT(1.274*FS2) WG0R=W0*FS1/FS SDP=0.165+0.34*AL3/DG0R-(.06+0.028*AL3/DG0R)*3./10.**3*WG0R DPS=SDP*RG*WG0R**2/19. DK=4.1-DC S0PK=2.+0.625*DK DPC=RG*S0PK*(WX*W0)**2/19. DPTB=DPS+P WRITE(11,161) DPTB WRITE(11,158) GISP WRITE(11,38) VC DPO=DPC+DPS+P WAZ=(.96*TG**2/10.**4+8.38*TG/10.**2)/10.** TPR=(2.28+0.85*TG/10.**2)/10.** HD=HC/DC GD=(BC*AC/0.785)**0. REBX=VC*GD/WAZ WOC= QR/(.785*DC**2) RESR=WOC*DC/WAZ AF=7.I86*TPR*REBX/( HD**0.87*RESR**0.295*DC) TETA=AF*HD*(TG+273.)/81.081/WOC T0= (( 2.-TETA)*TG+TETA*(TCKP+TPL))/( 2.+TETA) WRITE (11,148) TO WRITE(11,149) DPO END

Pages:     | 1 | 2 ||
 
 >>  ()





 
<<     |    
2013 www.libed.ru - -

, .
, , , , 1-2 .