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

Misc. changes

Browse source
This commit is contained in:
Kiana Sheibani 2022-11-30 12:54:01 -05:00
parent 0a54f607b0
commit 524486bb58
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
5 changed files with 51 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Data/NumIdr/Transform/Orthonormal.idr
View file

@ -40,7 +40,7 @@ fromMatrix mat = if isOrthonormal' mat then Just (unsafeMkTrans (matrixToH mat))
||| Construct an orthonormal transform that reflects a particular coordinate.
export
reflect : {n : _} -> Neg a => Fin n -> Orthonormal n a
reflect i = unsafeMkTrans $ indexSet [weaken i,weaken i] (-1) identity
reflect = unsafeMkTrans . reflectH
||| The orthonormal transform that reflects on the x-coordinate (first coordinate).
export