summaryrefslogtreecommitdiff
path: root/3886/CH8/EX8.15/8_15.sce
blob: 3d7112b1398bbdf2672483a97994f73d7e091f3d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Determine force P
//refer fig.8.19
//(a) P at floor level
//Applying virtual work principle
//P*delta(x)-200*delta(y)=0
P=100*tand(30)  //N
//(b) If the rope is used instead of force P
//refer fig.8.20
//Taking C as origin
//Applying virtual work principle
//(-3*T*cosd(theta)+400*sind(theta))*delta(theta)=0
T=(400*tand(30))/3  //N
printf("\nP=%.2f N\nT=%.2f N",P,T)