From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3831/CH4/EX4.1/Ex4_1.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 3831/CH4/EX4.1/Ex4_1.sce

(limited to '3831/CH4/EX4.1/Ex4_1.sce')

diff --git a/3831/CH4/EX4.1/Ex4_1.sce b/3831/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..eae71bdc4
--- /dev/null
+++ b/3831/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,20 @@
+// Example 4_1
+clc;funcprot(0);
+// Given data
+p_1=10.0;// psia
+x_1=1.00;// The quality of saturated vapor
+V_1=25000;// mph
+Z_1=200;// miles
+v_1=38.42;// ft^3/lbm
+m=3.0;// lbm
+u_2=950.0;// The final specific internal energy in Btu/lbm
+v_2=v_1;;// ft^3/lbm
+g=32.174;// The acceleration due to gravity in m/s^2
+
+// Solution
+// Table C.2a in Thermodynamic Tables to accompany Modern Engineering Thermodynamics gives
+u_1=1072.2;// Btu/lbm
+U_1=m*u_1;// Btu
+U_2=m*u_2;// Btu
+E_T=(U_2-U_1)-([((m/2)*(V_1*(5280/3600))^2)]*((1/(g*778.16))))-[((m*g)/g)*Z_1*5280/778.16];// Btu
+printf('\nThe energy transport is required to decelerate the water to zero velocity and bring it down to the surface of the Earth,E_T=%5.0f Btu',E_T);
-- 
cgit