blob: b552a048047c9fcdee9af51495ad2334cbeae313 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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')
|
