%%HP: T(1)A(D)F(.);

" DREIECK  STERN-
   TRANSFORMATION
"
 T
    T ":R12:"
INPUT OBJ NUM DUP
'R12' STO T ":R13:"
INPUT OBJ NUM DUP
'R13' STO T ":R23:"
INPUT OBJ NUM DUP
'R23' STO  R12 R13
R23
     R12 'R12' STO
R13 'R13' STO R23
'R23' STO 'R12*R13/
(R12+R13+R23)' EVAL
'R1' STO 'R12*R23/(
R12+R13+R23)' EVAL
'R2' STO 'R13*R23/(
R12+R13+R23)' EVAL
'R3' STO
    
  

