summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci28
1 files changed, 28 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci
new file mode 100755
index 00000000..84fd6daa
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci
@@ -0,0 +1,28 @@
+// 08.10.07
+// 08.10.27
+// 09.06.02
+
+function AnsL=Droppoint(varargin)
+ Nargs=length(varargin);
+ Curve=varargin(1);
+ Eps=0.02;
+ if Nargs>=2
+ Eps=varargin(2);
+ end;
+ AnsL=[%inf,%inf];
+ for I=1:size(Curve,1)
+ P=Curve(I,:);
+ if P(1)~=%inf
+ Tmp=AnsL(size(AnsL,1),:);
+ if norm(P-Tmp)>Eps
+ AnsL=[AnsL;P];
+ end;
+ else
+ AnsL=[AnsL;%inf,%inf];
+ end;
+ end;
+ AnsL=AnsL(2:size(AnsL,1),:);
+ Tmp=Ptend(Curve);
+ AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
+endfunction;
+