%%HP: T(1)A(G)F(,);
 CLEAR "ea(cc)? " ""
INPUT OBJ 636620, /
'Ea' STO
"Ang. inter? " ""
INPUT OBJ 'OM' STO
"P-A? " "" INPUT OBJ
'PA' STO "P-B? " ""
INPUT OBJ 'PB' STO
"P-C? " "" INPUT OBJ
'PC' STO "A-B? " ""
INPUT OBJ 'AB' STO
"B-C? " "" INPUT OBJ
'BC' STO 'PA*PB*Ea*2,
^(1,/2,)/(AB*SIN(OM))
' NUM 'b' STO 'PB*PC
*Ea*2,^(1,/2,)/(BC*
SIN(OM))' NUM 'c'
STO '(b^2,+c^2,-2,*b*
c*COS(100,-OM))^(1,/
2,)' NUM 'd' STO ',5
*(2,*(b^2,+c^2,)-d^2,
)^(1,/2,)' NUM 'md'
STO 'md+,5*d' NUM
'a' STO " a = " a +
" m." + { a md d c b
BC AB PC PB PA OM Ea
} PURGE
