summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci
blob: 8d45fea1e310206d3e8bc5f8ec92fc1fd8eb6926 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// 05.14 Data Structure
// 05.16 List of MixList
// 05.19 use:MixS, MixL, Mixtype
// 08.08.17

// Structure changed
// 09.10.11

function M=Mixadd(varargin)
  Nargs=length(varargin);
  M=list();
  Tmp=varargin(1);
  if length(Tmp)==0
    M(1)=varargin(2);
  else
    M=Tmp;
    M($+1)=varargin(2);
  end;
  for I=3:Nargs
    M($+1)=varargin(I);
  end;
endfunction