<> <> <> <> 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]; <> TestQuad: PROC [filename: Rope.ROPE]; TestCubic: PROC [filename: Rope.ROPE]; TestQuartic: PROC [filename: Rope.ROPE]; END.