From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 914/CH15/EX15.2/ex15_2.sce | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 914/CH15/EX15.2/ex15_2.sce

(limited to '914/CH15/EX15.2')

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');
+
-- 
cgit