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

---
 2870/CH4/EX4.10/Ex4_10.sce | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 2870/CH4/EX4.10/Ex4_10.sce

(limited to '2870/CH4/EX4.10/Ex4_10.sce')

diff --git a/2870/CH4/EX4.10/Ex4_10.sce b/2870/CH4/EX4.10/Ex4_10.sce
new file mode 100755
index 000000000..04ba1e8cf
--- /dev/null
+++ b/2870/CH4/EX4.10/Ex4_10.sce
@@ -0,0 +1,35 @@
+clc;clear;
+//Example 4.10
+
+//given data
+P1=150;
+P2=350;
+T1=27+273;//in K
+V1=400/1000;// in m^3
+R=0.287;
+
+//from Table A–17
+u1=214.07;
+u2=1113.52;
+
+//calculations
+
+//part a
+V2=2*V1;
+//using ideal gas eqn
+// P1 * V1 / T1 = P2 * T2 /V2
+T2=P2*V2*T1/(P1*V1);
+disp(T2,'the final temperature in K');
+
+//part b
+// Work done is Pdv
+W=P2*(V2-V1);
+disp(W,'the work done by the air im kPa');
+
+//part c
+//Ein - Eout = Esystem
+//Qin - Wout = dU = m(u2 - u1)
+m= P1* V1 /(T1 * R);
+Q= m*(u2 - u1)+ W;
+Q=ceil(Q);
+disp(Q,'the total heat transferred to the air in kJ')
-- 
cgit