File: Roots.mesa
Last edited by Bier on December 18, 1982 1:20 am
Author: Eric Bier on June 14, 1983 4:27 pm
Contents: The quadratic formula etc.
DIRECTORY
Complex,
Rope;
Roots: DEFINITIONS =
BEGIN
RootArray: TYPE = ARRAY [1..4] OF Vec;
LinRoots: TYPE = ARRAY [1..2] OF Vec;
CubeRoots: TYPE = ARRAY [1..3] OF Vec;
QuarticRoots: TYPE = ARRAY [1..4] OF Vec;
Vec: TYPE = Complex.Vec;
RealQuartic: PROC [a, b, c, d, e: REAL] RETURNS [roots: ARRAY[1..4] OF REAL, rootCount: NAT];
for polynomial ax4 + bx3 + cx2 + dx + e = 0.
TestQuad: PROC [filename: Rope.ROPE];
TestCubic: PROC [filename: Rope.ROPE];
TestQuartic: PROC [filename: Rope.ROPE];
END.