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

Update package to Idris2 0.5.1

Browse source
This commit is contained in:
Kiana Sheibani 2022-09-09 09:17:11 -04:00
parent 1f2a870a2c
commit f72826b329
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
6 changed files with 36 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Data/NumIdr/Homogeneous.idr
View file

@ -67,7 +67,7 @@ fromHomogeneous = vector . init . toVect
export
hmatrix : Num a => Matrix m n a -> Vector m a -> HMatrix m n a
hmatrix mat tr with (viewShape mat)
hmatrix {m,n} mat tr with (viewShape mat)
_ | Shape [m,n] = indexSet [last,last] 1 $
resize [S m, S n] 0 $
mat `hconcat` reshape
@ -75,20 +75,20 @@ hmatrix mat tr with (viewShape mat)
export
matrixToH : Num a => Matrix m n a -> HMatrix m n a
matrixToH mat with (viewShape mat)
matrixToH {m,n} mat with (viewShape mat)
_ | Shape [m,n] = indexSet [last,last] 1 $ resize [S m, S n] 0 mat
export
getMatrix : HMatrix m n a -> Matrix m n a
getMatrix mat with (viewShape mat)
getMatrix {m,n} mat with (viewShape mat)
_ | Shape [S m, S n] = resizeLTE [m,n] mat
{ok = [lteSuccRight reflexive,lteSuccRight reflexive]}
export
getTranslationVector : HMatrix m n a -> Vector m a
getTranslationVector mat with (viewShape mat)
getTranslationVector {m,n} mat with (viewShape mat)
_ | Shape [S m, S n] = resizeLTE [m] {ok = [lteSuccRight reflexive]} $
getColumn last mat