MaplePrimes - answers and comments on Question, external dll EvalMapleStatement

why option `system`

pagan — Mon, 17 Oct 2011 03:42:32 Z

Why do you give MainFDerivative option `system`?

Do you make that unapply call before of after you define MainF? Hopefully, it is made after.

Is MainFDerivative a procedure that will compute under the evalhf interpreter? If so, then you could try an evalhf-callback instead of an eval-callback. (I forget the name of the evalhf-callback fcn, but you should be able to find it in the API.)

conclusion

icegood — Mon, 17 Oct 2011 18:15:24 Z

Dear developers! Check EvalMapleStatement for memory leak! Memory consuption about 70 times less! (17mb vs 1,2Gb)

About fastest code, i don't know but also suspect that its because of sprintf from my side and convertor back to func on side of maple dll/lib. For many calls program seems to be ~7 times faster...

Final code:

static MKernelVector ExternalKernel;
typedef struct _TFuncCache
{
const char *Name;
ALGEB DirectFastPointer;
} TFuncCache;
//names of fuctions called from main maple code
static TFuncCache FuncNames[]= {{"MainF"}, {"MainFDerivativeA"}, {"MainFDerivativeY"}, {"MainFDerivative2AA"},
{"MainFDerivative2AY"}, {"MainFDerivative2YY"}, {"MainFDerivative3AAA"}, {"MainFDerivative3AAY"}, {"MainFDerivative3AYY"},
{"MainFDerivative3YYY"}, {"MainFDerivative4AAAA"}, {"MainFDerivative4AAAY"}, {"MainFDerivative4AAYY"},
{"MainFDerivative4AYYY"}, {"MainFDerivative4YYYY"}};

static void InitFuncPointers()
{
int i;
ALGEB f;
char expr[1024]; //general expression
//
for(i=0;i<sizeof(FuncNames)/sizeof(FuncNames[0]);i++)
{
    f=ToMapleName(ExternalKernel, FuncNames[i].Name, TRUE);
    if( !f || !IsMapleProcedure(ExternalKernel,f) )
    {
      sprintf(expr, "unable to compute function by name %s", FuncNames[i].Name);
      MapleRaiseError(ExternalKernel, expr);
      return;
    }
    FuncNames[i].DirectFastPointer=f;
}
}

static ice_real_TReal MyExternalFuctionEval(ice_real_TReal y, ice_real_TReal a, ice_real_TReal b, const int DifNo)
{
FLOAT64 args[4];
ALGEB f;
//
f=FuncNames[DifNo].DirectFastPointer;
args[1]=y;
args[2]=a;
args[3]=b;
return (ice_real_TReal) EvalhfMapleProc(ExternalKernel, f, 3, args);
}

re: why

icegood — Mon, 17 Oct 2011 04:14:46 Z

it's just after 'playing'. Originally it was without options. AS you can see i tried that way too.

RE: about callback

icegood — Mon, 17 Oct 2011 04:22:18 Z

---Do you make that unapply call before of after you define MainF? Hopefully, it is made after.

After, of course.

---Is MainFDerivative a procedure that will compute under the evalhf interpreter?...

I don't actually know nothing about callbacks nor evalhf itself. Test function is rather simple one:

For it and derivatives memory consuption is big too...

also

icegood — Mon, 17 Oct 2011 04:44:34 Z

also tried

don't work

little more

pagan — Mon, 17 Oct 2011 06:46:52 Z

Hard to say much more, with the full source of your example. What is Digits set to?

You could try EvalhfMapleProc instead, to make the callback be into evalhf.