1 2 3 4 5
--> exec('E:\My program EM\15. DAlemberts principle\15.12.sce', -1) T=30.145 kN P=40.194 kN
