1 files changed, 30 insertions, 0 deletions
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