1 files changed, 25 insertions, 0 deletions
diff --git a/409/CH8/EX8.1/Example8_1.sce b/409/CH8/EX8.1/Example8_1.sce
new file mode 100755
index 000000000..9dcc08689
--- /dev/null
+++ b/409/CH8/EX8.1/Example8_1.sce
@@ -0,0 +1,25 @@
+clear ;
+clc;
+// Example 8.1
+printf('Example 8.1\n\n');
+//Page no. 197
+// Solution
+
+// Basis : 1 min
+d_w =  1.0 ;// Density of aqueous solution-[g/cubic metre]
+d_sol =  0.6 ;// Density of organic solvent-[g/cubic metre]
+
+n_un = 8 ;// Number of unknowns in the given problem
+n_ie  = 8 ;// Number of independent equations
+d_o_f =  n_un-n_ie ;// Number of degree of freedom
+printf('Number of degree of freedom for the given system is  %i .\n',d_o_f);
+
+// Material balance of Strep.
+x =  (200*10+10*0-200*0.2)/10;//[g]
+printf('Strep per litre of solvent is  %.1f g .\n',x);
+
+cnc = x/(1000*d_sol) ;//[g Strep/g of S]
+printf('Strep per gram of solvent is  %.4f g Strep/g of S .\n',cnc);
+
+m_fr = cnc/(1+cnc) ;//Mass fraction
+printf('Mass fraction of Strep is  %.3f g .\n',m_fr);
+\ No newline at end of file