Quelle MapleHomalgJanet.gi Sprache: unbekannt

# SPDX-License-Identifier: GPL-2.0-or-later
# RingsForHomalg: Dictionaries of external rings
#
# Implementations
#

##  Implementations for the rings provided by the Maple package Janet
##  accessed via the Maple implementation of homalg.

####################################
#
# constructor functions and methods:
#
####################################

InstallMethod( CreateHomalgTable,
        "for homalg rings provided by the maple package Janet",
        [ IsHomalgExternalRingObjectInMapleUsingJanetRep ],

  function( ext_ring_obj )
    local RP, RP_Basic, RP_General, RP_specific, component;

    RP := ShallowCopy( CommonHomalgTableForMapleHomalgTools );

    RP_General := ShallowCopy( CommonHomalgTableForRings );

    RP_Basic := ShallowCopy( CommonHomalgTableForMapleHomalgBasic );

    RP_specific :=
          rec(
               ## Must only then be provided by the RingPackage in case the default
               ## "service" function does not match the Ring

               MinusOne := HomalgExternalRingElement( "-1", "Maple" ), ## FIXME: sounds ridiculous but we have no other choice at the moment: the Janet package uses jmulmat which comes from the jets package's mulmat and is only meant to multiply a matrix differential operator by a scalar e.g. "-1" and not "[[-1,[]]]"


               ## Can optionally be provided by the RingPackage
               ## (homalg functions check if these functions are defined or not)
               ## (homalgTable gives no default value)

               RingName := R -> Concatenation( "B(", homalgSendBlocking( [ "op(", R, "[1])" ], "need_output", "variables" ), ")" ),

               AreEqualMatrices :=
                 function( A, B )
                   local R;

                   R := HomalgRing( A );

                   return homalgSendBlocking( [ "`homalg/AreEqualMatrices`(", A, B, R, ")" ], "need_output", "AreEqualMatrices" ) = "true";

                 end,

               IsZeroMatrix :=
                 function( M )
                   local R;

                   R := HomalgRing( M );

                   return homalgSendBlocking( [ "`homalg/IsZeroMatrix`(", M, R, ")" ], "need_output", "IsZeroMatrix" ) = "true";

                 end,

          );

    for component in NamesOfComponents( RP_General ) do
        RP.(component) := RP_General.(component);
    od;

    for component in NamesOfComponents( RP_Basic ) do
        RP.(component) := RP_Basic.(component);
    od;

    for component in NamesOfComponents( RP_specific ) do
        RP.(component) := RP_specific.(component);
    od;

    Objectify( TheTypeHomalgTable, RP );

    return RP;

end );

Quelle MapleHomalgJanet.gi Sprache: unbekannt

[ Dauer der Verarbeitung: 0.30 Sekunden (vorverarbeitet) ]