diff options
Diffstat (limited to '2417/CH6/EX6.36')
| -rwxr-xr-x | 2417/CH6/EX6.36/Ex6_36.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/2417/CH6/EX6.36/Ex6_36.sce b/2417/CH6/EX6.36/Ex6_36.sce new file mode 100755 index 000000000..acc6f34b1 --- /dev/null +++ b/2417/CH6/EX6.36/Ex6_36.sce @@ -0,0 +1,20 @@ +clear;
+clc;
+printf("\t\t\tProblem Number 6.36\n\n\n");
+// Chapter 6: The Ideal Gas
+// Problem 6.36 (page no. 288)
+// Solution
+
+T=1000+460; //Fahrenheit temperature converted to absolute temperature
+//The velocity of sound in air at 1000 F is
+Va=49.0*sqrt(T); //velocity //ft/s
+printf("The velocity of sound air at 1000 F is %f ft/s\n",Va);
+//Hydrogen has a specific heat ratio of 1.41 and R=766.53.Therefore,
+khydrogen=1.41; //specific heats ratio for air
+kair=1.40; //specific heats ratio for air
+Rhydrogen=766.53; //gas constant //ft*lbf/lbm*R
+Rair=53.36; //gas constant //ft*lbf/lbm*R
+// Vahydrogen/Vaair = sqrt((Rhydrogen*khydrogen)/(Rair*kair))
+//rearranging,
+Vahydrogen=Va*sqrt((Rhydrogen*khydrogen)/(Rair*kair)); //The velocity of sound in hydrogen at 1000 F //unit:ft/s
+printf("The velocity of sound in hydrogen at 1000 F is %f ft/s\n",Vahydrogen);
|