summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
blob: facea4d507f4d21ed3db286c4c7e998378ed0898 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// 11.01.14   New

function Out=Rmmember(L,Rm)
  if type(L)==1
    Out=[];
  end;
  if type(L)==15
    Out=list();
  end;
  for J=1:length(L)
    Tmp=L(J);
    if ~Member(Tmp,Rm)
      Out($+1)=Tmp;
    end;
  end;
  if type(L)==1 & size(L,1)==1
    Out=Out';
  end;
endfunction;