1 files changed, 18 insertions, 0 deletions
diff --git a/3821/CH10/EX10.17/Example10_17.sce b/3821/CH10/EX10.17/Example10_17.sce
new file mode 100644
index 000000000..4aebc4922
--- /dev/null
+++ b/3821/CH10/EX10.17/Example10_17.sce
@@ -0,0 +1,18 @@
+///Chapter 10 Properties Of Steam
+///Example 10.17 Page No:198
+///Find Volume of steam dryness fraction
+//Input data
+clc;
+clear;
+P=7;                  //Absolute pressure in bar
+v=0.2;                //Specific volume in m^3/Kg
+//from steam table (pressure basis at 7 bar) 
+ts=165;               //In degree celsius
+vf=0.001108;          //In m^3/Kg
+vg=0.2727;            //In m^3/Kg
+
+//Calculation
+x=v/vg;               //Volume of steam dryness fraction
+
+//Output
+printf('Volume of steam dryness fraction= %f \n',x);