det(m)
→
d
if d
≠
0 or gettype(d)="EXPR" then
m^(
⁻1
)*d
→
n
else
rowdim(m)
→
k
newmat(k,k)
→
n
for i,
1
,k
for j,
1
,k
(
⁻1
)^(i+j)*det((mrowdel(mrowdel(m,i)
,j))
)
→
n[j,i]
endfor
endfor
endif
return n
EndFunc
adjoint() uses equation [2] if the matrix is non-singular, or if the matrix is symbolic. There is no error
checking, and a Dimension error occurs if the matrix is not square.
The process of finding the matrix minor is built into adjoint(), but mminor() returns the minor, if needed:
mminor(m,r,c)
Func
©(m,r,c) Return first minor r,c of matrix m
return det((mrowdel(mrowdel(m,r)
,c))
)
EndFunc
adjoint() and mminor() call mrowdel(), which is described in tip [3.3].
To find the adjoint of
a b
c d
use this call:
adjoint([[a,b][c,d]]
which returns
d
−
b
−
c a
To find the adjoint of
1 2 3
1 3 4
1 4 3
use this call
adjoint([[
1
,2,3][
1
,3,4][
1
,4,3]])
3 - 8
Summary of Contents for TI-92+
Page 52: ...Component side of PCB GraphLink I O connector detail 1 41...
Page 53: ...LCD connector detail PCB switch side 1 42...
Page 54: ...Key pad sheet contact side Key pad sheet key side 1 43...
Page 55: ...Key cap detail 1 44...
Page 57: ...Component side of PCB with shield removed A detail view of the intergrated circuits 1 46...
Page 410: ...void extensionroutine2 void Credit to Bhuvanesh Bhatt 10 4...
