summaryrefslogtreecommitdiff
path: root/3886/CH6/EX6.14/6_14.sce
blob: 68df5a803ea57fab480506059bf1c0c54f4e2b3f (plain)
1
2
3
4
5
6
7
8
9
//Force required at the end of lever
d=40  //mm
p=20/3  //mm
W=40000  //N
R=400  //mm
mu=0.12
theta=atand(p/(%pi*d))  //degree
P=(d*W*(mu+tand(theta)))/(2*R*(1-mu*tand(theta)))  //N
printf("Force required at the end of lever P=%0.2f N",P)