summaryrefslogtreecommitdiff
path: root/3886/CH8/EX8.11/8_11.sce
blob: 80f80af83091c04f886050febadfbf1fb955f708 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Range of force P
//refer fig. 8.15
//a-when the motion is impending up the plane
mu=0.3
N=1000*cosd(70)
F=mu*N  //N
//Applying virtual work principle
aP=1000*sind(70)+300*cosd(70)  //N
//b-when the motion is impending down the plane
//Applying virtual work principle
bP=1000*sind(70)-300*cosd(70)  //N
printf("Block is in equilibrium for P=%.2f N to %.2f N",bP,aP)