<<>> <> <> <> DIRECTORY LinearSystem, RealFns, Rope; SVD: CEDAR DEFINITIONS ~ BEGIN RowN: TYPE ~ LinearSystem.RowN; ColumnN: TYPE ~ LinearSystem.ColumnN; MatrixN: TYPE ~ LinearSystem.MatrixN; badShape: ERROR [msg: Rope.ROPE]; noConvergence: SIGNAL [msg: Rope.ROPE]; SVDecomp: PROC [a: MatrixN, m, n: INT, w: ColumnN, v: MatrixN]; <> SVBackSub: PROC [u: MatrixN, w: ColumnN, v: MatrixN, m, n: INT, b: ColumnN, x: ColumnN]; <> END..