File: Algebra3d.mesa
Last edited by Bier on June 1, 1984 5:11:18 pm PDT
Author: Eric Bier on August 7, 1987 1:18:01 am PDT
Contents: The quadratic formula etc.
DIRECTORY
SV2d;
Algebra3d: CEDAR DEFINITIONS =
BEGIN
Point2d: TYPE = SV2d.Point2d;
Polygon: TYPE = SV2d.Polygon;
TrigLineSeg: TYPE = SV2d.TrigLineSeg;
QuadraticFormula: PROC [a, b, c: REAL] RETURNS [roots: ARRAY [1..2] OF REAL, rootCount: NAT];
For polynomial ax^2 + bx + c = 0.
CubicFormula: PROC [a3, a2, a1, a0: REAL] RETURNS [roots: ARRAY [1..3] OF REAL, rootCount: NAT];
For polynomial a3x^3 + a2x^2 + a1x + a0 = 0.
QuarticFormula: PROC [a4, a3, a2, a1, a0: REAL] RETURNS [roots: ARRAY [0..3] OF REAL, rootCount: NAT];
For polynomial a4x^4 + a3x^3 + a2x^2 + a1x + a0 = 0.
END.