diff options
Diffstat (limited to '3886/CH8/EX8.14/8_14.sce')
| -rw-r--r-- | 3886/CH8/EX8.14/8_14.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3886/CH8/EX8.14/8_14.sce b/3886/CH8/EX8.14/8_14.sce new file mode 100644 index 000000000..a34f24830 --- /dev/null +++ b/3886/CH8/EX8.14/8_14.sce @@ -0,0 +1,12 @@ +//Determine WB
+//refer fig.8.18
+theta=atand(3/4)
+mu=0.3
+WA=200
+F=mu*WA*cosd(theta) //N
+//Let us give virtual displacement of delta(s) up the plane to block A
+//Applying virtual work principle
+//(-200*sind(theta)-F+WB/2)*delta(s)=0
+WB=2*(200*sind(theta)+F) //N
+printf("Required value of WB=%.2f N",WB)
+
|