diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /764/CH14/EX14.2.b | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '764/CH14/EX14.2.b')
| -rwxr-xr-x | 764/CH14/EX14.2.b/result14_2.txt | 62 | ||||
| -rwxr-xr-x | 764/CH14/EX14.2.b/solution14_2.sce | 13 |
2 files changed, 75 insertions, 0 deletions
diff --git a/764/CH14/EX14.2.b/result14_2.txt b/764/CH14/EX14.2.b/result14_2.txt new file mode 100755 index 000000000..67c15bebd --- /dev/null +++ b/764/CH14/EX14.2.b/result14_2.txt @@ -0,0 +1,62 @@ +-->//(Chain Drives) Example 14.2
+
+-->//Power delivered by the rotary engine kW
+
+-->kWd = 30
+ kWd =
+
+ 30.
+
+-->//Efficiency of the drive between the engine and the intermediate shaft eta (%)
+
+-->eta = 90
+ eta =
+
+ 90.
+
+-->//Number of teeth on the driving sprocket z1
+
+-->z1 = 17
+ z1 =
+
+ 17.
+
+-->//Speed of the driving sprocket n1 (rpm)
+
+-->n1 = 300
+ n1 =
+
+ 300.
+
+-->//Change the following data accordingly
+
+-->//Find service factor for moderate shock conditions from table 14.3 on page 551
+
+-->Ks = 1.4
+ Ks =
+
+ 1.4
+
+-->//Find multiple strand factor from table 14.4 on page 551
+
+-->//For 4 strands
+
+-->K1 = 3.3
+ K1 =
+
+ 3.3
+
+-->//Find the tooth correction factor from table 14.5 on page 551
+
+-->//For 17 teeth
+
+-->K2 = 1
+ K2 =
+
+ 1.
+
+
+Choose appropriate chain from table 14.2 on page 550 from obtained kw value at a given rpm
+
+Here, for 11.454545 kW rating at 300.000000 rpm, chain-16A is chosen
+
\ No newline at end of file diff --git a/764/CH14/EX14.2.b/solution14_2.sce b/764/CH14/EX14.2.b/solution14_2.sce new file mode 100755 index 000000000..4a1bb7fab --- /dev/null +++ b/764/CH14/EX14.2.b/solution14_2.sce @@ -0,0 +1,13 @@ +
+//Obtain path of solution file
+path = get_absolute_file_path('solution14_2.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data14_2.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the kW rating for the chain
+kW = kWd * (eta/100) * Ks/(K1 * K2)
+printf("\nChoose appropriate chain from table 14.2 on page 550 from obtained kw value at a given rpm\n")
+printf("\nHere, for %f kW rating at %f rpm, chain-16A (11.63 kW rating) is chosen\n",kW,n1)
|