Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.soft-sys.math.mathematica > #3650

Re: sequence of functions

From rych <rychphd@gmail.com>
Newsgroups comp.soft-sys.math.mathematica
Subject Re: sequence of functions
Date 2011-07-11 10:56 +0000
Organization Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID <ivektj$858$1@smc.vnet.net> (permalink)
References <201107080855.EAA28789@smc.vnet.net> <iv9eqf$dfb$1@smc.vnet.net>

Show all headers | View raw


Yes, indeed, wrapping it with Evaluate did it. Thanks, Heike.

Bobby, f[n_][x_] :=  f[n][x] = ... results in caching for not only
each n and each x.

Dana, how did you apply FindSequenceFunction to get the direct
formula?!

Thanks
Igor



On Jul 9, 11:42 pm, Heike Gramberg <heike.gramb...@gmail.com> wrote:
> What about
>
> f[0] = Function[x, x (1 - x)]
> f[n_] := f[n] =
>    Function[x, Evaluate[Simplify[f[n - 1][2 x] + f[n - 1][2 x - 1]]]]=
;
>
> Then
>
> f[2][x];
> ?f
>
> returns:
>
> Global`f
> f[0]=Function[x,x (1-x)]
> f[1]=Function[x$,-2 (1-2 x$)^2]
> f[2]=Function[x$,-20+64 x$-64 x$^2]
> f[n_]:=f[n]=Function[x,Evaluate[Simplify[f[n-1][2 x]+f[n-1][2 x-1]]]]
>
> Heike

Back to comp.soft-sys.math.mathematica | Previous | NextPrevious in thread | Next in thread | Find similar | Unroll thread


Thread

Re: sequence of functions Heike Gramberg <heike.gramberg@gmail.com> - 2011-07-09 11:42 +0000
  Re: sequence of functions rych <rychphd@gmail.com> - 2011-07-11 10:56 +0000
  Re: sequence of functions DrMajorBob <btreat1@austin.rr.com> - 2011-07-12 11:07 +0000

csiph-web