summaryrefslogtreecommitdiff
path: root/1325/CH14/EX14.5/14_5.sce
blob: 26624ab7a5759d7741e8ab01e8b194e278406865 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//To find the balance weight required and the residual unbalanced force
clc
//given
W=180//lb
R=150//lb
c=.5
N=300//rpm
r=7.5/12//ft
Bb=(W+c*R)*r*12
b=6//in
B=Bb/b
w=(%pi*N)/30
Uf=(1/2)*(R/g)*w^2*r
a=floor(Uf)
printf("Balance weight required = %.1f lb\n The resultant unbalanced force = %.f lb\n",B,a)