summaryrefslogtreecommitdiff
path: root/1325/CH14/EX14.1/14_1.sce
blob: 1dd2dbd28616ea9aa736d01a624c9545f37b4cb1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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)