Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/fining/examples/include/   (GAP Algebra Version 4.15.1©)  Datei vom 27.6.2023 mit Größe 954 B image not shown  

Quelle  stab_orbs_finingorbit2.include  Sprache: unbekannt

  
Spracherkennung für: .include vermutete Sprache: Lisp {Lisp[77] Masm[77] MT940[9]} [Methode: maximale Elemente, drei Dimensionen]

gap>; ps := ParabolicQuadric(4,3);
Q(4, 3)
gap>; g := CollineationGroup(ps);
PGammaO(5,3)
gap>; pg := PG(4,3);
ProjectiveSpace(4, 3)
gap>; s := First(Solids(pg),t -> TypeOfSubspace(ps,t) = "elliptic" );
<;a solid in ProjectiveSpace(4, 3)>
gap>; orbit1 := FiningOrbit(g,s,OnProjSubspaces);
<;closed orbit, 36 points>
gap>; time;
9
gap>; spts := Filtered(Points(s),s->s in ps);
[ <;a point in ProjectiveSpace(4, 3)>, <a point in ProjectiveSpace(4, 3)>, 
  <;a point in ProjectiveSpace(4, 3)>, <a point in ProjectiveSpace(4, 3)>, 
  <;a point in ProjectiveSpace(4, 3)>, <a point in ProjectiveSpace(4, 3)>, 
  <;a point in ProjectiveSpace(4, 3)>, <a point in ProjectiveSpace(4, 3)>, 
  <;a point in ProjectiveSpace(4, 3)>, <a point in ProjectiveSpace(4, 3)> ]
gap>; orbit2 := FiningOrbit(g,Set(spts),OnSetsProjSubspaces);
<;closed orbit, 36 points>
gap>; time;
18

[Dauer der Verarbeitung: 0.3 Sekunden, vorverarbeitet 2026-10-24]