1 files changed, 27 insertions, 0 deletions
diff --git a/632/CH10/EX10.10/example10_10.sce b/632/CH10/EX10.10/example10_10.sce
new file mode 100755
index 000000000..0e1b75e38
--- /dev/null
+++ b/632/CH10/EX10.10/example10_10.sce
@@ -0,0 +1,27 @@
+//clc()
+mlime = 5;//kg
+mcoke = 1;//kg
+PCaCO3l = 84.5;//%
+PMgCO3l = 11.5;//%
+NCaCO3l = PCaCO3l * mlime / (100.09*100);
+NMgCO3l = PMgCO3l * mlime / (84.312*100);
+mInertsl = mlime * ( 100 - PCaCO3l - PMgCO3l ) / 100;
+PCc = 76;//%
+Pashc = 21;//%
+Pwaterc = 3;//%
+NCc = mcoke *  PCc /(100*12);
+Nwaterc = mcoke * Pwaterc / ( 100 * 18.016 );
+mash = Pashc * mcoke / 100;
+//CaCO3 + C + O2 = CaO + 2CO2
+//MgCO3 + C + O2 = MgO + 2CO2
+PCaCO3conv = 95;//(Percent calcination of CaCO3)
+PMgCO3conv = 90;//(Percent calcination of MgCO3)
+NCaO = PCaCO3conv * NCaCO3l / 100;
+mCaO = NCaO * 56.08;
+NMgO = PMgCO3conv * NMgCO3l / 100;
+mMgO = NMgO * 40.312;
+mCaCO3 = (NCaCO3l * (1-PCaCO3conv/100)*100.09);
+mMgCO3 = (NMgCO3l * (1-PMgCO3conv/100)*84.312);
+mtotal = mCaO + mMgO + mCaCO3 + mMgCO3 + mInertsl + mash;
+PCaO = mCaO * 100 / mtotal;
+disp("%",PCaO,"The weight percent of CaO in the product leaving the kiln = ")
+\ No newline at end of file