blob: 9ca962847245e1816fd0bdcdda164667f9b16425 (
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
|
clear;
clc;
//To find Approx Value
function[A]=approx(V,n)
A=round(V*10^n)/10^n;//V-Value n-To what place
funcprot(0)
endfunction
//Example 2.8
//Caption : Program to find Change in Enthalpy and Internal Energy
//Given values
m=1;//1kg of water
T=373.15;//Temp=373.15K(100`C)
P=101.325;//Pressure=101.325KPa
V2=1.673;//Final Volume[m^3]
V1=0.00104;//Initial Volume[m^3]
Sv_liqiud=0.00104;//Specific Volume of Liqiud
Sv_vapour=1.673;//Specific Volume of Vapour
del_H=2256.9;//Heat Added(KJ)
//Solution
Q=del_H;
del_V=V2-V1;
W=P*del_V;//KJ
del_U=approx(del_H-(P*del_V),1);
disp('KJ',del_H,'Change in Enthalpy');
disp('KJ',del_U,'Change in Internal energy');
//End
|
