summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci
blob: 79826f90a7ba570246be117305ad94e53fa7dcd0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// 08.05.18

// Structure changed
// 09.10.11

function TF=Member(A,L)
  if Mixtype(L)>1
    N=Mixlength(L);
  else
    N=length(L);
  end
  for I=1:N
    Tmp=Op(I,L);
    if A==Tmp
      TF=%t
      return
    end
  end
  TF=%f
endfunction