Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

ListManipulationQuestion

  • To: mathgroup at smc.vnet.net
  • Subject: [mg93149] ListManipulationQuestion
  • From: lynette <xiaochu at gmail.com>
  • Date: Wed, 29 Oct 2008 05:47:58 -0500 (EST)

Hi:
   I try to encode a hash table in the name of list.
successors[{s_Integer, {{nhu_Integer, nhd_Integer}, {nlu_Integer,
     nld_Integer}}}] := {
  {1, {{nhu + 1, nhd}, {nlu, nld}}},
  {1, {{nhu, nhd + 1}, {nlu, nld}}},
  {2, {{nhu, nhd}, {nlu + 1, nld}}},
  {2, {{nhu, nhd}, {nlu, nld + 1}}}
  }

successors[{1, {{2, 3}, {0, 2}}}]
{{1, {{3, 3}, {0, 2}}}, {1, {{2, 4}, {0, 2}}}, {2, {{2, 3}, {1, 2}}},
{2, {{2, 3}, {0, 3}}}}

I want to find the price of successor nodes given the price of current
node

nextprice[p_, n_] := price[p] Total[Flatten[(n[[2]] - p[[2]]) {{\
[Delta]hu, \[Delta]hd}, {\[Delta]lu, \[Delta]ld}}]]

It works for single node:

price[{1, {{2, 3}, {0, 2}}}] = 100

price[{2, {{2, 3}, {0, 3}}}] = nextprice[{1, {{2, 3}, {0, 2}}}, {2,
{{2, 3}, {0, 3}}}]
90.9091

However, it doesn't work when I tried to map it out:

input: nextprice[{1, {{0, 0}, {0, 0}}}, #] & /@ successors[{1, {{0,
0}, {0, 0}}}]
output: {120., 83.3333, 110., 90.9091}

input: price[{1, {{1, 0}, {0, 0}}}]
output: price[{1, {{1, 0}, {0, 0}}}]

I cannot assign the price to each successor nodes. Does anybody know
what is wrong with it? thanks alot.


  • Prev by Date: Re: From Plain Text to other formats
  • Next by Date: Re: Is there a way to make Mathematica commands and functions
  • Previous by thread: Re: 3D Graphics in a Palette or Dialog
  • Next by thread: Re: ListManipulationQuestion