This preview shows page 1. Sign up to view the full content.
Unformatted text preview: HR = HR * EXT C Product Heat Capacity AP = 0. BP = 0. CP = 0. DP = 0. DO 300 I = 1, N AP = AP + SP(I)*ACP(I) BP = BP + BP(I)*BCP(I) CP = CP + SP(I)*CCP(I) 300 DP = DP + SP(I)*DCP(I) C Find T TIN = SF (N + 1) TP = TIN D0 400 ITER = 1, 10 T = TP F = HR FP = 0. F = F +T*(AP + T*(BP/2. + T*(CP/3. + T*DP/4.))) * TIN*(AP + TIN*(BP/2. + TIN*(CP/3. + TIN*DP/4.))) FP = FP + AP + T *(BP + T*(CP + T*DP)) TP = T F/FP IF(ABS((TP T)/T).LT.TOL) GOTO 500 400 CONTINUE WRITE (6, 900) 900 FORMAT ('REACTED did not converge') STOP...
View Full Document
This note was uploaded on 02/27/2012 for the course CHEMICAL E 312 taught by Professor Cheung during the Fall '11 term at The University of Akron.
- Fall '11