diff options
Diffstat (limited to '2417/CH6/EX6.16')
| -rwxr-xr-x | 2417/CH6/EX6.16/Ex6_16.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/2417/CH6/EX6.16/Ex6_16.sce b/2417/CH6/EX6.16/Ex6_16.sce new file mode 100755 index 000000000..624a5a796 --- /dev/null +++ b/2417/CH6/EX6.16/Ex6_16.sce @@ -0,0 +1,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);
|