diff options
Diffstat (limited to '3821/CH10/EX10.22/Example10_22.sce')
| -rw-r--r-- | 3821/CH10/EX10.22/Example10_22.sce | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/3821/CH10/EX10.22/Example10_22.sce b/3821/CH10/EX10.22/Example10_22.sce new file mode 100644 index 000000000..340ee56ae --- /dev/null +++ b/3821/CH10/EX10.22/Example10_22.sce @@ -0,0 +1,38 @@ +/////////Chapter 10 Properties Of Steam
+///Example 10.22 Page No:201
+//Find Initial specific volume of steam
+//Input data
+clc;
+clear;
+m=2; //Steam in Kg
+x=0.7; //Initial dryness
+P=15; //Constant pressure in bar
+//V2=2V1
+//from steam table properties of
+//saturated steam(pressure basis) at 15 bar
+Ts=198.3+273; //In degree celsius
+Vg=0.1317; //In m^3/Kg
+hf=844.7; //In KJ/Kg
+hfg=1945.2; //In KJ/Kg
+hg=2789.9; //In KJ/Kg
+Cps=2.3;
+
+///Calculation
+V1=x*Vg; //Initial specific volume of steam in m**3/Kg
+V2=2*V1; //Final specific volume of steam in m**3/Kg
+Tsup=(V2/Vg)*Ts; //Steam is superheated in degree celsius
+FSS=Tsup-Ts; //Degree of superheated in degree celsius
+h1=hf+x*hfg; //Initial enthalpy of steam in KJ/Kg
+h2=hg+Cps*(Tsup-Ts); //Final enthalpy of steam in KJ/Kg
+Q=(h2-h1)*m; //Heat transferred in the process in KJ
+W1=P*(m*V2-m*V1); //Work transferred in the process in KJ
+
+//Output
+printf('Initial specific volume of steam=%f m^3/kg \n',V1);
+printf('Final specific volume of steam= %f m^3/kg \n',V2);
+printf('Steam is superheated= %f K \n ',Tsup);
+printf('Degree of superheated=%f degree celsius \n ',FSS);
+printf('Initial enthalpy of steam=%f KJ/Kg \n ',h1);
+printf('Final enthalpy of steam=%f KJ/Kg \n ',h2);
+printf('Heat transferred in the process=%f KJ \n ',Q);
+printf('Work transferred in the process= %f KJ \n',W1);
|