summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci
blob: fe5e52b981ed72b14dd2cced95c894686e603eb9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// 
// 10.01.13

function Out=Ptse(varargin)
  global XMIN XMAX YMIN YMAX
  if length(varargin)==0
    Out=[XMAX,YMIN];
  else
    G=varargin(1);
    XM=max(G(:,1));
    Ym=min(G(:,2));
    Out=[XM,Ym];
  end;
endfunction