1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
function [stk,txt,top]=sci_find()
// Copyright INRIA
if lhs==1 then
[m,n]=checkdims(stk(top))
if m==1 then //row vector
stk=list('find('+stk(top)(1)+')','0','1','?','1')
elseif n==1 then //column vector
stk=list('find('+stk(top)(1)+')''','0','1','?','1')
else
stk=list('matrix(find('+stk(top)(1)+'),1,-1)','0','1','?','1')
end
elseif lhs==2 then
[i,j]=lhsvarsnames()
txt='['+j+','+i+'] = find('+stk(top)(1)+');'+i+' = '+i+'(:);'+j+' = '+j+'(:);'
stk=list(list('?','-2','1','?','1'),list('?','-2','1','?','1'))
else
[i,j,v]=lhsvarsnames()
temp=gettempvar()
txt=[temp+' = '+stk(top)(1)+';'
'['+j+','+i+'] = find('+temp+');'+i+'='+i+'(:);'+j+'='+j+'(:);'
temp+' = '+temp+'(:)'
'if '+i+'<>[] then '+v+' = '+temp+'('+i+'+size('+temp+',1)*('+j+'-1)) ;else '+v+' = [],end']
r=list('?','-2','1','?','1'),
stk=list(r,r,r)
end
|
