1 files changed, 30 insertions, 0 deletions
diff --git a/858/CH7/EX7.13/example_13.sce b/858/CH7/EX7.13/example_13.sce
new file mode 100755
index 000000000..c529c3055
--- /dev/null
+++ b/858/CH7/EX7.13/example_13.sce
@@ -0,0 +1,30 @@
+clc
+clear 
+printf("example 7.11 page number 316\n\n")
+
+//to find the % transformation
+
+moles_A = 0.02;
+K = 1;
+
+//part 1
+moles_B = 0.02;
+function[f] = F(x)
+    f = moles_A*moles_B-(moles_A+moles_B)*x;
+endfunction
+
+//initial guess
+x = 10;
+y = fsolve(x,F);
+printf("amount of A transformed = %f percent",y*(100/0.02))
+
+//part 2
+moles_B = 0.1;
+y = fsolve(x,F);
+printf("\n\namount of A transformed = %f percent",y*(100/0.02))
+
+//part 1
+moles_B = 0.2;
+y = fsolve(x,F);
+printf("\n\namount of A transformed = %f percent',y*(100/0.02))
+