 
--> exec('E:\My program EM\13. Projectiles\13.15.sce', -1)

When the shot is fired up the plane
Range=1064.65 m
When the shot is fired down the plane
Range=6586.27 m