Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/pkg/fining/examples/gap/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 27.6.2023 mit Größe 548 B image not shown  

Quelle  morphisms_embedding2.g   Sprache: unbekannt

 
#morphisms_embedding2.g
h1 := HermitianPolarSpace(2, 3^2);
h2 := HermitianPolarSpace(3, 3^2);
pg := AmbientSpace( h2 );    
pi := VectorSpaceToElement( pg, [[1,0,0,0],[0,1,0,0],[0,0,1,0]] * Z(9)^0 );
em := NaturalEmbeddingBySubspace( h1, h2, pi );
ps1 := ParabolicQuadric(4,4);
ps2 := ParabolicQuadric(6,4);
pg := AmbientSpace( ps2 );    
pi := VectorSpaceToElement( pg, [[1,0,0,0,0,0,0],[0,1,0,0,0,0,0],[0,0,1,0,0,0,0],
[0,0,0,1,0,0,0],[0,0,0,0,1,0,0]] * Z(4)^0 );
em := NaturalEmbeddingBySubspace( ps1, ps2, pi );
List(Lines(ps1),x->x^em);
quit;

[ Dauer der Verarbeitung: 0.4 Sekunden  (vorverarbeitet)  ]