1 files changed, 28 insertions, 0 deletions
diff --git a/2870/CH4/EX4.8/Ex4_8.sce b/2870/CH4/EX4.8/Ex4_8.sce
new file mode 100755
index 000000000..896e5c719
--- /dev/null
+++ b/2870/CH4/EX4.8/Ex4_8.sce
@@ -0,0 +1,28 @@
+clc;clear;
+//Example 4.8
+
+//given data
+m=1.5;
+T1=80;
+P1=50;
+W=0.02;
+t=30/60;//convertinginto hrs from min
+
+//from Table A–2Ea
+Cv=0.753;
+
+//calculations
+
+//part a
+Wsh=W*t*2545;//in Btu
+//Ein - Eout = Esystem
+//Wsh = dU = m (u2 - u1) = m * Cv * (T2 - T1)
+T2= Wsh/(m*Cv)+T1;
+disp(T2,'the final temperature in F');
+
+//part b
+//using ideal gas eqn
+// P1 * V1 / T1 = P2 * T2 /V2
+P2= 50 * (T2 +460)/ (T1+460);
+// temp should in R therefore + 460
+disp(P2,'the final pressure in psia')