(35s 42s/DM42 50G) Quadratic formula

[mchris]

The same logic can be ported to 42s/DM42 and 50g.
42s/DM42

Code:

01▸LBL "QE"
02 RCL ST Z
03 +/-
04 STO÷ ST Z
05 ÷
06 X<>Y
07 2
08 ÷
09 STO ST Z
10 STO ST T
11 X↑2
12 +
13 SQRT
14 STO- ST Z
15 +
16 END

50g

Code:

« 3 PICK / 3 ROLLD SWAP / 2 / NEG DUP SQ ROT – √ DUP2 + EVAL 3 ROLLD – EVAL »