1 files changed, 17 insertions, 0 deletions
diff --git a/764/CH14/EX14.1.b/solution14_1.sce b/764/CH14/EX14.1.b/solution14_1.sce
new file mode 100755
index 000000000..120a82fc7
--- /dev/null
+++ b/764/CH14/EX14.1.b/solution14_1.sce
@@ -0,0 +1,17 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution14_1.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data14_1.sci'
+//Clear all 
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the velocity of the sprocket v (m/s)
+v = z1 * p * n1/(60 * (10^3))
+//Calculate the chain tension at the rated power P1 (N)
+P1 = (1000 * kW)/v
+//Calculate the factor of safety fs
+fs = Pmax/P1
+//Print results
+printf("\nFactor of safety for standard power rating(fs) = %f\n",fs)