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

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