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

---
 2873/CH12/EX12.8/Ex12_8.jpg | Bin 0 -> 269616 bytes
 2873/CH12/EX12.8/Ex12_8.sce |  32 ++++++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100755 2873/CH12/EX12.8/Ex12_8.jpg
 create mode 100755 2873/CH12/EX12.8/Ex12_8.sce

(limited to '2873/CH12/EX12.8')

diff --git a/2873/CH12/EX12.8/Ex12_8.jpg b/2873/CH12/EX12.8/Ex12_8.jpg
new file mode 100755
index 000000000..d76810072
Binary files /dev/null and b/2873/CH12/EX12.8/Ex12_8.jpg differ
diff --git a/2873/CH12/EX12.8/Ex12_8.sce b/2873/CH12/EX12.8/Ex12_8.sce
new file mode 100755
index 000000000..1a7629133
--- /dev/null
+++ b/2873/CH12/EX12.8/Ex12_8.sce
@@ -0,0 +1,32 @@
+// Display mode
+mode(0);
+// Display warning for floating point exception
+ieee(1);
+clear;
+clc;
+disp("Engineering Thermodynamics by Onkar Singh Chapter 12 Example 8")
+mc=20;//mass of oil in kg/min 
+Tc_out=100;//initial temperature of oil in degree celcius
+Th_in=30;//final temperature of oil in degree celcius
+Th_out=25;//temperature of water in degree celcius
+Cpc=2;//specific heat of oil in KJ/kg K
+Cph=4.18;//specific heat of water in KJ/kg K
+mh=15;//water flow rate in kg/min
+U=25;//overall heat transfer coefficient in W/m^2 K
+disp("This oil cooler has arrangement similar to a counter flow heat exchanger.")
+disp("by heat exchanger,Q=U*A*LMTD=mc*Cpc*(Tc_out-Th_in)=mh*Cph*(Tc_in-Th_out)")
+disp("so Q in KJ/min")
+Q=mc*Cpc*(Tc_out-Th_in)
+disp("and T=Th_out+(Q/(mh*Cph))in degree celcius")
+T=Th_out+(Q/(mh*Cph))
+disp("LMTD=(deltaT_in-deltaT_out)/log(deltaT_in/deltaT_out)in degree ")
+disp("here deltaT_in=Tc_out-T in degree celcius")
+deltaT_in=Tc_out-T
+disp("deltaT_out=Th_in-Th_out in degree celcius")
+deltaT_out=Th_in-Th_out
+disp("so LMTD in degree celcius")
+LMTD=(deltaT_in-deltaT_out)/log(deltaT_in/deltaT_out)
+disp("substituting in,Q=U*A*LMTD")
+disp("A=(Q*10^3/60)/(U*LMTD)in m^2")
+A=(Q*10^3/60)/(U*LMTD)
+disp("so surface area=132.85 m^2")
-- 
cgit