summaryrefslogtreecommitdiff
path: root/3886/CH7/EX7.4/7_4.sce
blob: d8bd73ed64d0dd70c61d3c30b24ac48139e9d250 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//range of weight
//refer fig. 7.5
//angle of contact
theta=1.25*2*%pi
//case 1-Let impending motion of the weight be downward
//T1=600  //N
//T2=W
//from law of rope friction
//T2=T1*%e^mu*theta
aW=600*(%e^(0.3*2.5*%pi))  //N
//case-2 impending motion of W be upward
//T1=W
//T2=600 N
//from law of rope friction
bW=600/(%e^(0.75*%pi))  //N
printf("The range of weight that can be supported is from %.2f N to %.2f N",aW,bW)