Elementary Principles 40 - 3.54 (cont'd) 4 CONTINUE CALL LS...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 3.54 (cont'd) 4 CONTINUE CALL LS (X, Y, NT, SLOPE, INTCPT) KO = EXP INTCPT b g 2 3 5 10 E = -8.314 = SLOPE WRITE (6, 5) KO, E FORMAT (' TEMPERATURE (K): ', F6.2, / * ' TIME CA', /, * ' (MIN) (MOLES)', / * 100 (IX, F5.2, 3X, F7.4, /)) FORMAT (' K (L/MOL MIN): ', F5.3, //) FORMAT (/, ' KO (L/MOL MIN) : ', E 12.4, /, ' E (J/MOL): ', E 12.4) END SUBROUTINE LS (X, Y, N, SLOPE, INTCPT) REAL X(100), Y(100), SLOPE, INTCPT, SX, SY, SXX, SXY, AN INTEGER N, J SX=0 SY=0 SXX=0 SXY=0 DO 10 J=1,N SX = SX + X(J) SY = SY + Y(J) SXX = SXX + X(J)**2 SXY = SXY + X(J)*Y(J) CONTINUE AN = N SX = SX/AN SY = SY/AN SXX = SXX/AN SXY = SXY/AN SLOPE = (SXY SX*SY)/(SXX SX**2) INTCPT = SY SLOPE*SX RETURN END $ DATA 65.0 94.0 10.0 20.0 30.0 40.0 50.0 [OUTPUT] TEMPERATURE (K): 367.15 TIME CA (MIN) (MOLS/L) 10.00 0.1246 20.00 0.0662 30.00 0.0462 40.00 0.0338 4 6 8.1 4.3 3.0 2.2 1.8 3-24 ...
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.

Ask a homework question - tutors are online