Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- invertMatrix :: Matrix -> Matrix
- invertMatrix =
- let flipAppend :: (Matrix, Matrix) -> Matrix
- flipAppend m'' = uncurry mColAppend (join (***) flipMatrix m'')
- twice f = f . f in
- snd . splitCol . scaleToOne .
- twice (flipAppend . splitCol . simpleGauss) .
- (ap mColAppend (identityMatrix . dimRow))
Add Comment
Please, Sign In to add comment