3886/CH8/EX8.10/8_10.sce


1
2
3
4
5
6

//Horizontal force P
//refer fig.8.14
//Applying virtual work principle
//-1500*(delta(s)*sind(30))+P*delta(s)*cosd(30)+0=0
P=1500*tand(30)  //N
printf("Magnitude of P=%.2f N",P)