Converting into functions

DuncanA — Wed, 22 Jun 2011 19:06:14 Z

You don't give an example of the result set, but assuming the results have the form given below, then they can be programmatically converted into functions.

resultset := {f=x^2+1, g=x^2*y+2};
                         /     2           2      \ 
                        { f = x  + 1, g = x  y + 2 }
                         \                        / 
for p in resultset do
  expr := rhs(p);
  funcname := lhs(p);
  varnames := op( indets(expr, name) ); 
  assign( funcname=unapply(expr, varnames) );
od:
print(f);
      2    
x -> x  + 1
print(g);
           2      
(x, y) -> x  y + 2
f(5);
                                     26
g(3,2);
                                     20

---

Duncan

In one line

Alec Mihailovs — Thu, 23 Jun 2011 01:35:38 Z

assign((eq->lhs(eq)=unapply(rhs(eq),indets(rhs(eq))[]))~(resultset));

Alec

that worked!

Djinh — Thu, 23 Jun 2011 15:34:19 Z

Thanks guys!

MaplePrimes - answers and comments on Question, Programmatically create functions

Converting into functions

In one line

that worked!