       Re: Problem with loops in Mathematica

• To: mathgroup at smc.vnet.net
• Subject: [mg49745] Re: [mg49693] Problem with loops in Mathematica
• From: "David Park" <djmp at earthlink.net>
• Date: Fri, 30 Jul 2004 06:01:59 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Kristofer,

The following will substitute n in the expression AND in the iterator and
then generate the array.

nodevalues[n_] := Table[S u^j d^(n - j) p^j q^(n - j), {j, 0, n}]

nodevalues
{d^3*q^3*S, d^2*p*q^2*S*u, d*p^2*q*S*u^2, p^3*S*u^3}

You might also write the definition as

Clear[nodevalues]
nodevalues[S_, u_, d_, p_, q_][n_] :=
Table[S u^j d^(n - j) p^j q^(n - j), {j, 0, n}]

Then you don't have to set S,u etc but just supply them when you call the
function.

nodevalues[j + 2, 3, 2, 2, 1]
{32, 144, 576, 2160, 7776}

David Park

From: Kristofer Eklundh [mailto:kristofer_eklundh at spray.se]
To: mathgroup at smc.vnet.net

Hi all,

I am trying to work out the value of S at different nodes in a
binomial tree, using the following formula:

Table[S u^j d^(n - j) p^j q^(n - j), {j, 0, n}]

I would like to loop this in some way so that I don't have to assign
new values to n all the time (S, d, p, q are given). I have tried For
and Do, but when i print the result, Mathematica produces n lists that
are equal to the final value of n, and not for n=0,1,..., n-1.

Anyone who could help me with this?

```

• Prev by Date: Re: pattern matching and droping elements from list of lists.
• Next by Date: Re: pattern matching and droping elements from list of lists.
• Previous by thread: Re: Problem with loops in Mathematica
• Next by thread: pattern matching and droping elements from list of lists.