1 files changed, 11 insertions, 0 deletions
diff --git a/632/CH9/EX9.22/example9_22.sce b/632/CH9/EX9.22/example9_22.sce
new file mode 100755
index 000000000..1a08faeb7
--- /dev/null
+++ b/632/CH9/EX9.22/example9_22.sce
@@ -0,0 +1,11 @@
+//clc()
+xf = 500 * 10^-6;
+xp = 50 * 10^-6;
+xb = 1600 * 10^-6;
+//F - Feed water rate, B - blow down rate, S - high pressure steam, P - process stream rate
+// total balance, F = P + B
+// Solid balance, F * xf + P * xp = B * xb
+//eliminating P, we get, F * xf + (F - B)*xp = B * xb
+//let F/B be X
+X = (xb + xp)/(xf + xp);
+disp(X,"the ratio of feed water to the blowdown water = ")
+\ No newline at end of file