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

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

