diff options
| author | prashantsinalkar | 2018-02-03 11:01:52 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2018-02-03 11:01:52 +0530 |
| commit | 7bc77cb1ed33745c720952c92b3b2747c5cbf2df (patch) | |
| tree | 449d555969bfd7befe906877abab098c6e63a0e8 /3886/CH8/EX8.14/8_14.sce | |
| parent | d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (diff) | |
| download | Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.gz Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.bz2 Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.zip | |
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)
+
|