We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ceab081 commit df133b7Copy full SHA for df133b7
src/Math-Tests-Matrix/PMQRTest.class.st
@@ -7,13 +7,13 @@ Class {
7
{ #category : #running }
8
PMQRTest >> mpTestFunction: aMatrix [
9
10
- | inv mult |
11
- inv := aMatrix mpInverse.
12
- mult := inv * aMatrix.
13
- self assert: (aMatrix * mult closeTo: aMatrix).
14
- self assert: mult * inv closeTo: inv.
15
- self assert: mult transpose closeTo: mult.
16
- mult := aMatrix * inv.
+ | inverse mult identityMatrix |
+ inverse := aMatrix mpInverse.
+ identityMatrix := inverse * aMatrix.
+ self assert: (aMatrix * identityMatrix closeTo: aMatrix).
+ self assert: identityMatrix * inverse closeTo: inverse.
+ self assert: identityMatrix transpose closeTo: identityMatrix.
+ mult := aMatrix * inverse.
17
self assert: mult transpose closeTo: mult
18
]
19
0 commit comments