Revision as of 22:55, 2 December 2019 (view source) Blek (talk \| contribs) m (→‎From scratch) ← Older edit		Revision as of 22:58, 2 December 2019 (view source) Blek (talk \| contribs) m (→‎From scratch) Newer edit →
Line 1,418: isMatrix xs = null xs \|\| all ((== (length.head $ xs)).length) xs ~~isSquarredMatrix~~isSquaredMatrix xs = null xs \|\| all ((== (length xs)).length) xs multiply:: Num a => [[a]] -> [[a]] -> [[a]] Line 1,433: solveGauss:: (Fractional a, Ord a) => [[a]] -> [[a]] -> [[a]] solveGauss xs bs \| null xs \|\| null bs \|\| length xs /= length bs \|\| (not $ ~~isSquarredMatrix~~isSquaredMatrix xs) \|\| (not $ isMatrix bs) = [] \| otherwise = uncurry solveTriangle $ triangle xs bs

Gaussian elimination: Difference between revisions

Gaussian elimination (view source)