root of a quadratic equation

[Thomas Klemm]

(08-22-2015 09:41 AM)tigger Wrote:  There might be any hope and help to rectify these short programs?

Here's a variant from a previous thread using local variables:

Code:

« → a b c
  « b a / -2 /
    c a / → p q
    « p SQ q - √ → D
      « p D -
        p D +
      »
    »
  »
»

Cheers
Thomas