From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 587/CH10/EX10.3/example10_3.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 587/CH10/EX10.3/example10_3.sce

(limited to '587/CH10/EX10.3')

diff --git a/587/CH10/EX10.3/example10_3.sce b/587/CH10/EX10.3/example10_3.sce
new file mode 100755
index 000000000..0d6693bde
--- /dev/null
+++ b/587/CH10/EX10.3/example10_3.sce
@@ -0,0 +1,28 @@
+clear;
+clc;
+
+//Example10.3[Film Boiling of Water on a Heating Element]
+//Given:-
+D=0.005;//[m]
+e=0.05;//Emissivity
+Ts=350;//Surface temperature[degree Celcius]
+Tsat=100;//[degree Celcius]
+Tf=(Ts+Tsat)/2;//[degree Celcius]
+g=9.81;//[m/s^2]
+//Properties of water at Tsat
+rho_l=957.9;//[kg/m^3]
+h_fg=2257*10^3;//[J/kg]
+//Properties of vapor at film temp
+rho_v=0.444;//[kg/m^3]
+Cp_v=1951;//[J/kg.degree Celcius]
+mu_v=1.75*10^(-5);//[kg/m.s]
+k_v=0.0388;//[W/m.degree Celcius]
+//Solution:-
+q_film=0.62*(((g*(k_v^3)*rho_v*(rho_l-rho_v)*(h_fg+(0.4*Cp_v*(Ts-Tsat))))/(mu_v*D*(Ts-Tsat)))^(1/4))*(Ts-Tsat);//[W/m^2]
+disp("W/m^2)",q_film,"The film boiling heat flux is")
+q_rad=e*(5.67*10^(-8))*(((Ts+273)^4)-((Tsat+273)^4));//[W/m^2]
+disp("W/m^2",q_rad,"The radiation heat flux is")
+q_total=q_film+(3/4)*q_rad;//[W/m^2]
+disp("W/m^2",q_total,"The total heat flux is")
+Q_total=(%pi*D*1)*q_total;//[W]
+disp("W",Q_total,"The rate of heat transfer from the heating element to the water is")
-- 
cgit