MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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[3]
{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][4]
{32, 144, 576, 2160, 7776}

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


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.