1 files changed, 12 insertions, 0 deletions
diff --git a/2510/CH5/EX5.9/Ex5_9.sce b/2510/CH5/EX5.9/Ex5_9.sce
new file mode 100755
index 000000000..316e78f43
--- /dev/null
+++ b/2510/CH5/EX5.9/Ex5_9.sce
@@ -0,0 +1,12 @@
+//Variable declaration:
+qs = 1000                       //Volumetric flow rate at standard conditions (scfm)
+Ta = 300+460                    //Actual absolute temperature in Rankine scale (°R)
+Ts = 70+460                     //Standard absolute temperature in Rankine scale (°R)
+A = 2.0                         //Inlet area of stack (ft^2)
+
+//Calculations:
+qa = qs*Ta/Ts                   //Volumetric flow rate at actual conditions (acfm)
+v = qa/A/60                     //Velocity of gas (ft/s)
+
+//Result:
+printf("The velocity of the gas through the stack inlet is : %.0f ft/s",v)