summaryrefslogtreecommitdiff
path: root/3886/CH5/EX5.4/5_4.sce
blob: 7aa89294814efa928779415dab4852916cc369ec (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Value of P
//Refer fig.5.8
//consider equilibrium
mu=0.2
//750N block
N1=750*cosd(60)  //N
F1=mu*N1  //N
T=F1+750*sind(60)  //N
//500N block
//N2=500-0.5P
//Law of friction
//F2=0.2*N2
P=(724.52+100)/(cosd(30)+0.1)  //N
printf("\nP=%0.2f N",P)