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

Quelle  JacobsonNormalForm.g   Sprache: unbekannt

 
LoadPackage( "RingsForHomalg" );

HOMALG_IO_Maple.UseJacobsonNormalForm := true;

B1 := RingForHomalgInMapleUsingJanet( "[x]" );

m := HomalgMatrix( "[ \
[  [[1,[x]]]   ,       0       ], \
[      0       ,   [[1,[x]]]   ]  \
]", B1 );

LoadPackage( "Modules" );

M := LeftPresentation( m );

# ByASmallerPresentation( M );

[ Dauer der Verarbeitung: 0.14 Sekunden  (vorverarbeitet)  ]