diff options
Diffstat (limited to '2417/CH6/EX6.24/Ex6_24.sce')
| -rwxr-xr-x | 2417/CH6/EX6.24/Ex6_24.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/2417/CH6/EX6.24/Ex6_24.sce b/2417/CH6/EX6.24/Ex6_24.sce new file mode 100755 index 000000000..f5e3ea2fc --- /dev/null +++ b/2417/CH6/EX6.24/Ex6_24.sce @@ -0,0 +1,23 @@ +clear;
+clc;
+printf("\t\t\tProblem Number 6.24\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.24 (page no. 267)
+// Solution
+
+//data given
+T2=460+400; //Fahrenheit temperature converted to absolute final temperature //unit:R
+T1=460+70; //Fahrenheit temperature converted to absolute initial temperature //unit:R
+cp=0.24; //specific heat at constant pressure //Btu/lbm*R
+J=778; //conversion factor
+R=1545/29; //moleculer weight=29 //Unit:ft*lbf/lbm*R //constant of proportionality
+//From the energy equation for the constant-pressure process,the heat transferred is deltah.Therefore,
+//q=deltah=cp*(T2-T1)
+deltah=cp*(T2-T1); //heat transferred //Btu/lb //into system
+printf("The heat transferred is %f Btu/lb(into system)\n",deltah);
+deltas=cp*log(T2/T1); //increase in entropy //Btu/lbm*R
+printf("The increase in entropy is %f Btu/lbm*R\n",deltas);
+//The flow work change is (p2*v2)/J - (p1*v1)/J = (R/J)*(T2-T1)
+flowworkchange=(R/J)*(T2-T1); //Btu/lbm //The flow work change per pound of air
+printf("The flow work change per pound of air is %f Btu/lbm\n",flowworkchange);
+//In addition to each of the assumptions made in all the process being considered,it has further been tacitly assumed that these processes are carried out quasi- statically and without friction.
|