toki/numidr
1
0
Fork 0
Code Issues Pull requests Activity

Add utility functions for Transform types

Browse source
This commit is contained in:
Kiana Sheibani 2022-10-15 16:09:32 -04:00
parent d3f5ad3bda
commit 342cff97dd
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
13 changed files with 341 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/Data/NumIdr/Matrix.idr
View file

@ -80,6 +80,19 @@ rotation2D : Double -> Matrix' 2 Double
rotation2D a = matrix [[cos a, - sin a], [sin a, cos a]]
export
rotation3DX : Double -> Matrix' 3 Double
rotation3DX a = matrix [[1,0,0], [0, cos a, - sin a], [0, sin a, cos a]]
export
rotation3DY : Double -> Matrix' 3 Double
rotation3DY a = matrix [[cos a, 0, sin a], [0,1,0], [- sin a, 0, cos a]]
export
rotation3DZ : Double -> Matrix' 3 Double
rotation3DZ a = matrix [[cos a, - sin a, 0], [sin a, cos a, 0], [0,0,1]]
--------------------------------------------------------------------------------
-- Indexing
--------------------------------------------------------------------------------
@ -573,6 +586,11 @@ solve mat = solveWithLUP mat (decompLUP mat)
--------------------------------------------------------------------------------
export
invertible : FieldCmp a => Matrix' n a -> Bool
invertible {n} mat with (viewShape mat)
_ | Shape [n,n] = let lup = decompLUP mat in all (/=0) (diagonal lup.lu)
||| Try to invert a square matrix, returning `Nothing` if an inverse
||| does not exist.
export