,TANG5T ,EXAMPLES

#1_4 ,! TANG5T ( "O HUNDR$ TW5TY
  DEGREES IS WRITT5 TAN #120^.*
#2_4 ,! TANG5T ( OP5 FRAC;N TWO
  PI OV] ?REE CLOSE FRAC;N
  EQUALS ! NEGATIVE SQU>E ROOT (
  ?REE IS WRITT5
  TAN ?2.P/3# .K ->3]
#3_4 ,! TANG5T ( ;X IS EQUAL
  6OP5 FRAC;N S9E ( ;X OV] COS9E
  ( ;X CLOSE FRAC;N IS WRITT5
  TAN X .K ?SIN X/COS X#
#4_4 ,TANG5T SQU>$ !TA EQUALS
  SECANT SQU>$ !TA M9US "O IS
  WRITT5 TAN^2 .? .K SEC^2 .?-1








                              #A