home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / INVERSE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  589b  |  17 lines

  1. 5  HOME 
  2. 10  REM   ****************************
  3. 20  REM   * INVERSE                  *
  4. 30  REM   * BY DAVID THOMAS MUELLER  *
  5. 40  REM   * COPYRIGHT(C) 1990        *
  6. 50  REM   * MINDCRAFT PUBL. CORP.    *
  7. 60  REM   * CONCORD, MA. 01742       *
  8. 70  REM   ****************************
  9. 80  REM  ARC-SINE
  10. 90 S = .866024962
  11. 100 C =  SQR(1 -S ^2)
  12. 110 AA =  ATN(S/C) *57.2957795: REM  FOR C > 0
  13. 120  PRINT "THE ARC-SINE OF "S: PRINT "IS  "AA" DEGREES": PRINT 
  14. 130 C = .5
  15. 140 S =  SQR(1 -C ^2)
  16. 150 AA =  ATN(S/C) *57.2957795: REM  FOR C > 0
  17. 160  PRINT "THE ARC-COSINE OF "C: PRINT "IS "AA" DEGREES"