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

a=1.549 m/sec^2
T=673.68 N
s=6.970 m