3886/CH8/EX8.7/8_7.sce


1
2
3
4
5
6
7
8

//Determine reaction RA
//refer fig. 8.11
//give virtual displacement at A
//Applying virtual work principle
//(RA-32+8+0+4)*delta(y)=0
RA=32-8-4  //kN
printf("Reaction at A is RA=%.2f kN",RA)