summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci
blob: 6fd31749125e4e95277200d63083ce2c3d3e532a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// 08.05.14 Data Structure
// 08.05.23 Debugged

// Structure changed
// 09.10.11

function Out=Mixlength(PL)
  if PL==[]
    Out=0;
    return
  end
  if Mixtype(PL)==1
    Out=size(PL,1);
  else
    Out=length(PL);
  end;
endfunction