1 files changed, 12 insertions, 0 deletions
diff --git a/896/CH12/EX12.1/1.sce b/896/CH12/EX12.1/1.sce
new file mode 100755
index 000000000..ecdf40dd0
--- /dev/null
+++ b/896/CH12/EX12.1/1.sce
@@ -0,0 +1,12 @@
+clc
+//Example 12.1
+//Calculate the eta and slip velocity
+ratio_Q=10//dimentionless (ratio of Qg to Ql)
+x=3.5/ratio_Q//dimentionless
+eta=1/(1+x)//dimentionless
+printf("Eta = %f\n",eta);
+Vl=2.06//ft/s
+Vl_avg=Vl/(1-eta)//ft/s
+Vg_avg=ratio_Q*Vl/eta//ft/s
+V_slip=Vg_avg-Vl_avg//ft/s
+printf("The slip velocity is %f ft/s",V_slip);
+\ No newline at end of file