Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/crime/gap/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 17.2.2022 mit Größe 576 B image not shown  

Quelle  degree.gi   Sprache: unbekannt

 
InstallMethod(IsHomogeneous,[IsSCAlgebraObj],
  function(e)
    local A,f,n;
    A:=FamilyObj(e)!.fullSCAlgebra;
    f:=Grading(A).hom_components;
    for n in [0..Grading(A).max_degree] do
      if e in f(n) then return true;fi;
    od;
    return false;
  end
);

InstallMethod(Degree,[IsSCAlgebraObj],
  function(e)
    local A,f,n;
    A:=FamilyObj(e)!.fullSCAlgebra;
    f:=Grading(A).hom_components;
    for n in [0..Grading(A).max_degree] do
      if e in Subspace(A,Flat(List([0..n],x->Basis(f(x)))))
        then return n;
      fi;
    od;
    return fail;
  end
);

[ Dauer der Verarbeitung: 0.27 Sekunden  (vorverarbeitet)  ]