blob: 624a5a7969e87db287aec0a92a134b59c095af74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
clear;
clc;
printf("\t\t\tProblem Number 6.16\n\n\n");
// Chapter 6: The Ideal Gas
// Problem 6.16 (page no. 260)
// Solution
//data
cp=0.24; //Specific heat at constant pressure //Btu/lbm*R
p2=15; //psia //final pressure
p1=100; //psia //initial pressure
T2=460+0; //absolute final temperature //unit:R
T1=460+100; //absolute initial temperature //unit:R
J=778; //conversion factor
R=1545/29; //moleculer weight=29 //Unit:ft*lbf/lbm*R //constant of proportionality
//On the basis of the data given,
deltas=(cp*(log(T2/T1)))-((R/J)*(log(p2/p1))); //change in entropy //Btu/lbm*R
printf("The change in enthalpy is %f Btu/lbm*R\n",deltas);
|
