diff options
Diffstat (limited to '3782/CH3/EX3.7/Ex3_7.sce')
| -rw-r--r-- | 3782/CH3/EX3.7/Ex3_7.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/3782/CH3/EX3.7/Ex3_7.sce b/3782/CH3/EX3.7/Ex3_7.sce new file mode 100644 index 000000000..08ba2998c --- /dev/null +++ b/3782/CH3/EX3.7/Ex3_7.sce @@ -0,0 +1,18 @@ + +// + +// + +magneticbearing=135+0.5 +declination=5+0.25 +truebearing=magneticbearing-declination +deg=int(truebearing) +mins=truebearing-deg +printf("\n truebearing of AB= %0.3f degrees %0.3f minutes",deg,15.0) + +truebearing=210+(45/60) +declination=8+(15/60) +magnetic_bearing=truebearing+declination +deg=int(magnetic_bearing) +mins=magnetic_bearing-deg +printf("\n magnetic bearing of AB= %0.3f degrees %0.3f minutes",deg,mins) |