Revision as of 00:45, 26 January 2020 (view source) Blek (talk \| contribs) (→‎From scratch) ← Older edit		Revision as of 21:57, 29 January 2020 (view source) Blek (talk \| contribs) (→‎From scratch) Newer edit →
Line 1,469: mult:: Num a => [[a]] -> [[a]] -> [[a]] mult uss vss = map (~~foldl~~(\xs -> if null xs then [] else foldl1 (zipWith (+)) ts xs). zipWith (\vs u -> map (u*) vs) vss) uss ~~where ts = map (const 0).concat $ take 1 vss~~ gauss::[[Double]] -> [[Double]] -> [[Double]]

Gaussian elimination: Difference between revisions

Gaussian elimination (view source)