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 --- 23/CH2/EX2.8/Example_2_8.sce | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100755 23/CH2/EX2.8/Example_2_8.sce (limited to '23/CH2/EX2.8/Example_2_8.sce') diff --git a/23/CH2/EX2.8/Example_2_8.sce b/23/CH2/EX2.8/Example_2_8.sce new file mode 100755 index 000000000..9ca962847 --- /dev/null +++ b/23/CH2/EX2.8/Example_2_8.sce @@ -0,0 +1,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 \ No newline at end of file -- cgit