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
|