 
--> exec('E:\My program EM\8. Virtual work\8.6.sce', -1)
Reaction at B is RB=10.00 kN