1 files changed, 35 insertions, 0 deletions
diff --git a/632/CH10/EX10.17/example10_17.sce b/632/CH10/EX10.17/example10_17.sce
new file mode 100755
index 000000000..95171b727
--- /dev/null
+++ b/632/CH10/EX10.17/example10_17.sce
@@ -0,0 +1,35 @@
+//clc()
+m = 50;//kg ( basis - mass of brine charged )
+//let x be the amount of NaCl in the brine
+Pelect = 50;//% ( electrolyzed )
+//2NaCl + 2H2O = 2NaOH + Cl2 + H2
+//amount of NaCl reacted =x*Pelect/(100*58.45)kmol=x*Pelect/100kg   ( 1 )
+//amount of water reacted = x * Pelect * 18.016 / ( 100 * 58.45 )kg ( 2 )
+//Gases produced, Cl2 = x * Pelect / (100 * 58.45 * 2 )kmol = x * Pelect *71/ (100 * 58.45 * 2 )kg                                           ( 3 )
+//H2 = x * Pelect / (100 * 58.45 * 2 )kmol = x * Pelect *2.016/ (100 * 58.45 * 2 )kg                                                         ( 4 )
+Nwater = 0.03;//mol water vapour/mol of gas
+//water vapour present = Nwater * 2*(Cl2 + H2)kmol = Nwater * 2*(Cl2 + H2)*18.016 kg                                                         ( 5 )
+//NaoH = x * Pelect * 40.008/ (100 * 58.45 )kg                      ( 6 )
+//water = water in brine - water reacted - water present in gas     ( 7 )
+//= (m - Pelect/100) - water reacted ( 2 ) - water present in the gas( 5 )
+//Total weight of solution = NaCl ( 1 ) + NaOH ( 6 ) + Water ( 7 )
+//since NaOH is 10 percent of the total weight, we have NaOH = 0.1 * total weight, from these we get, 
+x = 0.1 * 50 / (0.1* 0.3165 + 0.3422 );
+NaOH = x * Pelect * 40.008/ (100 * 58.45 );
+NaCl = x * Pelect / 100;
+water = 34.5032;//kg
+Pevap = 50;//NaOh percentage in solution leaving evaporator
+//taking NaOH balance
+mevap = NaOH * 100 / Pevap;
+disp("kg",mevap,"(a)amount of 50% NaOH solution produced = ")
+Cl2 = x * Pelect *71/ (100 * 58.45 * 2 );//kg
+H2 = x * Pelect *2.016/ (100 * 58.45 * 2 );//kg
+disp("kg",Cl2,"(b)Chlorine produced = ")
+disp("kg",H2,"   Hydrogen produced = ")
+Pleav = 1.5;//% NaCl leaving the evaporator
+NaClleav = mevap * Pleav / 100;
+mcrystal = NaCl - NaClleav;
+disp("kg/h",mcrystal,"(c)Amount of NaCl crystallized = ")
+mwaterleav = mevap - NaOH - NaClleav;
+Mwaterevap = water - mwaterleav;
+disp("kg",Mwaterevap,"(d)Weight of water evaporated = ")
+\ No newline at end of file