From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3886/CH8/EX8.14/8_14.sce | 12 ++++++++++++
 3886/CH8/EX8.14/8_14.txt |  3 +++
 2 files changed, 15 insertions(+)
 create mode 100644 3886/CH8/EX8.14/8_14.sce
 create mode 100644 3886/CH8/EX8.14/8_14.txt

(limited to '3886/CH8/EX8.14')

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)
+
diff --git a/3886/CH8/EX8.14/8_14.txt b/3886/CH8/EX8.14/8_14.txt
new file mode 100644
index 000000000..eb621d93c
--- /dev/null
+++ b/3886/CH8/EX8.14/8_14.txt
@@ -0,0 +1,3 @@
+ 
+--> exec('E:\My program EM\8. Virtual work\8.14.sce', -1)
+Required value of WB=336.00 N
\ No newline at end of file
-- 
cgit