home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / T-INVSEC.UNT < prev    next >
Text File  |  1996-07-04  |  2KB  |  40 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   T-INVSEC.UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14. $if 1
  15.   $CODE SEG        "DAS_NB03"
  16.   $EVENT            OFF
  17.   $ERROR ALL        OFF
  18.   $OPTIMIZE         SIZE
  19.   $OPTION GOSUB     OFF
  20.   $OPTION CNTLBREAK OFF
  21.   $OPTION SIGNED    OFF
  22.   $DEBUG  MAP       OFF
  23.   $DEBUG  PATH      OFF
  24.   $DEBUG  UNIT      OFF
  25.   $COMPILE          UNIT
  26. $endif
  27.  
  28.   EXTERNAL pPi#
  29.  
  30. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  31. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  32. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  33. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  34.  
  35. FUNCTION fInvSECANT# ( BYVAL X! ) LOCAL PUBLIC
  36.  
  37.   FUNCTION = ATN( X! / SQR( X! * X! -1 ) ) + SGN( SGN(X!)-1 ) * ( pPi#\2 )
  38.  
  39. END FUNCTION
  40.