3
$\begingroup$

I need to define a set of functions that are written in terms of common but lengthy expressions. To effect this, I want to inject abbreviations for such expressions into the RHS of SetDelayed of multiple functions. Something like this:

Clear[f, g];
Module[{abbrev = Sum[int[i], {i, 1, n}]},
  f[n_] := abbrev + y;
  g[n_] := abbrev^2;
  (*and so on*)
]

But it doesn't work. First, the n_ in the LHS is failing to match the n in the RHS. Second, the kernel first evaluates the RHS of abbrev before injecting it into the RHSs of f and g. In my program, that consumes time that could otherwise be saved.

What can I do to solve these problems?

$\endgroup$

marked as duplicate by Kuba, MarcoB, m_goldberg, user9660, Leonid Shifrin Dec 22 '15 at 6:24

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • $\begingroup$ With isn't working on my computer (Mathematica 10.2 on Mac OS X). What version are you using? $\endgroup$ – QuantumDot Dec 21 '15 at 21:28
  • $\begingroup$ @QuantumDot what are int and y terms in your code? $\endgroup$ – e.doroskevic Dec 21 '15 at 21:32
  • $\begingroup$ int[i] is a recursively defined symbolic function (the result is usually a polynomial plus some logarithms), y is a similar object (polynomial+logs) but known explicitly (no recursive code). $\endgroup$ – QuantumDot Dec 21 '15 at 21:35
  • $\begingroup$ Ok, here is one way: (f[n_] := # + y; g[n_] := #^2;) &[ Sum[int[i], {i, 1, n}] ] there should be a duplicate somewhere. $\endgroup$ – Kuba Dec 21 '15 at 21:36
  • 4
    $\begingroup$ Not the one I've thought about but I think it's good enough: 20766 $\endgroup$ – Kuba Dec 21 '15 at 21:39
4
$\begingroup$

I'm not sure how robust this is. It is quick and dirty so to speak.

With[{abbrev := Sum[int[i], {i, 1, n$}]},
 f[n_] := abbrev + y;
 g[n_] := abbrev^2
 (*and so on*)]

enter image description here

...but I think @kuba's link provides better alternatives.

Edit

Such an alternative includes:

Clear[f, g];
Module[{abbrev := Sum[int[i], {i, 1, n}]},
 SetDelayed @@ {f[n_], abbrev + y};
 g[n_] := abbrev^2]

Where you do not have to modify the n with dollar signs. The explanation for why this works is given in the post by Mr Wizard and Leonid.

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.