Spracherkennung für: .4 vermutete Sprache: Lisp {Lisp[86] Masm[86] Fortran[54]} [Methode: maximale Elemente, drei Dimensionen]
#The example uses GraphViz software.
file:=HapFile("data134.txt");
Read(file);
dx:=EuclideanApproximatedMetric;;
dz:=EuclideanApproximatedMetric;;
L:=List(S,x->Maximum(List(S,y->dx(x,y))));;
n:=Position(L,Minimum(L));
f:=function(x); return [dx(S[n],x)]; end;;
P:=30*[0..100];; P:=List(P, i->[i]);;
r:=29;;
epsilon:=75;
cluster:=function(S)
local Y, P, C;
if Length(S)=0 then return S; fi;
Y:=VectorsToOneSkeleton(S,epsilon,dx);
P:=PiZero(Y);
C:=Classify([1..Length(S)],P[2]);
return List(C,x->S{x});
end;;
M:=Mapper(S,dx,f,dz,P,r,cluster);
Display(GraphOfSimplicialComplex(M));
[Dauer der Verarbeitung: 0.3 Sekunden, vorverarbeitet 2026-10-24]
