summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2017-10-14 11:43:11 +0900
committerNorbert Preining <norbert@preining.info>2017-10-14 11:43:11 +0900
commitdc71274f16f7ff65145e034900f582b62453a033 (patch)
treea71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
parentaecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff)
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci62
1 files changed, 0 insertions, 62 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
deleted file mode 100755
index f3bbd3ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-//
-// 09.12.25
-// 10.01.01
-// 10.12.02 ( debugged for norm()==0 )
-
-function Outdata=MakeCurves(varargin)
- Figdata=varargin(1);
- Ptout=1;
- if length(varargin)>=2
- Ptout=varargin(2);
- end
- Eps=10.0^(-6);
- IndM=Dataindex(Figdata);
- Atos=[];
- for Nd=1:size(IndM,1)
- Tmp=IndM(Nd,:);
- Motos=Figdata(Tmp(1):Tmp(2),:);
- All=size(Motos,1);
- if size(Motos,1)==1
- if InWindow(Motos)=='o'
- continue;
- end;
- if Ptout==1
- Drwpt(Motos(1,:));
- else
- Atos=[Atos;%inf,%inf;Doscaling(Motos)];
- end
- continue
- end
- Crv=[];
- for I=2:All
- P=Motos(I-1,:);
- Q=Motos(I,:);
- Snbn=MeetWindow(P,Q);
- if Snbn==[]
- if Crv~=[]
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=[];
- end
- else
- if norm(Snbn(1,:)-Snbn(2,:))<Eps // 10.12.02
- continue;
- end;
- if Crv==[]
- Crv=Snbn
- else
- Tmp=Crv(size(Crv,1),:);
- if norm(Tmp-Snbn(1,:))<Eps
- Crv=[Crv;Snbn(2,:)];
- else
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=Snbn;
- end
- end
- end
- end
- if size(Crv,1)>=2
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- end
- end
- Outdata=Atos(2:size(Atos,1),:);
-endfunction;