,L[]CASE ,2TA ,EXAMPLES #1_4 ,2TA EQUALS #45 DEGREES IS WRITT5 .B .K #45^.* #2_4 ,! SECANT ( 2TA EQUALS OP5 FRAC;N "O OV] ! COS9E ( 2TA CLOSE FRAC;N IS WRITT5 SEC .B .K ?1/COS .B# #3_4 ,! 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 #4_4 ,! 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# #5_4 ,! COSECANT ( OP5 P>5!SIS NEGATIVE 2TA CLOSE P>5!SIS EQUALS NEGATIVE COSECANT 2TA IS WRITT5 CSC (-.B) .K -CSC .B #A #6_4 ,"O PLUS COTANG5T SQU>$ 2TA EQUALS COSECANT SQU>$ 2TA IS WRITT5 #1+COT^2 .B .K CSC^2 .B #B