summaryrefslogtreecommitdiff
path: root/3886/CH8/EX8.8/8_8.sce
blob: 0c9cacbb722f65aea940c191140073c4b8a0bf6d (plain)
1
2
3
4
5
6
7
8
//Determine reaction RA
//refer fig.8.12
//Applying virtual work principle
//give virtual displacement at A
//Virtual work equation is
//(RA-20+8)*delta(y)=0
RA=20-8  //kN
printf("The reaction RA=%.2d kN",RA)