summaryrefslogtreecommitdiff
path: root/2417/CH3/EX3.9/Ex3_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '2417/CH3/EX3.9/Ex3_9.sce')
-rwxr-xr-x2417/CH3/EX3.9/Ex3_9.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/2417/CH3/EX3.9/Ex3_9.sce b/2417/CH3/EX3.9/Ex3_9.sce
new file mode 100755
index 000000000..8d9af4f1d
--- /dev/null
+++ b/2417/CH3/EX3.9/Ex3_9.sce
@@ -0,0 +1,21 @@
+clear;
+clc;
+printf("\t\t\tProblem Number 3.9\n\n\n");
+// Chapter 3 : The First Law Of Thermodynamics
+// Problem 3.9 (page no. 99)
+// Solution
+
+m1=10000; //Unit:kg/hr //An inlet steam flow
+v1=0.05 //Unit:m^3/kg //Specific volume of inlet steam
+d1=0.1 //Unit:m //Inlet diameter //100 mm =0.1 m
+A1=(%pi/4)*d1^2 //Unit:m^2 //Entering area
+V1=(m1*v1)/(A1*60*60) //(60 min/hr * 60 s/min) //To convert hours into seconds //velocity at inlet //Unit:m/s
+printf("The velocity at inlet is %f m/s\n",V1);
+
+
+m2=m1; //Unit:kg/hr //m2=An outlet steam flow
+v2=0.10 //Unit:m^3/kg //Specific volume of outlet steam
+d2=0.2 //Unit:m //Outlet diameter //200 mm = 0.2 m
+A2=(%pi/4)*(d2^2) //Unit:m^2 //Exit area
+V2=(m1*v2)/(A2*60*60) //(60 min/hr * 60 s/min) //To convert hours into seconds //velocity at outlet //Unit:m/s
+printf("The velocity at outlet is %f m/s",V2);