Split_00015 - 8.34(cont'd b z 150 1800 0.235 exp 0.0473T 1...

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

View Full Document Right Arrow Icon
8- 15 8.34 (cont’d) b. 0 235 0 0473 0 235 2 00473 0473 1 0473 1730 1800 150 12 1800 150 .e x p . . . exp . . z =− L N M O Q P R S T U V W Td T T T ej bg b g cal g DIMENSIONS CP(101), NPTS(2) WRITE (6, 1) 1 FORMAT (1H1, 20X'SOLUTION TO PROBLEM 8.37'/) NPTS(1) = 51 NPTS(2) = 101 DO 200K = 1, 2 N = NPTS (K) NM1 = N – 1 NM2 = N – 2 DT = (150.0 – 1800.0)/FLOAT (NM1) T = 1800.0 DO 20 J = 1, N CP (J) = 0.235*EXP(0.0473*SQRT(T)) 20 T = T + DT SUMI = 0.0 DO 30 J = 2, NM1, 2 30 SUMI = SUMI + CP(J) SUM2 = 0.0 DO 40 J = 3, NM2, 2 40 SUM2 = SUM2 + CP (J) DH = DT*(CP(1) + 4.0 = SUM1 + 2.0 = SUM2 + CP(N))/3.0 WRITE (6, 2) N, DH 2 FORMAT (1H0, 5XI3, ' b POINT INTEGRATION bbb DELTA(H) b = ', E11.4,' b CAL/G') 200 CONTINUE
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 01/07/2012 for the course CH E 210 at Penn State.

Ask a homework question - tutors are online