home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / math.ark / RISING.BAS < prev    next >
BASIC Source File  |  1986-12-20  |  896b  |  21 lines
  1. 10 REM THIS IS PROGRAM "RISING.BAS" A PROGRAM TO CALCULATE THE LOCAL HOUR ANGLE
  2. 20 REM    AND THE LOCAL AZMUTH OF THE RISING OF AN ASTRONOMICAL BODY
  3. 30 REM       GIVEN ITS DECLINATION AND THE OBSERVERS LATITUDE
  4. 40 REM ***********************************************************************
  5. 50 PI = 3.1415926#
  6. 60 INPUT "DECLINATION OF BODY IN DEC. DEGREES";D
  7. 70 INPUT "LATITUDE OF OBSERVER IN DEGREES AND MINUTES"; LAT
  8. 80 DEC = D*PI/180
  9. 90 LATITUDE = 100/60*(LAT - INT(LAT))+INT(LAT)
  10. 100 L = LATITUDE*PI/180
  11. 110 LHACOS = - TAN(L)*TAN(DEC)
  12. 120 AZCOS = SIN(DEC)/COS(L)
  13. 130 LHA =PI/2-ATN(LHACOS/(1-LHACOS^2)^.5)
  14. 140 AZ = PI/2-ATN(AZCOS/(1-AZC0S^2)^.5)
  15. 150 AZ = AZ/PI*180
  16. 160 LHA=LHA/PI*12
  17. 170 LHA = 24-LHA
  18. 180 PRINT "RISING AZMUTH =";AZ;"DEGREES, SETTING AZMUTH =";360-AZ;"DEGREES"
  19. 190 PRINT "LHA RISING =";LHA;"HOURS, LHA SETTING =";24-LHA;"HOURS"
  20. 200 END
  21. ;AZ;"DEGREES, SETTING