1 files changed, 16 insertions, 0 deletions
diff --git a/858/CH2/EX2.15/example_15.sce b/858/CH2/EX2.15/example_15.sce
new file mode 100755
index 000000000..668dd839c
--- /dev/null
+++ b/858/CH2/EX2.15/example_15.sce
@@ -0,0 +1,16 @@
+clc
+clear 
+printf("example 2.15 page number 75\n\n")
+
+//to find u_in, M_v, k'
+
+u_in = 0.575   //from the graph
+u_s = 0.295   //in mPa-s
+
+M_v = (u_in/(5.80*10^-5))^(1/0.72);
+u_red = 0.628;   //in dl/g
+
+c = 0.40   //in g/dl
+k = (u_red-u_in)/((u_in^2)*c);
+
+printf("k = %f \nMv = %f\nu_in = %f dl/gm",k,M_v,u_in)