,L[]CASE ,2TA ,EXAMPLES

#A4 ,2TA EQUALS #DE DEGREES IS
  WRITT5 _% .B .K #45^.* _:
#B4 ,! SECANT ( 2TA EQUALS OP5
  FRAC;N "O OV] ! COS9E ( 2TA
  CLOSE FRAC;N IS WRITT5
  _% SEC .B .K ?1/COS .B# _:
#C4 ,! S9E ( OP5 P>5!SIS OP5
  FRAC;N PI OV] TWO CLOSE FRAC;N
  M9US 2TA CLOSE P>5!SIS EQUALS
  ! COS9E ( 2TA IS WRITT5
  _% SIN (?.P/2#-.B) .K COS .B
  _:
#D4 ,! TANG5T ( TWO 2TA EQUALS
  OP5 FRAC;N TWO TANG5T 2TA OV]
  "O M9US TANG5T SQU>$ 2TA CLOSE
  FRAC;N IS WRITT5
  _% TAN #2.B
    .K ?2TAN .B/1-TAN^2".B# _:
#E4 ,! COSECANT ( OP5 P>5!SIS
  NEGATIVE 2TA CLOSE P>5!SIS
  EQUALS NEGATIVE COSECANT 2TA
  IS WRITT5 _%
  CSC (-.B) .K -CSC .B _:     #A
#F4 ,"O PLUS COTANG5T SQU>$ 2TA
  EQUALS COSECANT SQU>$ 2TA IS
  WRITT5
  _% #1+COT^2 .B .K CSC^2 .B _:




















                              #B