1 files changed, 31 insertions, 0 deletions
diff --git a/2870/CH4/EX4.5/Ex4_5.sce b/2870/CH4/EX4.5/Ex4_5.sce
new file mode 100755
index 000000000..b552a0480
--- /dev/null
+++ b/2870/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,31 @@
+clc;clear;
+//Example 4.5
+
+//given values
+m=0.025;
+V=120;
+I=0.2;
+t=300;//total time taken in sec
+P1=300;
+Qout=3.7;
+
+//from Table A–5
+//at P1 the conditon is sat. vap
+h1=2724.9;
+
+//Calculations
+
+//Part - a
+//therotical proving
+
+//Part - b
+We=V*I*t/1000;//electrical work in kJ
+//from eqn 4 -18 i.e derived in earler part
+//it states it Ein - Eout = Esystem
+// it applies as Win - Qout = H = m (h2 - h1)
+h2=(We-Qout)/m+h1;
+////from Table A–5
+//at h2 we get
+P2=300;
+T=200;
+disp(T,'the final temperature of the steam in C')