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

---
 812/CH4/EX4.14/4_14.sce | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 812/CH4/EX4.14/4_14.sce

(limited to '812/CH4/EX4.14')

diff --git a/812/CH4/EX4.14/4_14.sce b/812/CH4/EX4.14/4_14.sce
new file mode 100755
index 000000000..755aa6047
--- /dev/null
+++ b/812/CH4/EX4.14/4_14.sce
@@ -0,0 +1,15 @@
+//Relative speed and friction//
+pathname=get_absolute_file_path('4.14.sce')
+filename=pathname+filesep()+'4.14-data.sci'
+exec(filename)
+//Area of jet(in mm^2):
+Ajet=%pi/4*D^2
+//Jet speed relative to the nozzle(in m/sec):
+Vrel=Q/2/Ajet*10^6/60/1000
+//Value of w*R in m/sec:
+wR=w*R*2*%pi/60/1000
+//Friction torque at pivot(in N-m):
+Tf=R*(Vrel*cosd(alpha)-wR)*d*Q/1000/60/1000
+printf("\n\nRESULTS\n\n")
+printf("\n\nJet speed relative to each nozzle: %.2f m/sec\n\n",Vrel)
+printf("\n\nFriction torque at pivot: %.5f N-m\n\n",Tf)
-- 
cgit