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