1 files changed, 19 insertions, 0 deletions
diff --git a/3845/CH12/EX12.9/Ex12_9.sce b/3845/CH12/EX12.9/Ex12_9.sce
new file mode 100644
index 000000000..a317b18ed
--- /dev/null
+++ b/3845/CH12/EX12.9/Ex12_9.sce
@@ -0,0 +1,19 @@
+//Example 12.9
+Q=0.120;//Flow rate (cm^3/s)
+Q=Q*(10^-2)^3;//Flow rate (m^3/s)
+r=0.150*10^-3;//Radius of needle (m)
+eta=1*10^-3;//Viscosity of saline solution(N.s/m^2)
+//Above information from Exercise 12.8
+//////////////////////////////////////
+A=%pi*r^2;//Cross-sectional area of needle
+v=Q/A;//Fluid speed (m/s)
+rho=1025;//Density of saline solution (kg/m^3)
+N_R=(2*rho*v*r)/eta;//Reynolds number
+printf('Reynolds number = %0.1f (flow in tube)',N_R)
+if N_R<2000 disp('The flow is laminar')
+elseif N_R>=2000&N_R<=3000 disp('The flow is unstable')
+else disp('The flow is turbulent')
+end
+//Answer slightly varies with the textbook given answer
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest