1 files changed, 19 insertions, 0 deletions
diff --git a/1962/CH7/EX7.1/example7_1.sce b/1962/CH7/EX7.1/example7_1.sce
new file mode 100755
index 000000000..061c4d492
--- /dev/null
+++ b/1962/CH7/EX7.1/example7_1.sce
@@ -0,0 +1,19 @@
+
+//example 7.1
+//page 245
+clc; funcprot(0);
+//initialisation of variable
+mug=8620/10000;//viscosity of glycerine
+nuw=0.804*10^-6//kinematic viscosity of water
+S=1.26;
+rhog=995.7;//density of glycerine
+rhow=1000;//density of water
+D=0.02;
+V=0.3;
+Rw=V*D/nuw;
+disp(Rw,"reynolds number of water flow");
+disp("reynolds number greater than 2000 so flow turbulent");
+Rg=V*D/mug*rhog;
+disp(Rg,"reynolds number of glycerine flow");
+disp("reynolds number less than 2000 so flow laminar");
+clear