2 files changed, 25 insertions, 0 deletions
diff --git a/3886/CH16/EX16.7/16_7.sce b/3886/CH16/EX16.7/16_7.sce
new file mode 100644
index 000000000..8e351d1bc
--- /dev/null
+++ b/3886/CH16/EX16.7/16_7.sce
@@ -0,0 +1,20 @@
+//Block being pulled
+//refer fig. 16.10 (a) and (b)
+//when pull P is acting
+W=2500  //N
+P=1000  //N
+N=W-P*sind(30)
+mu=0.2
+F=mu*N  //N
+//Initial velocity=0
+//Let final velocity be v
+s=30  //m
+//Applying work energy equation for the horizontal motion
+v=sqrt((0.866*1000-400)*30*2*9.81/2500)
+printf("\nv=%.3f m/sec",v)
+//Now if the 1000 N force is removed,let the distance moved before rest be s
+//Initial velocity=10.4745  //m/sec
+//Final velocity=0
+s=(2500*(10.4745^2))/(400*2*9.81)  //m
+printf("\ns=%.3f m",s)
+//The answer provided in the textbook is wrong
diff --git a/3886/CH16/EX16.7/16_7.txt b/3886/CH16/EX16.7/16_7.txt
new file mode 100644
index 000000000..5f5014663
--- /dev/null
+++ b/3886/CH16/EX16.7/16_7.txt
@@ -0,0 +1,5 @@
+ 
+--> exec('E:\My program EM\16. Work energy method\16.7.sce', -1)
+
+v=10.474 m/sec
+s=34.950 m
+\ No newline at end of file