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

---
 858/CH4/EX4.13/example_13.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 858/CH4/EX4.13/example_13.sce

(limited to '858/CH4/EX4.13')

diff --git a/858/CH4/EX4.13/example_13.sce b/858/CH4/EX4.13/example_13.sce
new file mode 100755
index 000000000..6d0973283
--- /dev/null
+++ b/858/CH4/EX4.13/example_13.sce
@@ -0,0 +1,22 @@
+clc
+clear 
+printf("example 4.13 page number 146\n\n")
+
+//to find the tube length
+density=1000    //in kg/m3
+viscosity=1*10^-3   //in Pa s
+P=100*1000    //in Pa
+
+vdP=P/density;
+
+Q=2.5*10^-3/(24*3600)
+A=3.14*(0.0005)^2/4;
+u=Q/A;
+printf("u = %f m/s",u)
+
+Re=density*u*0.0005/viscosity;
+printf("\n\nRe = %f",Re)
+
+//F=18.86*L
+L=(-u^2+vdP)/18.86;
+printf("\n\nL = %f m",L)
-- 
cgit