summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci
blob: 35e2347e5226140b9db2038bf0ad8128d12f12a3 (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
//
// 08.05.23
// 09.09.18
// 13.05.03  list of points is outputted

function PL=Pointdata(varargin)
  Nargs=length(varargin);
  PL=list();
  for I=1:Nargs
    DL=varargin(I);
    DL=Flattenlist(DL);
    for K=1:length(DL);
      Dt=DL(K);
      for J=1:size(Dt,1)
        Tmp=Dt(J,:);
        if Tmp(1)~=%inf then
          PL($+1)=Tmp;
        end
      end
    end;
  end;
  if length(PL)==1
    PL=PL(1);
  end;
endfunction