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

---
 3516/CH20/EX20.1/Ex20_1.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 3516/CH20/EX20.1/Ex20_1.sce

(limited to '3516/CH20/EX20.1/Ex20_1.sce')

diff --git a/3516/CH20/EX20.1/Ex20_1.sce b/3516/CH20/EX20.1/Ex20_1.sce
new file mode 100644
index 000000000..9961be355
--- /dev/null
+++ b/3516/CH20/EX20.1/Ex20_1.sce
@@ -0,0 +1,31 @@
+printf("\t example 20.1 \n");
+printf("\t approximate values are mentioned in the book \n");
+T=150; // F
+L=0.6; // ft
+N=7500; // rev/hr
+row=62.5; // lb/ft^3
+mu=1.06; // at 150 F and from fig 14, lb/ft*hr
+k=0.38; // Btu/(hr)*(ft^2)*(F/ft), from table 4
+c=1; // Btu/(lb)*(F)
+Rej=(L^2)*(N)*(row)/(mu);
+printf("\t Rej is : %.1e \n",Rej);
+Z=1; // Z=(mu/muw)^(0.14), regarded as 1 for water
+Dj=1.01; // ft, from table 11
+j=1100; // fig 20.2
+hi=((j)*(k/Dj)*((c*mu/k)^(1/3))*(Z)^(0.14));
+printf("\t hi is : %.0f Btu/(hr)*(ft^2)*(F) \n",hi);
+hoi=1500; // Btu/(hr)*(ft^2)*(F)
+Uc=((hi*hoi)/(hi+hoi)); // from eq 6.38
+printf("\t Uc is : %.0f Btu/(hr)*(ft^2)*(F) \n",Uc);
+Rd=0.005;
+hd=(1/Rd);
+printf("\t hd is : %.0f \n",hd);
+UD=((Uc*hd)/(Uc+hd));
+printf("\t UD is : %.0f Btu/(hr)*(ft^2)*(F) \n",UD);
+A=3.43; // ft^2
+Q=32600;
+delt=(Q/(UD*A));
+printf("\t temperature difference is : %.0f F \n",delt);
+Ts=(T+delt);
+printf("\t temperature of the steam : %.0f F \n",Ts);
+// end
-- 
cgit