indexlst(l,v)
func
©(l,v) return list of k|l[k]=v
©3nov0
1
/dburkett@infinet.com
local k,r,j
{}
→
r
©Initialize result list ...
1→
j
©... and result list index
for k,
1
,dim(l)
©Loop to test each list element
if l[k]=v then
©If list element matches target ...
k
→
r[j]
©... save index in result list
j+
1→
j
©... and update result list index
endif
endfor
return r
©Return result list
Endfunc
Since more than one list element may match the target value, the matching indices are returned as a
list. For example, if the list mylist is {5,4,7,3,2,1,1}, then indexlst(mylist,5) returns {1}, and
indexlst(mylist,1) returns {6,7}.
indexlst() returns an empty list {} if the target element is not in the list. So, this function could also be
used to determine if a list includes a particular element, by testing the returned result for dim() = 0.
This function can find the indices of the minimum and maximum list values, with the built-in min() and
max() functions. To find the indices of the minimum list element, use
indexlst(mylist,min(mylist))
which, for the example above, returns {6,7}. To find the indices of the maximum list element, use
indexlst(mylist,max(mylist))
which returns {3}.
Finding the indices of a particular element in a matrix is only slightly more complicated, and we can use
indexlst() to do the work, by converting the matrix to a list with
mat
▶
list()
. Since indexlst() returns a
list, we must then convert the list indices to the equivalent matrix indices. This function implements
these ideas.
indexmat(m,v)
Func
©(mat,v) return matrix of [k,l]|mat[k,l]=v
©calls util\indexlst()
©4nov0
1
/dburkett@infinet.com
local r,n,j,i,s,c
mat
▶
list(m)
→
r
©Convert the matrix to a list
util\indexlst(r,v)
→
r
©Find list indices of v
if r={} then
©Return empty string if no matching indices
return ""
else
©Convert list indices to matrix indices
dim(r)
→
c
©... get number of matching indicex
coldim(m)
→
n
©... get number of matrix columns
newmat(c,2)
→
s
©... make result matrix
for i,
1
,c
©... loop to convert indices
intdiv(r[i]-
1
,n)+
1→
j
©... find row index
3 - 30
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...
