blob: 62ea0a13c56411ee9d07da4265c62e31de8a1ac0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
clear;
clc;
printf("\t\t\tProblem Number 6.14\n\n\n");
// Chapter 6: The Ideal Gas
// Problem 6.14 (page no. 255)
// Solution
R=60; //Unit:ft*lbf/lbm*R //constant of proportionality
deltah=500; //Btu/lbm //change in enthalpy
deltau=350; //Btu/lbm //change in internal energy
J=778; //conversion factor
//Because deltah-(cp*deltaT) and deltau=cv*deltaT
// deltah/deltau=(cp*deltaT)/(cv*deltaT)=cp/cv=k
k=deltah/deltau; //Ratio of specific heats
printf("Ratio of specific heats k is %f\n",k);
//From equation cv=R/(J*(k-1))
cv=R/(J*(k-1)); //specific heat at constant volume //Btu/lbm*R
printf("Specific heat at constant volume is %f Btu/lbm*R\n",cv);
cp=k*cv; //Specific heat at constant pressure //Btu/lbm*R
printf("Specific heat at constant pressure is %f Btu/lbm*R\n",cp);
|
