Refactor Mult and add MultNeutral
This commit is contained in:
parent
015b7f8cb1
commit
a0d9c766c0
4 changed files with 37 additions and 13 deletions
|
|
@ -54,12 +54,12 @@ fromDiag ds o = fromFunction [m,n] (\[i,j] => maybe o (`index` ds) $ i `eq` j)
|
|||
|
||||
|
||||
export
|
||||
identity : Num a => {n : _} -> Matrix n n a
|
||||
identity : Num a => {n : _} -> Matrix' n a
|
||||
identity = repeatDiag 1 0
|
||||
|
||||
|
||||
export
|
||||
scaling : Num a => {n : _} -> a -> Matrix n n a
|
||||
scaling : Num a => {n : _} -> a -> Matrix' n a
|
||||
scaling x = repeatDiag x 0
|
||||
|
||||
export
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue