 
--> exec('E:\My program EM\8. Virtual work\8.16.sce', -1)
Thus theta=28.07 degree