path: root/3886/CH8/EX8.4/8_4.sce

//Reactions at A
//refer fig. 8.8
//applying virtual work principle
//(RA-60)delta(y)=0
//thus
RA=60  //kN
printf("\n Reaction is RA=%.2f kN",RA)