summaryrefslogtreecommitdiff
path: root/632/CH10/EX10.14/example10_14.sce
diff options
context:
space:
mode:
Diffstat (limited to '632/CH10/EX10.14/example10_14.sce')
-rwxr-xr-x632/CH10/EX10.14/example10_14.sce24
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