


RandomEquivalent:=function(PL)
  local ePerm, NewPL, i, Ladj, u;
  ePerm:=RandomPermutation(Length(PL));
  NewPL:=[];
  for i in [1..Length(PL)]
  do
    Ladj:=[];
    for u in [1..Length(PL[i])]
    do
      Add(Ladj, OnPoints(PL[i][u], ePerm));
    od;
    Add(NewPL, Ladj);
  od;
  return Permuted(NewPL, ePerm);
end;

for nbV in [6..400]
do
  FileName:=Concatenation("DataHedrites/8-Hedrite",String(nbV));
  ListPlanGraph:=ReadAsFunction(FileName)();
  for iGraph in [1..Length(ListPlanGraph)]
  do
    PlanGraph:=ListPlanGraph[iGraph];
    CC:=CentralCircuit(PlanGraph);
    nbCC:=Length(CC.ListCircuit);
    if nbCC=1 then
      TheSign:=Set(CC.MatrixIntersectionWithTypes[1][1]);
      for u in [1..100]
      do
        PL2:=RandomEquivalent(PlanGraph);
        CC2:=CentralCircuit(PL2);
        TheSign2:=Set(CC2.MatrixIntersectionWithTypes[1][1]);
        if TheSign2<>TheSign then
          Print("Error for:\n");
          Print("PL =", PlanGraph, "\n");
          Print("PL2=", PL2, "\n");
          Print(NullMat(5));
        fi;
      od;
    fi;

  od;


od;

