1
$\begingroup$

I'd like to symbolically iterate this formula $1,2,...,n$ times: $$f(z,u)=\frac{z}{1-z}f(z,1)+\frac{zu}{1-zu}f(z,zu)+\frac{z^2u}{1-z^2u}f(z,z^2u).$$

I tried using Nest and RecurrenceTable, but I don't know how to create the initial conditions. Any idea?

Edit: By iterate I mean when you use $f(z,u)$ definition to expand it. For example, for the first iteration I would like to get:

$$f(z,u)=\left(\frac{u z^2}{(1-z) (1-u z)}+\frac{z^3}{(1-z) \left(1-u z^2\right)}+\frac{z^2}{(1-z)^2}\right) f(z,1)+\frac{z^2}{(1-z)^2}f(z,z)+\frac{z^3}{(1-z) \left(1-z^2\right)} f\left(z,z^2\right)+\frac{u^2 z^3}{(1-u z) \left(1-u z^2\right)} f\left(z, z^2u\right)+\left(\frac{u z^3}{(1-u z) \left(1-u z^3\right)}+\frac{u z^5}{\left(1-u z^2\right) \left(1-u z^3\right)}\right) f\left(z, z^3u\right)+\frac{z^4}{\left(1-u z^2\right) \left(1-u z^4\right)} f\left(z, z^4u\right)$$

As Wolfram code:

((z^2) /(1-z)^2+(u (z^2) )/((1-z) (1-u z))+(z^3) /((1-z) (1-u z^2)))f[z,1]+z^2/(1-z)^2 f[z,z]+(z^3) /((1-z) (1-z^2)) f[z,z^2]+((u^2) (z^3) )/((1-u z) (1-u z^2)) f[z,z^2 u]+((u (z^3) )/((1-u z) (1-u z^3))+(u (z^5) )/((1-u z^2) (1-u z^3)))f[z,z^3 u ]+(z^4) /((1-u z^2) (1-u z^4)) f[z,z^4 u]
$\endgroup$
3
  • $\begingroup$ @MichaelE2 see for my edit. $\endgroup$ May 24 at 5:33
  • $\begingroup$ Maybe a scheme like f[0] = f; f[i_Integer?Positive][z_, u_] := (* formula with f[i-1][..] in place of f[..] *); with an index i for how many times still to be nested? $\endgroup$
    – Michael E2
    May 24 at 5:39
  • $\begingroup$ @MichaelE2 Got it! Thank you very much $\endgroup$ May 24 at 5:56

2 Answers 2

2
$\begingroup$

Method from comment:

f[0] = f;
f[i_Integer?Positive][z_, 
   u_] := (z/(1 - z) f[i - 1][z, 1] + z u/(1 - z u) f[i - 1][z, z u] +
     z^2 u/(1 - z^2 u) f[i - 1][z, z^2 u]);

expr1 = f[3][z, u];

Another way:

ClearAll[f];
frule = f[z_, u_] :>
   (z/(1 - z) f[z, 1] + z u/(1 - z u) f[z, z u] + 
     z^2 u/(1 - z^2 u) f[z, z^2 u]);

expr2 = Quiet[
   ReplaceRepeated[f[z, u], frule, MaxIterations -> 3], 
   ReplaceRepeated::rrlim];

Compare:

expr1 == expr2

(*  True  *)
$\endgroup$
1
$\begingroup$

The problem here is infinite recursion. To break this we may add an additional counter. f[z,u,1] will stop the recursion :

f[z_, u_, 1] := (z/(1 - z) f[z, 1] + z u/(1 - z u) f[z, z u] + 
   z^2 u/(1 - z^2 u) f[z, z^2 u])
f[z_, u_, 
  c_] := (z/(1 - z) f[z, 1, c - 1] + z u/(1 - z u) f[z, z u, c - 1] + 
   z^2 u/(1 - z^2 u) f[z, z^2 u, c - 1])

With this we may now e.g. write:

f[z, u, 2] // Simplify

enter image description here

Or the different coefficients of f[,]:

Coefficient[f[z, u, 2], #] & /@ {f[z, 1], f[z, z], f[z, z^2 u], 
  f[z, z^3 u], f[z, z^4 u]}

enter image description here

Note that you have an error in the first coefficient, instead of z^2 it should read u z^2.

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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