 
--> exec('E:\My program EM\5. Friction\5.5.sce', -1)

W=10.49 kN