diff options
Diffstat (limited to '632/CH10/EX10.14/example10_14.sce')
-rwxr-xr-x | 632/CH10/EX10.14/example10_14.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/632/CH10/EX10.14/example10_14.sce b/632/CH10/EX10.14/example10_14.sce new file mode 100755 index 000000000..61fb32f63 --- /dev/null +++ b/632/CH10/EX10.14/example10_14.sce @@ -0,0 +1,24 @@ +//clc()
+m = 1000;//kg ( basis - pig iron produced )
+//let x be the iron ore charged and y be the amount of flux added and z be the weight of slag produced
+PFepg = 95;//% ( Fe% in product )
+PCpg = 4;//%
+PSipg = 1;//%
+PFech = 85;//% (Fe% in feed )
+mcoke = 1000;//kg
+PCcoke = 90;//%
+PSicoke = 10;//%
+PSislag = 60;//%
+PSiflux = 5;//%
+PCaCO3fx = 90;//%
+PMgCO3fx = 5;//%
+PCMslag = 40;//%
+//iron balance gives,
+x = PFepg * m *159.694 / ( PFech * 111.694);
+//silicon balance gives,
+//x*(100 - PFech)*28.086/(100*60.086)+mcoke*Psicoke*28.086/(100*60.086)+y*PSiflux*28.086/(100*60.086) = 10 + z*Psislag*28.086 / ( 100*60.086 )
+//taking (CaO + MgO) balance
+//y * ((PCaCO3fx)*56.88/(100*100.88)+(PMgCO3fx*40.312/(100*84.312))=z*PCMslag/100
+//solving above 2 equations , we get
+y = 403.31;
+disp("kg",y,"the amount of flux required to produce 1000kg of pig iron = ")
\ No newline at end of file |