summaryrefslogtreecommitdiff
path: root/3886/CH15/EX15.6
diff options
context:
space:
mode:
Diffstat (limited to '3886/CH15/EX15.6')
-rw-r--r--3886/CH15/EX15.6/15_6.sce20
-rw-r--r--3886/CH15/EX15.6/15_6.txt6
2 files changed, 26 insertions, 0 deletions
diff --git a/3886/CH15/EX15.6/15_6.sce b/3886/CH15/EX15.6/15_6.sce
new file mode 100644
index 000000000..8cdc10100
--- /dev/null
+++ b/3886/CH15/EX15.6/15_6.sce
@@ -0,0 +1,20 @@
+//Body on an inclined plane
+//Refer fig. 15.8 (a),(b) and (c)
+//Consider 1200 N block
+//applying equilibrium condition
+N=1200*cosd(12) //N
+mu=0.2
+//From Law of friction
+F=mu*N
+//applying equilibrium condition
+a=(800-484.25)/(122.32+((800)/(9.81))) //m/sec^2
+//solving for T
+T=800-((800*1.549)/(9.81)) //N
+//initial velocity=0
+t=3 //sec
+//distance moved in 3 sec
+s=0*3+((1.549*3^2)/(2)) //m
+printf("\na=%.3f m/sec^2\nT=%.2f N\ns=%.3f m",a,T,s)
+
+
+
diff --git a/3886/CH15/EX15.6/15_6.txt b/3886/CH15/EX15.6/15_6.txt
new file mode 100644
index 000000000..1c8d54c21
--- /dev/null
+++ b/3886/CH15/EX15.6/15_6.txt
@@ -0,0 +1,6 @@
+
+--> exec('E:\My program EM\15. DAlemberts principle\15.6.sce', -1)
+
+a=1.549 m/sec^2
+T=673.68 N
+s=6.970 m \ No newline at end of file