3886/CH8/EX8.6/8_6.sce


1
2
3
4
5
6
7

//Reaction at B
//refer fig. 8.10
//Applying virtual work principle
//(-4-6+RB)*delta(y)=0
//Thus
RB=6+4  //kN
printf("Reaction at B is RB=%.2f kN",RB)