,COTANG5T ,EXAMPLES

#1_4 ,! COTANG5T ( #30 DEGREES
  IS WRITT5 COT #30^.*
#2_4 ,! COTANG5T ( OP5 FRAC;N PI
  OV] F\R CLOSE FRAC;N EQUALS "O
  IS WRITT5 COT ?.P/4# .K #1
#3_4 ,! COTANG5T ( ;X IS EQUAL
  6OP5 FRAC;N "O OV] ! TANG5T (
  ;X CLOSE FRAC;N IS WRITT5
  COT X .K ?1/TAN X#
#4_4 ,COTANG5T SQU>$ !TA PLUS "O
  EQUALS COSECANT SQU>$ !TA IS
  WRITT5 COT^2 .?+1 .K CSC^2 .?










                              #A