diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci deleted file mode 100644 index 82e9ac48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.05.31 - -function Ndm=Dataindex(P) - // %inf;%inf -> end - Ndm=[]; - if P==[] return; end - N1=1; - Flg=0; - for J=1:size(P,1) - if P(J,1)==%inf - Ndm=[Ndm;N1,J-1]; - N1=J+1; - if P(N1,1)==%inf - Flg=1; - break; - end - end - end - if Flg==0 - Ndm=[Ndm;N1,size(P,1)]; - end -endfunction - |