1 files changed, 16 insertions, 0 deletions
diff --git a/914/CH15/EX15.2/ex15_2.sce b/914/CH15/EX15.2/ex15_2.sce
new file mode 100755
index 000000000..910b07298
--- /dev/null
+++ b/914/CH15/EX15.2/ex15_2.sce
@@ -0,0 +1,16 @@
+clc;
+warning("off");
+printf("\n\n example15.2 - pg774");
+// given
+a=[651 1361 2086 5089 7575 11140 19270 25030]
+tau=[3.71 7.49 11.41 24.08 -35.21 46.25 77.50 96.68]
+clf;
+xtitle("capillary shear diagram for polyisobutylene L-80 in cyclohexane","pseudoshear rate","wall shear stress");
+plot2d("ll",a,tau);
+// from the graph
+betao=-4.3790154;
+beta1=0.8851;
+K'=exp(betao);
+n'=beta1;
+printf("\n\n The final rheological model is \n tauw = %f*(8*Uz,avg/do)^%f",K',n');
+