summaryrefslogtreecommitdiff
path: root/3886/CH8/EX8.3/8_3.sce
blob: 46e19ea524082872bf4b742a90fb8219ff87d9b0 (plain)
1
2
3
4
5
6
//Reactions of overhanging beam
//refer fig. 8.7
//Applying virtual work principle for beam in equilibrium
RB=(8/6)*(30+60*4/8-20/8)  //kN
RA=(7/6)*(20+60*2/7-30*2/7)  //kN
printf("The reactions are-\nRA=%0.2f kN\nRB=%.2f kN",RA,RB)