# Example 8.1 TH = 60.0 degC TL = 0.0 degC sf_60degC = 1.2857 kJ/kg degK s3 = sf_60degC s4 = s3 sg_60degC = 1.7262 kJ/kg degK s2 = sg_60degC s1 = s2 s1 = 1.736 kJ/kg degK P1 = 1400.0 kPa s2 = 1.7135 kJ/kg degK P2 = 1600.0 kPa s0 = 1.7262 kJ/kg degK P = P1 + (s0 - s1) * (P2 - P1) / (s2 - s1) ; kPa b = TH / (TH - TL) # Example 8.2 V0 = 1.0 l T0 = 20.0 degC P = 400.0 kPa u1 = 54.45 kJ/kg s1 = 0.20780 kJ/kg n1 = 0.000752 m^3/kg m1 = V0 / n1 ; kg u2 = 180.57 kJ/kg s2 = 0.72040 kJ/kg Q12 = m1 * T0 * (s2 - s1) Q12_not = Q12 / (1 degK); kJ W12 = m1 * (u1 - u2) + Q12_not ; kJ # Example 8.3 m0 = 1.0 kg Tw = 100.0 degC Ta = 25.0 degC sfg = 6.0480 kJ / kg / degK DSw = -m0 * sfg ; kJ / degK hfg = 2257.0 kJ / kg DQa = m0 * hfg ; kJ DSa = DQa / Ta ; kJ/degK DSnet = DSw + DSa ; kJ/degK QL = - (Ta * DSw ) ; kJ DQsurroundings = QL; kJ W0 = DQa - QL ; kJ # Example 8.3E m0 = 1.0 lbm Tw = 212.0 degF Ta = 80.0 degF sfg = 1.4446 Btu/lbm/degR DSw = -m0 * sfg ; Btu/degR hfg = 970.3 Btu / lbm DQa = m0 * hfg ; Btu DSa = DQa / Ta ; Btu/degR DSnet = DSw + DSa ; Btu/degR QL = - (Ta * DSw ) ; Btu DQsurroundings = QL; Btu W0 = DQa - QL ; Btu # Example 8.4 m0 = 1.0 kg T1 = 20.0 degC T2 = 90.0 degC c = 4.1840 kJ/kg/degK dels = c *ln(T2 / T1) ; kJ/kg/degK sf90degC = 1.1925 kJ/kg/degK sf20degC = 0.2966 kJ/kg/degK dels = sf90degC - sf20degC ; kJ/kg/degK # Example 8.5 T1 = 300.0 degK T2 = 1500.0 degK P1 = 200.0 kPa P2 = 150.0 kPa sf1500degK = 8.0649 kJ/kg/degK sf300degK = 6.4168 kJ/kg/degK R = 0.2598 kJ/kg/degK dels = sf1500degK - sf300degK - R * ln(P2 / P1) ; kJ/kg/degK q1 = 0.3 q2 = 1.5 c0 = 0.880 kJ/kg/degK c1 = -0.0001 kJ/kg/degK c2 = 0.540 kJ/kg/degK c3 = -0.330 kJ/kg/degK dels1 = (c0 * ln(q1) + c1 * q1 + c2 * q1^2 / 2 + c3 * q1^3 / 3) - R * ln(P2 / P1) ; kJ/kg/degK dels2 = (c0 * ln(q2) + c1 * q2 + c2 * q2^2 / 2 + c3 * q2^3 / 3) - R * ln(P2 / P1) ; kJ/kg/degK dels = dels2 - dels1; kJ/kg/degK c = 0.922 kJ/kg/degK dels = c * ln(T2 / T1) - R * ln(P2 / P1) ; kJ/kg/degK c900 = 1.077 kJ/kg/degK R900 = 0.075 kJ/kg/degK dels = c900 * ln(T2 / T1) + R900 ; kJ/kg/degK # Example 8.6 T1 = 300.0 degK T2 = 600.0 degK P1 = 400.0 kPa P2 = 300.0 kPa Cp0 = 1.0040 kJ/kg/degK R = 0.2598 kJ/kg/degK dels = Cp0 * ln(T2 / T1) - R * ln(P2 / P1) ; kJ/kg/degK sT1 = 6.8693 kJ/kg/degK sT2 = 7.5764 kJ/kg/degK dels = sT2 - sT1 - R * ln(P2 / P1) ; kJ/kg/degK # Example 8.6E = T1 = 540.0 degR T2 = 1200.0 degR P1 = 50.0 psi P2 = 40.0 psi Cp0 = 0.2400 Btu/lbm/degR R = 0.0686 Btu/lbm/degR dels = Cp0 * ln(T2 / T1) - R * ln(P2 / P1) ; Btu/lbm/degR sT1 = 0.6008 Btu/lbm/degR sT2 = 0.7963 Btu/lbm/degR dels = sT2 - sT1 - R * ln(P2 / P1) ; Btu/lbm/degR # Example 8.7 m0 = 1.0 kg P1 = 400.0 kPa T1 = 600.0 degK P2 = 150.0 kPa u1 = 435.1000 kJ/kg sT1 = 7.5764 kJ/kg/degK R = 0.2870 kJ/kg/degK sT2 = sT1 + R * ln(P2 / P1) ; kJ/kg/degK T2 = 457.0 degK u2 = 328.1400 kJ/kg w = u1 - u2 ; kJ/kg # Example 8.8 P1 = 100.0 kPa T1 = 20.0 degC P2 = 500.0 kPa n = 1.3 T2 = T1 * (P2 / P1)^((n-1)/n) ; degC R = 0.2968 kJ/kg/degK w12 = R * (T2 - T1) / (1 - n) ; kJ/kg Cv0 = 0.7450 kJ/kg/degK q12 = Cv0 * (T2 - T1) + w12 ; kJ/kg # Example 8.9 Qdot = 1.0 kW T0 = 600.0 degK Sdot = Qdot / T0 ; kW/degK # Homework Problems: TBD