%%HP: T(1)A(G)F(,);
 GRAD "1 2 3 4 5 6 "
"" INPUT OBJ 'A6'
STO 'A5' STO 'A4' STO
'A3' STO 'A2' STO
'A1' STO 'ATAN(INV(
SIN(A2)*SIN(A4)*SIN(
A6)/(SIN(A1)*SIN(A3)*
SIN(A5)*SIN(A2+A3))+
1,/TAN(A2+A3)))' 'C'
STO 'C' NUM "C" TAG
'A2+A3-C' 'A' STO 'A'
NUM "A" TAG { A1 A2
A3 A4 A5 A6 A C }
PURGE
