,L[]CASE ,ALPHA ,EXAMPLES

#1_4 ,! SECANT ( ALPHA EQUALS !
  SQU>E ROOT ( TWO IS WRITT5
  SEC .A .K >2]
#2_4 ,! COSECANT ( ALPHA EQUALS
  OP5 FRAC;N "O OV] ! S9E (
  ALPHA CLOSE FRAC;N IS WRITT5
  CSC .A .K ?1/SIN .A#
#3_4 ,! TANG5T ( OP5 P>5!SIS PI
  M9US ALPHA CLOSE P>5!SIS
  EQUALS NEGATIVE TANG5T ( ALPHA
  IS WRITT5
  TAN (.P-.A) .K -TAN .A
#4_4 ,! S9E ( TWO ALPHA EQUALS
  TWO S9E ALPHA COS9E ALPHA IS
  WRITT5
  SIN #2.A .K #2SIN .ACOS .A
#5_4 ,! COS9E ( OP5 P>5!SIS
  NEGATIVE ALPHA CLOSE P>5!SIS
  EQUALS ! COS9E ( ALPHA IS
  WRITT COS (-.A) .K COS .A


                              #A
#6_4 ,"O PLUS TANG5T SQU>$ ALPHA
  EQUALS SECANT SQU>$ ALPHA IS
  WRITT5 #1+TAN^2 .A .K SEC^2 .A





















                              #B