summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci
blob: 519bc9dada71b2615c0f1578572fe3e1ae4d250c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
// 08.05.19

// Structure changed
// 09.10.11
// 10.01.10  available for plotdata
// 10.01.12  available for Dataindexed
// 10.01.16

function C=Op(N,Data)
  C=[];
  if Mixtype(Data)>1
    C=Mixop(N,Data);
    return;
  end;
  if type(Data)==10
    if size(Data,2)==1
      C=part(Data,N:N);
    else
      C=Data(N)
    end;
    return;
  end;
  if type(Data)==1
    if size(Data,1)==1
      C=Data(N);
    else
      Din=Dataindex(Data);
      if size(Din,1)==1
        C=Data(N,:);
      else
        C=Data(Din(N,1):Din(N,2),:);
      end;
    end;
  end
endfunction