Quadratic.mesa
Copyright Ó 1985, 1992 by Xerox Corporation. All rights reserved.
Written by Michael Plass, 11-Nov-81 11:23:02
Tim Diebert May 21, 1985 5:53:27 pm PDT
Quadratic: CEDAR DEFINITIONS = BEGIN
Roots:
TYPE =
RECORD
[nRoots: [0..2],
r1, r2:REAL]; -- r1 <= r2 if nRoots=2.
RealRoots: PROCEDURE [a,b,c:REAL] RETURNS [Roots]; -- solves axx + bx + c = 0, real roots only.
END.