|
LoadPackage( "RingsForHomalg", false );
Qxyzt := HomalgFieldOfRationalsInDefaultCAS( ) * "x,y,z,t";
wmat := HomalgMatrix( "[ \
x*y, y*z, z*t, 0, 0, 0,\
x^3*z,x^2*z^2,0, x*z^2*t, -z^2*t^2, 0,\
x^4, x^3*z, 0, x^2*z*t, -x*z*t^2, 0,\
0, 0, x*y, -y^2, x^2-t^2, 0,\
0, 0, x^2*z, -x*y*z, y*z*t, 0,\
0, 0, x^2*y-x^2*t,-x*y^2+x*y*t,y^2*t-y*t^2,0,\
0, 0, 0, 0, -1, 1 \
]", 7, 6, Qxyzt );
LoadPackage( "GradedRingForHomalg", false );
S := GradedRing( Qxyzt );
LoadPackage( "Modules", false );
N := LeftPresentation( wmat );
LoadPackage( "GradedModules", false );
M := LeftPresentation( S * wmat );
W := LeftPresentationWithDegrees( wmat, S );
[ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
]
|
