Modify a list of pure functions
- To: mathgroup at smc.vnet.net
- Subject: [mg70812] Modify a list of pure functions
- From: "." <ggroup at sarj.ca>
- Date: Sat, 28 Oct 2006 05:21:54 -0400 (EDT)
Hi all,
I have a problem where I need to build up a list of pure functions that
have been modified from a base pure function. I'm not having much luck
in getting it to work correctly, and was wondering if anyone had some
good ideas. A toy version of the problem is:
f = Sin[#]&
listF = Table[(i f[##])&, {i, 5}]
What I'd hope to get is listF containing:
{Sin[##]&, (2 Sin[##])&, (3 Sin[##])&, (4 Sin[##])&, (5 Sin[##])&}
But instead, I get something where neither i nor f have been evaluated.
As I say, this is a toy example. One thing that does partially work
for the toy case, but does not seem to work for more complicated
situations is to use ReplaceAll:
listF2 = Table[{j f[##])& /. j->i, {i,5}]
This does give:
{1 f[##1] &, 2 f[##1] &, 3 f[##1]&, 4 f[##1] &, 5 f[##1] &}
However, all that has been done is the index has been inserted; no
significant evaluation seems to have occurred. So this method doesn't
work in more complicated situations. For example, suppose insted of
using the index i directly, it actually referred to a list:
coeffs = Reverse[ Range[5] ];
listF3 = Table[ (coeffs[[j]] f[##]) & /. j->i, {i, 5}]
This just gives:
{coeffs[[1]]*f[##1] & , coeffs[[2]]*f[##1] & , coeffs[[3]]*f[##1] & ,
coeffs[[4]]*f[##1] & , coeffs[[5]]*f[##1] & }
Which is no good if coeffs is a temporary variable.
Any suggestions would be most appreciated. Thanks!
- Follow-Ups:
- Re: Modify a list of pure functions
- From: "Chris Chiasson" <chris@chiasson.name>
- Re: Modify a list of pure functions
- From: Carl Woll <carlw@wolfram.com>
- Re: Modify a list of pure functions