summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci41
1 files changed, 0 insertions, 41 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
deleted file mode 100644
index 443751be..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.05.20
-// 09.10.05
-// 10.01.20
-// 10.02.01
-
-function Out=Makeshasen(PtnL,PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=KoutenList(PA,V,Bdy);
- Nten=length(TenL);
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- Out=list();
- GL=[]
- Te=-10.0^6;
- for I=1:Nten-1
- TenP=Op(I,TenL); TenQ=Op(I+1,TenL);
- Ts=Op(1,TenP);
- P=Op(2,TenP); Q=Op(2,TenQ);
- NC=Op(4,TenP);
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- if Op(1,TenQ)-Ts>Eps
- if Member(Ptn,PtnL)
- if abs(Te-Ts)>Eps
- if GL~=[]
- J=length(Out);
- Out(J+1)=GL;
- end;
- Tmp=Listplot(P,Q);
- GL=Tmp;
- else
- GL=[GL;Q];
- end
- Te=Op(1,TenQ);
- end
- end
- end
- if size(GL,1)>0
- Out=Mixjoin(Out,list(GL))
- end;
-endfunction