kv

-

kernel handle returned by StartMaple

rt

-

Maple rtable object

index

-

integer array denoting the element index

val

-

value of type corresponding to the command name

VB TYPE

NAME

RTABLE DATA-TYPE

Byte

RTableSelectInteger8

RTABLE_INTEGER8

Integer

RTableSelectInteger16

RTABLE_INTEGER16

Long

RTableSelectInteger32

RTABLE_INTEGER32

Single

RTableSelectFloat32

RTABLE_FLOAT32

Double

RTableSelectFloat64

RTABLE_FLOAT64

Complex64

RTableSelectComplexFloat64

RTABLE_COMPLEX

ComplexDAG

RTableSelectComplexDAG

RTABLE_CXDAG

Long

RTableSelectDAG

RTABLE_DAG

Public Sub MySwapRow(ByVal kv As Long)

    Dim rt, valA, valB As Long

    Dim indexA(0 To 1) As Long

    Dim indexB(0 To 1) As Long

    Dim rts As RTableSettings

    Dim rowA, rowB As Long

    ' input (rtable and rows to swap)

    rt = EvalMapleStatement(kv, "Matrix(5,5,(i,j)->i);")

    rowA = 2

    rowB = 4

    RTableGetSettings kv, rts, rt

    If rts.num_dimensions = 2 _

        And rts.data_type = RTABLE_DAG _

        And Not rts.read_only _

    Then

        ' swap rows A and B

        indexA(0) = rowA

        indexB(0) = rowB

        For i = RTableLowerBound(kv, rt, 2) To RTableUpperBound(kv, rt, 2)

            indexA(1) = i

            indexB(1) = i

            valA = RTableSelectDAG(kv, rt, indexA(0))

            valB = RTableSelectDAG(kv, rt, indexB(0))

            RTableAssignDAG kv, rt, indexA(0), valB

            RTableAssignDAG kv, rt, indexB(0), valA

        Next i

    End If

    MapleALGEB_Printf1 kv, "rtable after swap = %a", rt

End Sub