1 files changed, 30 insertions, 0 deletions
diff --git a/858/CH5/EX5.15/example_15.sce b/858/CH5/EX5.15/example_15.sce
new file mode 100755
index 000000000..edb638d86
--- /dev/null
+++ b/858/CH5/EX5.15/example_15.sce
@@ -0,0 +1,30 @@
+clc
+clear 
+printf("example 5.15 page number 207\n\n")
+
+//to find the amount of vapor and liquid and amount of heat transfer
+
+F = 5000   //in kg/hr
+xF = 0.01
+xL = 0.02;
+
+L = F*xF/xL;
+V = F-L;
+printf("L = %f Kg/hr\n V = %f kg/hr",L,V)
+
+TF= 303  //in K
+hF = 125.9   //in KJ/kg
+T1 = 373.2   //in K
+Hv = 2676.1   //in kJ/kg
+hL = 419.04;   //in kJ/kg
+Ts = 383.2   //in K
+Hs = 2691.5   //in kJ/kg
+hs = 461.30   //in kJ/kg
+
+S = (F*hF-L*hL-V*Hv)/(hs-Hs);
+printf("\n\namount of steam = %f kg steam/h",S)
+
+q = S*(Hs - hs);
+q = q*1000/3600   //conversion to Watt
+U = q/(69.9*10);
+printf("\n\nheat reansfer coefficient = %f W/sq m K",U)