summaryrefslogtreecommitdiff
path: root/3886/CH8/EX8.16/8_16.sce
blob: bb8ccec031d8ae041b08872cfba9eda987257a5b (plain)
1
2
3
4
5
6
7
8
9
//Least value of theta to avoid slipping of ladder
//refer fig.8.21
//Applying virtual work principle
//-0.4*NA*6*cosd(theta)*delta(theta)-200*(-3*sind(theta)*delta(theta))-900*(-5*sind(theta)*delta(theta))+0.25*NB(-6*sind(theta)*delta(theta))=0
NA=1100/(1+0.25*0.4)  //N
NB=0.4*1000  //N
theta=atand(2400/4500)  //degree
printf("Thus theta=%.2f degree",theta)