diff options
Diffstat (limited to '2417/CH6/EX6.9/Ex6_9.sce')
| -rwxr-xr-x | 2417/CH6/EX6.9/Ex6_9.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/2417/CH6/EX6.9/Ex6_9.sce b/2417/CH6/EX6.9/Ex6_9.sce new file mode 100755 index 000000000..1c54aa4eb --- /dev/null +++ b/2417/CH6/EX6.9/Ex6_9.sce @@ -0,0 +1,17 @@ +clear;
+clc;
+printf("\t\t\tProblem Number 6.9\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.9 (page no. 252)
+// Solution
+
+T2=500+460; //absolute final temperature //unit:R
+T1=80+460; //absolute initial temperature //unit:R
+//The equation cpbar= 0.338-(1.24*10^2/T)+(4.15*10^4)/T^2 has a form , cbar= Adash+(Bdash/T)+(Ddash/T^2)
+//So,
+Adash=0.338; //constant
+Bdash=-1.24*10^2; //constant
+Ddash=4.15*10^4; //constant
+//Therefore,from equation,cbar=Adash+((Bdash*log(T2/T1))/(T2-T1))+(Ddash/(T2*T1))
+cpbar=Adash+((Bdash*log(T2/T1))/(T2-T1))+(Ddash/(T2*T1)); //The mean specific heat //Btu/lbm*R
+printf("The mean specific heat at constant pressure between 80F and 500F is %f Btu/lbm*R\n",cpbar);
|