summaryrefslogtreecommitdiff
path: root/3886/CH5/EX5.8/5_8.sce
blob: 652e6f9ebf78542c6a0efcc353627ed686fb8763 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Force P for impending motion
//Refer fig. 5.12
//consider equilibrium of block A
//NA*cosd(30)+FA*sind(30)-1500-500=0
//Law of friction gives
NA=2000  //N
FA=NA*tand(15)  //N
C=NA*sind(30)-FA*cosd(30)  //N
//consider equilibrium of block B
NB=2000*cosd(60)+535.90*cosd(30)  //N
FB=NB*tand(15)  //N
P=(392.30)+(2000*sind(60))-(535.90*sind(30))  //N
printf("The required force is P=%0.2f N",P)