kv

-

kernel handle returned by StartMaple

lhs

-

assignable Maple object

rhs

-

Maple object

n

-

length of ind

ind

-

index array

Sub TestMapleAssign(ByVal kv As Long)

    Dim a, b, r, val As Long

    Dim index(1) As Long

    ' assign to Maple variables a and b

    a = ToMapleName(kv, "a", True)

    MapleAssign kv, a, ToMapleFloat(kv, 3.14)

    b = ToMapleName(kv, "b", True)

    MapleAssign kv, b, ToMapleFloat(kv, 2.71)

    ' compute a*b

    val = EvalMapleStatement(kv, "a*b;")

    'save the result in a table called my_results

    r = ToMapleName(kv, "my_results", True)

    index(0) = 1

    index(1) = 1

    MapleAssignIndexed kv, r, 2, index(0), val

    MapleALGEB_Printf1 kv, "%a", val

    MapleALGEB_Printf1 kv, "%a", MapleSelectIndexed(kv, r, 2, index(0))

    EvalMapleStatement kv, "eval(my_results);"

End Sub