2 files changed, 25 insertions, 0 deletions
diff --git a/3886/CH16/EX16.4/16_4.sce b/3886/CH16/EX16.4/16_4.sce
new file mode 100644
index 000000000..6c6ef94d5
--- /dev/null
+++ b/3886/CH16/EX16.4/16_4.sce
@@ -0,0 +1,21 @@
+//Power of a locomotive
+//refer fig.16.7 (a) and (b)
+v=(56*1000)/(60*60)  //m/sec
+F=5*420/1000  //kN
+W=420  //kN
+P=F+W*(1/120)  //kN
+//Power of Locomotive Pw
+Pw=P*v  //kW (mistake in book)
+u=15.556  //m/sec
+//Resultant force parallel to the plane R
+R=F+W*sind(theta)  //kN (Down the plane)
+s=((420*(15.556^2))/(2*9.81*5.6))  //m
+printf("Power of locomotive=%.4f kW\ns=%.4f m",Pw,s)
+//The answers vary due to round off error
+
+
+
+
+
+
+ 
diff --git a/3886/CH16/EX16.4/16_4.txt b/3886/CH16/EX16.4/16_4.txt
new file mode 100644
index 000000000..1fecd1e8a
--- /dev/null
+++ b/3886/CH16/EX16.4/16_4.txt
@@ -0,0 +1,4 @@
+ 
+--> exec('E:\My program EM\16. Work energy method\16.4.sce', -1)
+Power of locomotive=87.1111 kW
+s=925.0349 m
+\ No newline at end of file