Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/gradedmodules/examples/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 22.11.2024 mit Größe 1023 B image not shown  

Quelle  VectorBundleOnP1_Example5.1-1.g   Sprache: unbekannt

 
LoadPackage( "GradedRingForHomalg", false );

##
R := HomalgFieldOfRationalsInDefaultCAS( ) * "a,b";

param := Length( Indeterminates( R ) );

##
RR := R * "x0,x1";

S := GradedRing( RR );

n := Length( Indeterminates( S ) ) - param - 1;

weights := Concatenation(
                   ListWithIdenticalEntries( param, 0 ),
                   ListWithIdenticalEntries( n + 1, 1 )
                   );

SetWeightsOfIndeterminates( S, weights );

##
A := KoszulDualRing( S, "e0,e1" );

A!.ByASmallerPresentation := true;

##
m := HomalgMatrix( "[\
 x0, a*x1, b*x1,   0,   0, \
-x1,    0,    0,   0,   0, \
  0,   x0,    0,   0,   0, \
  0,  -x1,   x0,   0,   0, \
  0,    0,  -x1,  x0,   0, \
  0,    0,    0, -x1,  x0, \
  0,    0,    0,   0, -x1  \
]", 7, 5, S );

LoadPackage( "GradedModules", false );

M := RightPresentationWithDegrees( m );

phi := RelativeRepresentationMapOfKoszulId( M );

N := Kernel( phi );

##
fN := Resolution( 3, N );

##
sfN := A^(-2-1) * Shift( fN, 2 );

Rpi := DegreeZeroSubcomplex( sfN, R );

[ Dauer der Verarbeitung: 0.16 Sekunden  (vorverarbeitet)  ]