File: Algebra3d.mesa
Last edited by Bier on June 1, 1984 5:11:18 pm PDT
Author: Eric Bier on July 29, 1984 4:37:27 pm PDT
Contents: The quadratic formula etc.
Algebra3d: 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.