1 files changed, 15 insertions, 0 deletions
diff --git a/3819/CH1/EX1.13/Ex1_13.sce b/3819/CH1/EX1.13/Ex1_13.sce
new file mode 100644
index 000000000..c8ff859a7
--- /dev/null
+++ b/3819/CH1/EX1.13/Ex1_13.sce
@@ -0,0 +1,15 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 1-Properties of Fluid
+// Problem 1.13
+
+
+//Given Data Set in the Problem
+y=poly(0,"y")
+u=3*y/4-y^2
+visc=8.5/10
+
+//Calculations
+du_dy=(horner(derivat(u),0.15))
+
+ss=visc*du_dy
+mprintf("The shear stress at y=0.15 m is %f N/m^2 \n",ss)