--> exec('E:\My program EM\8. Virtual work\8.10.sce', -1)
Magnitude of P=866.03 N