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

---
 23/CH2/EX2.16/Example_2_16.sce | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100755 23/CH2/EX2.16/Example_2_16.sce

(limited to '23/CH2/EX2.16/Example_2_16.sce')

diff --git a/23/CH2/EX2.16/Example_2_16.sce b/23/CH2/EX2.16/Example_2_16.sce
new file mode 100755
index 000000000..f76312856
--- /dev/null
+++ b/23/CH2/EX2.16/Example_2_16.sce
@@ -0,0 +1,42 @@
+clear;
+clc;
+
+//To find Approx Value
+function[A]=approx(V,n)
+  A=round(V*10^n)/10^n;//V-Value  n-To what place
+  funcprot(0)
+endfunction  
+
+//Example 2.15
+//Caption : Program to Find the Temperature in the second Tank
+
+//Given values
+
+R=3.15*10^-3;//[m^3/s]  Rate of pumping
+rH=-700;//[KW]  Rate of Heat lost  
+h=15;//[m]  Height
+rW=1.5;//[KW]
+rho=958;//[Kg/m^3]  at 366.65K
+g=9.805;
+gc=1000;
+del_z=h;
+
+//Solution
+
+rm=approx(R*rho,3);//[Kg/s]  Mass flow rate
+Q=approx(rH/rm,1);//[KJ/Kg]
+W=approx(rW/rm,3);//[KJ/Kg]  Shaft Work
+K=approx(g/gc*del_z,3);
+
+//using Eqn(2.32b)
+del_H=Q+W-K;
+
+//From Steam tables for water at 366.65K
+H1=391.6;//[KJ/Kg]
+H2=del_H+H1;
+disp('KJ/Kg',H2,'Enthalpy')
+//From Steam Tables temp at this enthalpy is
+T=311.35;//[K]
+disp('K',T,'Temperature in the Second tank')
+
+//End
\ No newline at end of file
-- 
cgit