summaryrefslogtreecommitdiff
path: root/1325/CH14/EX14.1/14_1.sce
diff options
context:
space:
mode:
Diffstat (limited to '1325/CH14/EX14.1/14_1.sce')
-rw-r--r--1325/CH14/EX14.1/14_1.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/1325/CH14/EX14.1/14_1.sce b/1325/CH14/EX14.1/14_1.sce
new file mode 100644
index 000000000..1dd2dbd28
--- /dev/null
+++ b/1325/CH14/EX14.1/14_1.sce
@@ -0,0 +1,18 @@
+//to find balance weights
+clc
+//given
+W=200//lb
+r=9//in
+b1=15//in
+bm=b1
+l=10//in
+d=50//in
+//case a
+ma=d+l
+Bm1=W*r*l/(d*bm)//From 14.2
+B11=W*r*ma/(d*b1)//from 14.3
+//case b
+mb=d-l
+Bm2=W*r*l/(d*bm)//from 14.2
+B12=W*r*mb/(d*b1)//from 14.3
+printf("\na) Bm= %.f lb ; B1= %.f lb\nb) Bm= %.f lb ; B1= %.f lb",Bm1,B11,Bm2,B12)