 
--> exec('E:\My program EM\15. DAlemberts principle\15.11.sce', -1)

a=1.401 m/sec^2
T=642.89 N