diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci new file mode 100644 index 00000000..fe5e52b9 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci @@ -0,0 +1,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 |