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

---
 764/CH14/EX14.7.b/result14_7.txt   | 78 ++++++++++++++++++++++++++++++++++++++
 764/CH14/EX14.7.b/solution14_7.sce | 21 ++++++++++
 2 files changed, 99 insertions(+)
 create mode 100755 764/CH14/EX14.7.b/result14_7.txt
 create mode 100755 764/CH14/EX14.7.b/solution14_7.sce

(limited to '764/CH14/EX14.7.b')

diff --git a/764/CH14/EX14.7.b/result14_7.txt b/764/CH14/EX14.7.b/result14_7.txt
new file mode 100755
index 000000000..3afc9fb93
--- /dev/null
+++ b/764/CH14/EX14.7.b/result14_7.txt
@@ -0,0 +1,78 @@
+-->//(Chain Drives) Example 14.7
+ 
+-->//Speed of the electric motor n1 (rpm)
+ 
+-->n1 = 1400
+ n1  =
+ 
+    1400.  
+ 
+-->//Speed of the line shaft n2 (rpm)
+ 
+-->n2 = 350
+ n2  =
+ 
+    350.  
+ 
+-->//Number of teeth on the driving sprocket z1
+ 
+-->z1 = 19
+ z1  =
+ 
+    19.  
+ 
+-->//kW rating of 10B chain for n1 rpm from table 14.2 on page 550 kW
+ 
+-->kW = 11.67
+ kW  =
+ 
+    11.67  
+ 
+-->//Pitch of the chain p (mm)
+ 
+-->p = 15.875
+ p  =
+ 
+    15.875  
+ 
+-->//Breaking load for the chain Pb (N)
+ 
+-->Pb = 22200
+ Pb  =
+ 
+    22200.  
+ 
+-->//Change the following data accordingly
+ 
+-->//Find service factor for moderate shock conditions from table 14.3 on page 551
+ 
+-->Ks = 1
+ Ks  =
+ 
+    1.  
+ 
+-->//Find multiple strand factor from table 14.4 on page 551
+ 
+-->//For 1 strand
+ 
+-->K1 = 1
+ K1  =
+ 
+    1.  
+ 
+-->//Find the tooth correction factor from table 14.5 on page 551
+ 
+-->//For 19 teeth
+ 
+-->K2 = 1.11
+ K2  =
+ 
+    1.11  
+ 
+
+Rated power for which the chain drive can be recommended(kWd) = 12.953700 kW
+
+Tension in the chain(P1) = 1840.558878 N
+
+Factor of safety for the chain based on the breaking load(fs) = 12.061554
+ 
\ No newline at end of file
diff --git a/764/CH14/EX14.7.b/solution14_7.sce b/764/CH14/EX14.7.b/solution14_7.sce
new file mode 100755
index 000000000..1537d910d
--- /dev/null
+++ b/764/CH14/EX14.7.b/solution14_7.sce
@@ -0,0 +1,21 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution14_7.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data14_7.sci'
+//Clear all 
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the power to be transmitted kWd
+kWd = kW * K1 * K2/Ks
+//Calculate the velocity of the driving sprocket v (m/s)
+v = z1 * p * n1/(60000)
+//Calculate the tension in the chain P1
+P1 = 1000 *kWd/v
+//Calculate the factor of safety fs
+fs = Pb/P1
+//Print results
+printf("\nRated power for which the chain drive can be recommended(kWd) = %f kW\n",kWd)
+printf("\nTension in the chain(P1) = %f N\n",P1)
+printf("\nFactor of safety for the chain based on the breaking load(fs) = %f\n",fs)
-- 
cgit