2 files changed, 31 insertions, 0 deletions
diff --git a/3886/CH16/EX16.5/16_5.sce b/3886/CH16/EX16.5/16_5.sce
new file mode 100644
index 000000000..aba7c080d
--- /dev/null
+++ b/3886/CH16/EX16.5/16_5.sce
@@ -0,0 +1,26 @@
+//A tram car 
+//refer fig.16.8 (a),(b) and (c)
+//frictional resistance
+W=120  //kN
+F=5*120/1000  //kN
+v=(20*1000)/(60*60)  //m/sec
+// (1) on level track
+P1=F  //kN
+//output power Pw1
+Pw1=P1*v  //kW
+eta1=0.8
+//input power Ip1
+Ip1=Pw1/0.8  //kW
+// (2) Up the plane
+P2=F+W*(1/300)  //kN
+//output power required Pw2
+Pw2=P2*v  //kW
+//Input power of engine Ip2
+Ip2=Pw2/0.8  //kW
+// (3) Down the incline plane
+Pd=F-W*(1/300)
+Pwd=0.2*5.5556  //kW
+//Input power 
+Ipd=1.1111/0.8  //kW
+printf("\On level track Input Power=%.3f kW\nUp the plane Input Power=%.3f kW\nDown the incline plane Input Power=%.3f kW",Ip1,Ip2,Ipd)
+
diff --git a/3886/CH16/EX16.5/16_5.txt b/3886/CH16/EX16.5/16_5.txt
new file mode 100644
index 000000000..2eba45c68
--- /dev/null
+++ b/3886/CH16/EX16.5/16_5.txt
@@ -0,0 +1,5 @@
+ 
+--> exec('E:\My program EM\16. Work energy method\16.5.sce', -1)
+On level track Input Power=4.167 kW
+Up the plane Input Power=6.944 kW
+Down the incline plane Input Power=1.389 kW
+\ No newline at end of file