2 files changed, 33 insertions, 0 deletions
diff --git a/3886/CH15/EX15.9/15_9.sce b/3886/CH15/EX15.9/15_9.sce
new file mode 100644
index 000000000..59b595c49
--- /dev/null
+++ b/3886/CH15/EX15.9/15_9.sce
@@ -0,0 +1,28 @@
+//Two blocks on an inclined plane
+//refer fig. 15.11 (a,b,c) and (d)
+//Let block A move with an acceleration a1 and block B with an acceleration a2
+//Consider block A
+//Using equilibrium conditions 
+//NA=WA*cosd(30)
+mu1=0.2
+WA=100  //N
+//From the law of friction
+FA=mu1*WA*cosd(30)  //
+a1=3.2058  //m/sec^2
+//Consider block B
+//NB=WB*cosd(30)
+mu2=0.4
+//From law of friction 
+//FB=mu2*WB*cosd(30)
+a2=1.5067  //m/sec^2
+//Let t be the time elapsed until the blocks touch each other
+//displacement of block A in this period be s1
+//displacement of block B in this period be s2
+//when the two blocks touch each other
+//s1=s2+18
+//thus
+t=4.60  //sec
+//After the blocks touch each other
+a=2.45  //m/sec^2
+P=100*sind(30)-(0.2*100*cosd(30))-((100*2.45)/(9.81))  //N
+printf("\nt=%.2f sec\nP=%.1f N",t,P)
diff --git a/3886/CH15/EX15.9/15_9.txt b/3886/CH15/EX15.9/15_9.txt
new file mode 100644
index 000000000..7254c9480
--- /dev/null
+++ b/3886/CH15/EX15.9/15_9.txt
@@ -0,0 +1,5 @@
+ 
+--> exec('E:\My program EM\15. DAlemberts principle\15.9.sce', -1)
+
+t=4.60 sec
+P=7.7 N
+\ No newline at end of file