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

---
 905/CH7/EX7.9/7_9.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 905/CH7/EX7.9/7_9.sce

(limited to '905/CH7/EX7.9/7_9.sce')

diff --git a/905/CH7/EX7.9/7_9.sce b/905/CH7/EX7.9/7_9.sce
new file mode 100755
index 000000000..21d7601f8
--- /dev/null
+++ b/905/CH7/EX7.9/7_9.sce
@@ -0,0 +1,26 @@
+clear;
+clc;
+
+// Illustration 7.9
+// Page: 460
+
+printf('Illustration 7.9 -  Page: 460\n\n');
+
+// solution
+//*****Data*****//
+// From example 7.8
+Di = 0.288; // [m]
+sigma = 0.025; // [N/m]
+ohm = 152*1.2/60; // [rps]
+ds = 868; // [kg/cubic m]
+phiD = 0.385;
+
+// Therefore from equation 7.49
+We = Di^3*ohm^2*ds/sigma; // [Weber number]
+
+// From equation 7.50
+dvs = Di*0.052*(We)^-0.6*exp(4*phiD); // [m]
+disp(dvs);
+// Substituting in equation 7.48
+a = 6*phiD/dvs; // [square m/cubic m]
+printf("The Sauter mean drop diameter and the interfacial area is %e m and %f square m/cubic m respectively.\n\n",dvs,a); 
\ No newline at end of file
-- 
cgit