blob: 84fd6daabb318744752015cd9cf3af76fa0d7acc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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;
|