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.1/ex15_1.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 914/CH15/EX15.1/ex15_1.sce

(limited to '914/CH15/EX15.1/ex15_1.sce')

diff --git a/914/CH15/EX15.1/ex15_1.sce b/914/CH15/EX15.1/ex15_1.sce
new file mode 100755
index 000000000..9a70958e9
--- /dev/null
+++ b/914/CH15/EX15.1/ex15_1.sce
@@ -0,0 +1,20 @@
+clc;
+warning("off");
+printf("\n\n example15.1 - pg760");
+// given
+r=[10 20 50 100 200 400 600 1000 2000]
+tau=[2.2 3.1 4.4 5.8 7.4 9.8 11.1 13.9 17.0]
+tau=tau*(10^-4);
+clf;
+xtitle("basic shear diagram for the fluid","shear rate","shear stress");
+plot2d("ll",r,tau);
+// the data falls nearly on a straight line
+// from the graph the slope and the intercept are
+slope=0.3841;
+intercept=9.17046;
+// from the relation tau=K*(-r)^n;
+K=exp(intercept);
+n=slope
+disp(K,"K=",n,"n=");
+printf("\n\n The fluid is pseudo plastic , since the slope is less than 1 ");
+
-- 
cgit