summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci
blob: e3e281f3a8119cc134e97c36c6d9e160a6a6c065 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// 08.05.19
// 08.05.20 debugged
// 08.06.02

// Structure changed
// 09.10.11

function M=Mixsub(Rg,PL)
  M=list();
  N=Mixlength(PL);
  for I=Rg
    if I>N
      return;
    end;
    M($+1)=PL(I);
  end;
endfunction