**TI92P*mainxæÏ*6æ6&_)¾‚·3–="Ï*xæxæÏ*ø NæV%_)ì4Rrankk¥Z(a) Func © Calculate the rank of a matrix. by Francesco Pirozzi fpirozzi@libero.it Local b,r,t,i,j,n,m 0r 0t rowDim(a)n colDim(a)m rref(a)b For i,1,n For j,1,m If b[i,j]=0 Then t+1t EndIf EndFor If t=m Then r+1r EndIf 0t EndFor Return n-r EndFunc äåÜvS