summaryrefslogtreecommitdiff
path: root/3751/CH17/EX17.19/Ex17_19.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3751/CH17/EX17.19/Ex17_19.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3751/CH17/EX17.19/Ex17_19.sce')
-rw-r--r--3751/CH17/EX17.19/Ex17_19.sce30
1 files changed, 30 insertions, 0 deletions
diff --git a/3751/CH17/EX17.19/Ex17_19.sce b/3751/CH17/EX17.19/Ex17_19.sce
new file mode 100644
index 000000000..123d0f320
--- /dev/null
+++ b/3751/CH17/EX17.19/Ex17_19.sce
@@ -0,0 +1,30 @@
+//Fluid Systems - By Shiv Kumar
+//Chapter 17- Dimensional and Model Analysis
+//Example 17.19
+//To Find the Speed of Air in Wind Tunnel and Determine the The Ratio of Drag(Resistance) between the Model and its Prototype.
+
+ clc
+ clear
+
+//Given:-
+ Lr=30; //Scale Ratio (Lp/Lm)
+ //For Model ( Working Fluid is Air),
+ nu_m=0.016; //Kinematic Viscosity of Air, Stoke
+ rho_m=1.24; //Density of Air, Kg/m^3
+
+ //For Prototype ( Working Fluid is Sea Water),
+ Vp=10; //Speed of Sub-marine (Prototype), m/s
+ nu_p=0.012; //Kinematic Viscosity of Sea Water, Stoke
+ rho_p=1030; //Density of Sea Water, Kg/m^3
+
+//Computations:-
+ //From Reynold's Law of Similarity,
+ Vm=Vp*(nu_m/nu_p)*Lr; //Velocity of Air, m/s
+
+ Fp_by_Fm=(rho_p/rho_m)*Lr^2*(Vp/Vm)^2; //Ratio of Drag Force (Resistance)
+
+
+//Results:-
+ printf("The Speed of Air in Wind Tunnel, Vm=%.f m/s\n",Vm)
+ printf("The Ratio of Drag Force (Resistance), Fp/Fm=%.3f \n",Fp_by_Fm)
+