1 files changed, 15 insertions, 0 deletions
diff --git a/632/CH9/EX9.10/example9_10.sce b/632/CH9/EX9.10/example9_10.sce
new file mode 100755
index 000000000..859272725
--- /dev/null
+++ b/632/CH9/EX9.10/example9_10.sce
@@ -0,0 +1,15 @@
+//clc()
+m = 100;//kg
+Pin1 = 40;//% ( tannin )
+Pin2 = 5;//% ( moisture )
+Pin3 = 23;//% ( soluble non tannin material )
+Pin4 = 100 - Pin1 - Pin2 - Pin3;//% ( insoluble lignin )
+// since, lignin is insoluble, all of it will be present in the residue
+Pout1 = 3;//%
+Pout2 = 50;//%
+Pout3 = 1;//%
+Pout4 = 100 - Pout1 - Pout2 - Pout3;
+//let W be the mass of residue, then we get
+W = Pin4 * m / Pout4;
+Ptannin = W * Pout1 * 100 / (m * Pin1);
+disp("%",Ptannin,"Percent of original tannin unextracted = ")
+\ No newline at end of file