kv

-

kernel handle returned by StartMaple

s

-

an indexable Maple object

n

-

length of ind

ind

-

32-bit integer index array

Sub TestSelect(ByVal kv As Long)

    Dim s, r As Long

    Dim ind(2) As Long

    s = EvalMapleStatement(kv, "Matrix([[red,yellow],[green,blue]]);")

    ind(0) = 1

    ind(1) = 2

    r = MapleSelectIndexed(kv, s, 2, ind(0))

    MapleALGEB_Printf1 kv, "r = %a", r

    s = EvalMapleStatement(kv, "1.1+2.2*I;")

    r = MapleSelectRealPart(kv, s)

    MapleALGEB_Printf1 kv, "re = %a", r

End Sub