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

// Structure changed
// 09.10.11

function T=Mixtype(D)
  if type(D)~=15
    T=1;
    return;
  end;
  for I=1:length(D)
    if type(D(I))==15
      T=3;
      return;
    end;
  end;
  T=2;
endfunction