,GREEK ,LRS "<ANGLE
       M1SURE"> ,EXAMPLES

,L[]CASE ,GREEK LRS >E G5]ALLY
  US$ Z V>IABLES = ANGLE M1SURE
  S ^? >E ! "OS US$ 9 ! FOLL[+
  SAMPLES4
#A4 ,TWO S9E ALPHA COS9E 2TA IS
  WRITT5 _% #2SIN .ACOS .B _:
#B4 ,! COSECANT ( OP5 FRAC;N
  FIVE PI OV] #C CLOSE FRAC;N IS
  WRITT5 _% CSC ?5.P/3# _:
#C4 ,! COTANG5T ( OP5 P>5!SIS
  NEGATIVE OP5 FRAC;N PI OV]
  ?REE CLOSE FRAC;N CLOSE
  P>5!SIS IS WRITT5
  _% COT (-?.P/3#) _:
#D4 ,! TANG5T ( OP5 P>5!SIS PI
  PLUS GAMMA CLOSE P>5!SIS
  EQUALS ! TANG5T ( GAMMA IS
  WRITT5
  _% TAN (.P+.G) .K TAN .G _:
#E4 ,! SECANT ( !TA EQUALS TWO
  IS WRITT5 _% SEC .? .K #2 _:
                              #A
#F4 ,! COSECANT ( PHI EQUALS OP5
  FRAC;N "O OV] ! S9E ( PHI
  CLOSE FRAC;N IS WRITT5
  _% CSC .F .K ?1/SIN .F# _:




















                              #B