2 files changed, 19 insertions, 0 deletions
diff --git a/3886/CH16/EX16.1/16_1.sce b/3886/CH16/EX16.1/16_1.sce
new file mode 100644
index 000000000..658726feb
--- /dev/null
+++ b/3886/CH16/EX16.1/16_1.sce
@@ -0,0 +1,15 @@
+//Pump
+//Work done in lifting 40 m^3 of water to a height of 50 m (W1)
+W1=40*9810*50  //N-m
+//Kinetic energy at delivery KE1
+KE1=(40*9810*25)/(2*9.81)  //N-m
+//Total energy spent (TE)
+TE=19620000+500000  //N-m
+//This energy is spent by the pump in half an hour
+//Pump output power (PO)
+PO=(20120000)/(1800*1000)  //kW
+//Input power (Ip)
+Ip=PO/0.7  //kW
+printf("\Energy spent=%.2f N-m\nInput power=%.4f kW",TE,Ip)
+
+
diff --git a/3886/CH16/EX16.1/16_1.txt b/3886/CH16/EX16.1/16_1.txt
new file mode 100644
index 000000000..84c50c4cb
--- /dev/null
+++ b/3886/CH16/EX16.1/16_1.txt
@@ -0,0 +1,4 @@
+ 
+--> exec('E:\My program EM\16. Work energy method\16.1.sce', -1)
+Energy spent=20120000.00 N-m
+Input power=15.9683 kW
+\ No newline at end of file